perl - 当反引号命令失败时如何在 Perl 中获取错误消息

Question

我有一个变量 $deployment_tarfile 包含一个 tar 文件及其 svn 位置。在我的 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

要执行更复杂的程序，请使用 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";
}