作为更大的Perl程序的一部分,我正在检查文件夹中的输入文件的diff命令的输出,以引用文件,其中空白输出(匹配)是传递结果,并且diff的任何输出都是失败的结果.
问题是,如果目标文件夹对预期文件的数量较短,则异常diff throws不会作为输出,创建false pass.
输出示例：
diff: /testfolder/Test-02/test-output.2: No such file or directory
Test-01：PASS
Test-02：PASS
代码如此：
$command = "(diff call on 2 files)";
my @output = `$command`;
print "Test-02: ";
$toPrint = "PASS";
foreach my $x (@output) {
if ($x =~ /./) {
$toPrint = "FAIL";
}
}