在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特性，不應該用於生產程序「。