perl 知识点积累
$|=1; # turn off I/O buffering$$;# 当前pid
$" = "\n"; # 行分隔符
eval
push(@program,'$i = 1;');
push ( @program,'$i = 3; $j = 2; $k = $i + $j');
push ( @program, '$i = 3; return 24; $k = $i + $j');
foreach $exp (@program)
{
$rtn =eval($exp);
print $rtn,"\n";
}
Output:
1
5
24
页:
[1]