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 네이티브 솔루션을 사용하는 것이 시스템 호출과 구문 분석 입력을 사용하는 것보다 더 좋은 경우가 많습니다.