perl调用外部命令或者脚本，如何取得外部命令或者脚本的返回值（退出值）
转自：http://blog.csdn.net/code805772847/article/details/7100600
使用perl调用外名命令有很多方法，这里就不详细讲解。
如有shell脚本a.sh
#!/bin/bash
echo "script out put"
exit 2
有perl脚本test.pl调用a.sh
#!/bin/perl -w
$output = qx(/usr/local/a.sh);
$exitcode = $?;
print "output = " . $output;
print "exitcode = " . $exitcode;
执行此perl脚本./test.pl
你会发现输出的内容为
output = script out put
exitcode = 256
明显就不是你所期望的结果。输出应该是
output = script out put
exitcode = 2
这才是我们期待的。
原因是什么我不多说，看如下解决解决方案。
#!/bin/perl -w
$output = qx(/usr/local/a.sh);
$exitcode = $? >>8;
print "output = " . $output;
print "exitcode = " . $exitcode;
再次运行脚本你会发现OK了。
