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