如何将系统命令的结果存储在 Perl 变量中？

Question

$ cat test.pl
my $pid = 5892;
my $not = system("top -H -p $pid -n 1 | grep myprocess | wc -l");
print "not = $not\n";
$ perl test.pl
11
not = 0
$

我想将结果11捕获到一个变量中。 我该怎么做？

Answer 1

从Perlfaq8 ：

您混淆了system()和反引号(``) 的用途。 system() 运行命令并返回退出状态信息（作为 16 位值：低 7 位是进程死亡的信号，如果有的话，高 8 位是实际退出值）。 反引号 (``) 运行命令并将它发送到 STDOUT 的内容返回。

$exit_status   = system("mail-users");
$output_string = `ls`;

有很多方法可以从 Perl 执行外部命令。 最常见的含义是：

• system() ：您想执行命令但不想捕获其输出
• exec ：您不想返回调用 perl 脚本
• 反引号：您要捕获命令的输出
• open ：您想将命令（作为输入或输出）通过管道传输到您的脚本

另请参阅如何从外部命令捕获 STDERR？

Answer 2

最简单的方法是使用 Perl 中的``特性。 这将执行里面的内容并返回打印到标准输出的内容：

 my $pid = 5892;
 my $var = `top -H -p $pid -n 1 | grep myprocess | wc -l`;
 print "not = $var\n";

这应该这样做。

Answer 3

尝试使用qx{command}而不是反引号。 对我来说，它好一点，因为：你可以用它做 SQL 而不必担心转义引号之类的。 根据编辑器和屏幕的不同，我的老眼睛往往会错过微小的后记号，并且它不应该像使用尖括号与 glob 那样出现过载问题。

Answer 4

使用backtick或qx帮助，谢谢大家的回答。 但是，我发现如果您使用backtick或qx ，则输出包含尾随换行符，我需要将其删除。 所以我使用了chomp 。

chomp($host = `hostname`);
chomp($domain = `domainname`);
$fqdn = $host.".".$domain;

更多信息在这里： http : //irouble.blogspot.in/2011/04/perl-chomp-backticks.html

Answer 5

对系统命令使用反引号，这有助于将其结果存储到 Perl 变量中。

my $pid = 5892;
my $not = ``top -H -p $pid -n 1 | grep myprocess | wc -l`; 
print "not = $not\n";

Answer 6

也为例如。 你可以使用IPC::Run ：

use IPC::Run qw(run);

my $pid = 5892;
run [qw(top -H -n 1 -p), $pid],
    '|', sub { print grep { /myprocess/ } <STDIN> },
    '|', [qw(wc -l)],
    '>', \my $out;

print $out;

• 进程在没有 bash 子进程的情况下运行
• 可以通过管道传输到 perl subs
• 非常类似于shell