perl - 捕获 Perl 的 'system()' 的输出

Question

我需要在 Perl 中使用 system() 运行 shell 命令。例如，

system('ls')

系统调用将打印到 STDOUT ，但我想将输出捕获到一个变量中，以便我可以用我的 Perl 代码进行 future 的处理。

Answer 1

这就是反引号的用途。来自 perldoc perlfaq8 :

Why can't I get the output of a command with system()?

You're confusing the purpose of system() and backticks (``). system() runs a command and returns exit status information (as a 16 bit value: the low 7 bits are the signal the process died from, if any, and the high 8 bits are the actual exit value). Backticks (``) run a command and return what it sent to STDOUT.

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

见 perldoc perlop 更多细节。