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

Question

我试图提交给$处理此系统调用的结果

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

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

任何建议

Answer 1

系统的返回值（）是程序（here）的退出状态。改为使用反向操作：

$process = `...`; 

Answer 2

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

尝试在反引号包裹它，而不是：

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

Answer 3

我刚刚发现了关于SO本身的更详细的解释。编辑添加该链接 - What's the difference between Perl's backticks, system, and exec?

---

pmod提到的是正确的。因为我一直在做这一点最近阅读，只需添加评论什么，我发现：

system 

执行命令，并且命令完成后继续您的Perl脚本。它返回命令的退出状态。

backticks - ` ` 

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

exec 

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

希望帮助...