系统命令输出泄漏-Perl

Question

刚开始在这里使用Perl。 我以前已经成功使用反引号捕获了Perl中的系统命令输出，例如：

my @sysOut = `cleartool checkout -nc \"$file\"`; # works fine!

但是我遇到了一些麻烦，即使环顾了一段时间，也没有找到解决该问题的方法。 我正在尝试编写一个Perl脚本，以使用cleartool检入已检出文件(@allfiles)的列表，除非有任何与其先前版本相同的东西，然后取消检出它们。

我正在（...失败了！）检测它们是否相同的方法是从尝试尝试中获取输出，查看其是否与/error.*identical/i相匹配，然后取消校验文件。 但是，由于某种原因，输出似乎绕过了我要传递给它的数组。
请参阅产生此问题的代码：

foreach my $file (@allfiles){ 
    chomp( my @checkInErr = `cleartool checkin -nc \"$file\"`);
    foreach my $err (@checkInErr) { # if no error, checkin done
        if ($err =~ m/error.*identical/i) {  # if there is error:
            print $err; 
            print "No change detected: unchecking out.\n"; # uncheckout same version
            system "cleartool uncheckout -rm -cact \"$file\""; 
        }
    } 
}

这是我的命令行输出（就像我刚刚使用过system（）调用一样）：

cleartool: Error: Unable to check in "a5TI.txt".
cleartool: Error: By default, won't create version with data identical to predecessor.
cleartool: Error: Unable to check in "a6cm.txt".
cleartool: Error: By default, won't create version with data identical to predecessor.
cleartool: Error: Unable to check in "a6FT.txt".
cleartool: Error: By default, won't create version with data identical to predecessor.
cleartool: Error: Unable to check in "a6pm.txt".
cleartool: Error: By default, won't create version with data identical to predecessor.
cleartool: Error: Unable to check in "a6TI.txt".
cleartool: Error: By default, won't create version with data identical to predecessor.

解决方案：在获取输出时还要检查std错误流（回想起来，这很有意义，因为我试图解析错误消息...哦）

my @checkInErr = `cleartool checkin -nc \"$file\" 2>&1`;

Answer 1

cleartool的错误输出可能不在标准输出（stdout）上输出。 运气好的话，它会出现在标准错误（stderr）中。 如果是这样，这应该起作用：

system "cleartool uncheckout -rm -cact \"$file\" 2>&1";