在Perl中输出shell命令的输出

Question

我想将shell命令的输出变成一个变量，例如$结果，然后在屏幕上打印出来，例如打印$结果

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特性，不应该用于生产程序“。