допомога з налагодженням perl-змінної інтерполяції - perl

Мені потрібна допомога з налаштуванням змінних. Частина цієї команди працює, крім awk команди. Я думаю, його використання $2 в цьому випадку?

use strict;
use warnings;

my $cmd = qx(df -h | awk "{print $2}");
print "Output:$cmdn";

Відповіді:

$2 обчислюється perl у змінну. Вам потрібно врятуватися:

my $cmd = qx(df -h | awk "{print $2}");

Оновлення:

Можливо, ви захочете перевірити Filesys :: DiskSpace. Використання власних рішень perl найчастіше краще, ніж спроба використовувати системні дзвінки та аналіз вводу.