需要輸出系統（）命令的作用，並有進度指示器

Question

我從Need a progress indicator for a Perl system() command using T:R:G mod

open(my $cmd, '-|', "$command $flags_args 2>/dev/null") 
    or print "\nAttention: Command $command $flags_args failed $!" 
    and return 1; 

while (<$cmd>) 
{ 
    $percentage = ($cntr/$lines) * 100; 
    $percentage = 100 if $percentage > 100; 

    printf("Progress: %3d%%\r", $percentage); 
    $cntr++; 

} 
close($cmd); 

一個不錯的進度指示器現在我想我的命令輸出的輸出和錯誤的記錄。我不是太熟悉的管道輸出，所以我嘗試添加：

print $LOG $cmd 

和

print $LOG Dumper(\$cmd) 

while循環結束之前。它不起作用。第一輸出

GLOB(0x11df7a0)GLOB(0x11df7a0)GLOB(0x11df7a0) 

第二

$VAR1 = \\*{'::$cmd'}; 
$VAR1 = \\*{'::$cmd'}; 
$VAR1 = \\*{'::$cmd'}; 

有誰知道我怎麼可以從管道$ CMD輸出？ 實例爲$命令= make命令

Making all in src 
make[1]: Entering directory `/tmp' 
Making all in include 
make[2]: Entering directory '/tmp/2' 

... 

Answer 1

嘗試使它

print $LOG $_; 

或者只是

print $LOG; 

（因爲$_是，如果沒有指定默認值）

解釋：$cmd是你正在閱讀的文件g來自; $_是從它讀取的行。你可以更清楚通過寫

while ($line = <$cmd>) { 
    print $LOG $line; 
    ... 
} 

Answer 2

$cmd是I/O處理你的命令的輸出，內部數據類型，它沒有太大的意義進行打印。你想用<$cmd>或readline($cmd)得到它的輸出，你已經做你while循環：for unconfusing我

while (<$cmd>)  # same as: while (defined($_ = readline($cmd))) 
{ 
    # last line from command is now stored in $_ 
    print $LOG $_; 

    $percentage = ($cntr/$lines) * 100; 
    $percentage = 100 if $percentage > 100; 

    printf("Progress: %3d%%\r", $percentage); 
    $cntr++; 


}