帮助调试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本地解决方案通常比尝试使用系统调用和解析输入更好。