쉘을 perl로 변환하는 방법

Question

이것은 쉘 스크립트의 일부입니다. 디스크 사용량을 확인합니다. 이것이 펄 스크립트로 어떻게 변환 될 수 있는지 알고 싶습니까? 도와주세요.

DFCMD="df -P" 

for fs in `eval $DFCMD`; do 

FS=`echo $fs | awk ' { print $1 } '` 

done 

감사

는

Answer 1

아니라, 펄, 종종 쉘 명령을 실행하기 위해 시스템() 함수를 사용하고 있지만, 시스템() 함수를 사용할 수 command.You의 결과를 반환 할 수있다 backticks (``)를 사용하여 출력을 얻습니다. 아웃 넣어 사용하면 스크립트를 펄 쉘 스크립트를 변환 할 수 있습니다

1 #!/usr/bin/perl 
    2 use strict; 
    3 use warnings; 
    4 
    5 my @output = split('\r\n', `df -P | awk '{print \$1}'`); 
    6 print @output; 

Answer 2

이 그것을 할 수있는 1liner 아마,하지만 난이 (테스트되지 않은)

my @command = qw/df -P/; 
open(my $in, "-|", @command) or die "Can't run `@command`: $!"; 
while(<$in>) { 
    my ($first_col) = split; 
    print "$first_col\n"; 
} 

Answer 3

perl -le 'print /(\S+)/ for `df -P`'