Вывести вывод команды оболочки в Perl

Question

Я хотел бы превратить результат команды оболочки в переменную, например, $ 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. Его не следует использовать для производственных программ" .