perl shell交换示例
a.sh
1 #/bin/sh
2 echo "haha";
3 exit 1;
perl脚本
22 my $output=qx(sh a.sh);
23 my $exitcode=$?;
24 $exitcode>>=8;
25 print "output=$output\n";
26 print "exitcode=$exitcode\n";
27 system("pwd");
28 print STDERR "$0 has finished,congratulations!\n";
29 print STDERR "Time elapsed:".(Time::HiRes::time-$tmStarted)."\n";
http://www.docin.com/p-56464488.html