在perl脚本中使用awk时如何获得返回值？

Question

我正在尝试提交$ process处理此系统调用的结果

my $process= system "adb shell ps | egrep adb | awk '{print $1}' ";

但是当print " $process \\n"; 我没有

有什么建议么

Answer 1

我不认为perl在使用system（）调用时会捕获输出。

尝试用反引号包装它：

my $process = `adb shell ps | egrep adb | awk '{print $1}'`;

Answer 2

system（）的返回值是程序的退出状态（ 此处 ）。 改为使用反引号操作：

$process = `...`;

Answer 3

我刚刚找到了关于SO本身的更详细的解释。 编辑添加该链接 - Perl的反引号，系统和exec有什么区别？

---

pmod提到的是正确的。 由于我最近对此进行了一些阅读，只需添加一条评论，我发现：

system

执行命令后，命令完成后会继续执行perl脚本。 它返回命令的退出状态。

backticks - ` `

这有点像系统，执行你启动的命令并等待它返回。 但是，与system不同，返回命令的STDOUT。 我认为这就是你在这里寻找的东西。

exec

用新进程替换当前并且不返回任何内容。

希望有帮助......