Perl里如何得到一个执行程序的返回值？

unicornx

刚接触Perl，想写个Perl脚本，其中调用一个程序app，判断其返回值。
在shell里我是这样写的：
$app
$echo $?

现在在Perl脚本里该如何写？
我试过如下，但不行，请问问题在何处？
#!/usr/bin/perl
`app`;
$result=`echo \$?`;
print "result=$result\n";

unicornx

自己搞定
结贴。

my $temp = system "app";
$temp = $temp>>8;
print "\n result is ", $temp;

refer to http://bbs.chinaunix.net/viewthread.php?tid=1256390

Perl_Er

good

2gua

嗯，Perl和Shell的结合还不错，但曾经有人试着用Perl重写一遍Shell的功能，还是难度重重的。

yecheng_110

自己搞定
结贴。

my $temp = system "app";
$temp = $temp>>8;
print "\n result is ", $temp;

re ...
unicornx 发表于 2010-08-09 22:43

我一般用POSIX模块
WIFEXITED
WEXITSTATUS

zhong_hai_jun

回复 1# unicornx


qx(app) 返回执行结果

兰花仙子

嗯，Perl和Shell的结合还不错，但曾经有人试着用Perl重写一遍Shell的功能，还是难度重重的。
2gua 发表于 2010-08-11 05:59

    所谓PSH，竟然还有不同的发行版。

2gua

所谓PSH，竟然还有不同的发行版。
兰花仙子 发表于 2010-08-19 11:05

    我个人不赞成这么搞，能用Perl的地方就用Perl，实在要用Shell就用Shell吧，没必要非得整在一起，搞复杂了啊。

mealhao

用Shell吧，这么没法搞