-
-
[分享]分享一段 perl 代码..
-
2012-12-21 14:32 2378
-
#确定一个数是否在 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";
}
#
@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";
}
[培训]《安卓高级研修班(网课)》月薪三万计划,掌握调试、分析还原ollvm、vmp的方法,定制art虚拟机自动化脱壳的方法
赞赏
他的文章
看原图