perl - 比较两个文件时，如何跳过(忽略)空行？

Question

我正在将行与两个文本文件的行进行比较，ref.txt (引用)和 log.txt .但是我想忽略任一文件中的任意数量的空行；我怎样才能做到这一点？

ref.txt

one

two


three



end

log.txt

one
two
three
end

输出中不会有不正确的日志行，换句话说 log.txt与 ref.txt 匹配.

我喜欢用伪代码完成什么:

while (traversing both files at same time) {
    if ($l is blank line || $r is blank line) {
        if ($l is blank line)
            skip to next non-blank line
        if ($r is blank line)
            skip to next non-blank line
    }
    #continue with line by line comparison...
}

我目前的代码:

use strict;
use warnings;

my $logPath    = ${ARGV [0]};
my $refLogPath = ${ARGV [1]} my $r;    #ref log line
my $l;                                 #log line

open INLOG, $logPath    or die $!;
open INREF, $refLogPath or die $!;

while (defined($l = <INLOG>) and defined($r = <INREF>)) {
    #code for skipping blank lines?
    if ($l ne $r) {
        print $l, "\n";                #Output incorrect line in log file
        $boolRef = 0;                  #false==0
    }
}

Answer 1

如果您使用的是 Linux 平台，请使用:

diff -B ref.txt log.txt

-B选项会导致仅插入或删除空行的更改被忽略