Perl中“条件表达式”能够传递么？

shangtian2007

Perl中“条件表达式”能够传递么？

用一个例子描述下我的问题
有三个整数$i, $j, $k，
有多个条件，如：
条件1：0 <= $j - $i <= 2;
条件2：0 <= $k - $j <= 2;
条件3：1 <= $k - $i <= 3;
条件4：($i + $j +$k)%3 = 1;

有一个数组@a;

依次判断条件1~4，如果满足，向@a压入数据1，如果不满足，压入0 。
于是有如下程序:
if($j-$i >= 0 && $j-$i <= 2) {push @a, 1;}   else { push @a, 0;}
if($k-$j >= 0 && $k-$j <= 2) {push @a, 1;}   else { push @a, 0;}
if($k-$i >= 1 && $k-$i <= 3) {push @a, 1;}   else { push @a, 0;}
if( ($i+$j+$k)%3 = 1)            {push @a, 1;}   else { push @a, 0;}

可以看到，上面的程序除了条件表达式不同，其余部分都相同，
大量的重复代码简直是坑爹，应该可以用一个循环或子程序来实现。
比如写一个子程序：
sub judge{
     my $condition = shift @_ ;
     if($condition代表的条件表达式为真){push @a, 1} else {push @a,0}
}

&judge(条件表达式1  );
&judge(条件表达式2  );
&judge(条件表达式3  );
&judge(条件表达式4  );

或者将条件表达式作为一个数组的元素，遍历这个数组。

但这时有一个问题：
条件表达式如何才能传递到子程序中，然后在子程序中对之再进行判断；
条件表达式如何才能作为数组的元素，然后在遍历数组时对之再进行判断？

以我的水平，传递之后，条件表达式，就变成了一个字符串或一个引用了，
我没有办法再对之进行判断。

请问大家有什么办法没？
或者不传递条件表达式，用其它的方法实现，
目的是不要重复地写if( (条件表达式) {push @a, 1;}   else { push @a, 0;}

啰嗦了这么多，不知说清楚没。
谢谢各位大侠。

zhlong8

脑袋短路了

Perlvim

传递参数，在子程序内部判断，输出数组引用。

jason680

回复 1# shangtian2007

1. sub judge
   only return 1 or 0.

2.
push @a, &judge(条件表达式1  );
push @a, &judge(条件表达式2  );
push @a, &judge(条件表达式3  );
push @a, &judge(条件表达式4  );

Kitaisky

push @a, (0=>1)[@{[$j-$i >= 0 && $j-$i <= 2]}]

rubyish

用其它的方法实现：
只要一行代码:

1. my ( $a, $b, $c ) = ( 1, 2, 3 );
   
2. map { $_ ||= 0 } my @a = ( ( $a > $b ), ( $a > $c ), ( $c > $a ) );
   

复制代码

1. print @a;
   
2. 001

复制代码

chenryn

6楼的很赞啊

shangtian2007

回复 5# Kitaisky


    push @a, (0=>1)[@{[$j-$i >= 0 && $j-$i <= 2]}]

太高级了，能不能解释下？
1. [$j-$i >= 0 && $j-$i <= 2]         是一个引用？还是进行条件判断？中括号什么作用？
2. @{[$j-$i >= 0 && $j-$i <= 2]}  是一个数组么？如果是，它的元素是什么？
3. [@{[$j-$i >= 0 && $j-$i <= 2]}] 最外层的中括号与（1）中用的中括号作用一样么？
4. （0=>1）的作用是什么？当后面的中括号返回这真，得到1，返回为假，得到0？如果写成(5=>6)，是不是为真返回6，为假返回5？

非常感谢您的回答。

shangtian2007

回复 6# rubyish


    map { $_ ||= 0 } my @a = ( ( $a > $b ), ( $a > $c ), ( $c > $a ) );

看不太懂，有3点疑问：
1. （$a > $b）,这种写法，是不是，当条件成立时，得到1，不成立时，返回0（或者返回的是undef？）？
2.  {$_ ||=0}，意思是不是：当$_为1时，将 $_ 映射为 1，当 $_ 为假（还是undef）时 映射为 0？
3. 试了一下，如果 “||”和“=”之间有空格，将会出错，那 || 就不是短路操作符“或”了，那它又是什么？

非常感谢您的回答。

rubyish

回复 9# shangtian2007

1. $a += 1;
   
2. $a = $a + 1;
   
3. 
   
4. $_ ||= 0;
   
5. $_ = $_ || 0;

复制代码

如果你喜欢push

1. my ( $a, $b, $c ) = ( 1, 2, 3 );
   
2. my @a = ( ( $a > $b ), ( $a > $c ), ( $c > $a ) );
   
3. my @b;
   
4. push @b, $_ ? 1 : 0 for @a;

复制代码

1. print @b;
   
2. 001

复制代码