perl调用外部命令或者脚本，怎么取得外部命令或者脚本的返回值（退出值）

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了。