在PERL中如何调用BASH

ant_tree

各位大侠：
  由于项目框架是用BASH搭建的，现在要采用PERL增添功能，所以要调用一些BASH程序，并使用BASH程序中的返回值，但现在不知道在PERL中如何获取这些值，请指教！

ly5066113

$?

redicaps

``

perljoker

用perl回答问题真诡异啊
不知道的人还以为你们灌水呢

xuxingyu

system("echo $?")

doiob

反引号``

ant_tree

echo $?好象只返回该操作有没有成功啊。

反引号怎么用？可以具体点吗？本人学习PERL没多久，所以请多指教一下

ly5066113

原帖由 ant_tree 于 2008-1-9 13:09 发表
echo $?好象只返回该操作有没有成功啊。

反引号怎么用？可以具体点吗？本人学习PERL没多久，所以请多指教一下

到底是要得到bash脚本的返回值还是它的标准输出呢？

ant_tree

标准输出吧
比如：start-run.sh (bash)
#!/usr/bin/bash

count=10;
echo $count;

在call.sh (perl)
#!/usr/bin/perl


system("$value = ${./start-run.sh}");

执行的时候报错：
Bareword found where operator expected。。。
(Might be a runaway multi-line // string starting on line 47)

ly5066113

原帖由 ant_tree 于 2008-1-9 13:20 发表
标准输出吧
比如：start-run.sh (bash)
#!/usr/bin/bash

count=10;
echo $count;

在call.sh (perl)
#!/usr/bin/perl


system("$value = ${./start-run.sh}");

执行的时候报错：
Bareword fou ...

#!/usr/bin/perl

$value = `./start-run.sh`;
print "$value";