如何在反向命令失敗時在Perl中獲取錯誤消息

Question

我有一個變量$deployment_tarfile，它包含一個帶有svn位置的tar文件。在我的Perl腳本反引號命令中，我使用

$depsvn = `svn ls $deployment_tarfile` 

檢查文件是否存在於svn中。如果失敗了，我們如何記錄錯誤信息？

目前，如果命令失敗，它只會顯示在shell中。我想專門打印它。我怎樣才能做到這一點？我試過$!，但它不顯示。

$depsvn = `svn ls $deployment_tarfile`; 
if ($? != 0) { 
    print "$!"; # It displays blank 
} 

我自己也嘗試$OS_ERROR和$ERRNO而不是$!，但沒有奏效。

如何在svn命令失敗時在Perl中打印錯誤消息？

更新：我使用Perl版本5.8.8

Answer 1

$!和朋友報告OS級別的錯誤。 「未找到文件」，「空間不足」等。另一方面，svn正在向STDERR報告應用程序級別錯誤。

因此，你可以重定向svn的STDERR到它的STDOUT（足夠容易做，因爲要調用的外殼加上2>&1到shell命令的結束），或使用類似IPC::Run3或IPC::Run，得到STDOUT & STDERR。

......當然alroc推薦的SVN專用模塊可能更適用於這個特定的的情況。

Answer 2

對於更高級的程序執行，請使用IPC::Run3。

use strict; 
use warnings; 
use v5.10; 

use IPC::Run3; 

my $file = shift; 

my($out, $err); 
run3(['svn', 'ls', $file], undef, \$out, \$err); 
if($?) { 
    say "svn ls failed: $err"; 
} 
else { 
    say "svn ls succeeded: $out"; 
} 

如果你想STDOUT和STDERR在同一個地方，你可以在兩個地方提供相同的變量。

my $out; 
run3(['svn', 'ls', $file], undef, \$out, \$out); 
if($?) { 
    say "svn ls failed: $out"; 
} 
else { 
    say "svn ls succeeded: $out"; 
}