-
-
[分享]分享一段 perl 代码..
-
发表于:
2012-12-21 14:32
2881
-
#确定一个数是否在 21 到 31 之间, 但没有用到判断, 分享一下..
#
@lim[0] = 21;
@lim[1] = 31;
for($i=0; $i < 10; $i++) {
@a[$i]=f0;
}
@a[2] = f;
$val = $ARGV[0];
$t0 = @lim[0]-$val;
$t1 = @lim[1]-$val;
$t0 = ($t0 & 0x80000000)>>30;
$t1 = ($t1 & 0x80000000)>>31;
$j0 = $t0|$t1;
print $t0."__".$t1."__".$j0."\r\n";
$fun = @a[$j0];
&$fun($val);
sub f {
my ($num) = @_;
print "$num 在 21 到 31 的范围内..\r\n";
}
sub f0 {
my ($num) = @_;
print "$num 不在 21 到 31 的范围内..\r\n";
}
[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！
