在Perl中打印shell命令的输出

Question

我想将shell命令的输出转换为变量，例如$ result然后在屏幕上打印出来，例如打印$ result

df -H | grep -vE '^Filesystem|tmpfs|cdrom' | awk '{ print $5 " " $1 }'

Answer 1

只需使用反引号，并小心引用：

my $result = `df -H | grep -vE '^Filesystem|tmpfs|cdrom' | awk '{ print \$5 " " \$1 }'`;
print $result;

Answer 2

我自己只是一个学习者，但我发现这个http://perldoc.perl.org/Shell.html很有用......“这个包作为展示案例包含在内，展示了一些Perl功能。它不应该用于生产程序”。