幫助調試perl變量插值

Question

我需要幫助我的變量設置。此命令的一部分正在工作，但awk命令除外。我認爲它在這種情況下使用$2？

use strict; 
use warnings; 

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

Answer 1

$2被perl評估爲一個變量。你需要逃避它：

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

更新：

你不妨看看Filesys::DiskSpace。使用Perl本地解決方案通常比嘗試使用系統調用和解析輸入更好。