37,744
社区成员
发帖
与我相关
我的任务
分享一个perl b脚本调用另一个perl a脚本，如何在b脚本中获取a脚本的返回值
#a.pl
#!/usr/bin/perl -w
print "call perl script\n";
exit(2);
＃b.pl
#!/usr/bin/perl -w
print "b perl script\n";
my $ret=`perl a.pl`;
print "a.pl return value:$ret\n";
我想要的值为2。
非常感谢
#!/usr/bin/perl -w
print "call perl script\n";
exit(2);
＃b.pl
#!/usr/bin/perl -w
print "b perl script\n";
my $ret=`perl a.pl`;
print "a.pl return value:$ret\n";
我想要的值为2。
非常感谢
...全文
请发表友善的回复…
发表回复
Code805772847 2011-12-25
- 打赏
- 举报
也可用这个，不妨试试。呵呵，如下是详细解答。
http://blog.csdn.net/code805772847/article/details/7100600
http://blog.csdn.net/code805772847/article/details/7100600
yunming314 2009-10-15
- 打赏
- 举报
非常感谢，可以啦
hecius 2009-10-15
- 打赏
- 举报
my $ret=`perl a.pl`;
这样写的话，只会返回该命令的返回值，就相当于system("perl a.pl")一样;
要得到#a.pl 的返回值，你应该将$ret右移8位试一下，这样就可以了。
代码：
$ret=system("perl a.pl");
$ret=$ret/256;
这样写的话，只会返回该命令的返回值，就相当于system("perl a.pl")一样;
要得到#a.pl 的返回值，你应该将$ret右移8位试一下，这样就可以了。
代码：
$ret=system("perl a.pl");
$ret=$ret/256;
