perl - 如何在 Perl 中比较 2 个文件中的数据？

Question

例如:

文件 1:

Apple
Orange
grapes

文件 2:

Orange
grapes
Apple 

我正在尝试检查两个文件是否具有不同顺序的相同数据。

如何在不使用任何外部模块的情况下做到这一点？

Answer 1

use strict;
use warnings;

# $d{LINE} = TALLY
my ($n, %d) = (1);
while (<>){
    $d{$_} += $n;
    $n *= -1 if eof;
}

# Now get whatever kind of lines you are interested in.
my @same_in_both_files = grep { $d{$_} == 0 } keys %d;
my @surplus_in_file1   = grep { $d{$_} >  0 } keys %d;
my @surplus_in_file2   = grep { $d{$_} <  0 } keys %d;

# Or just get a true-false verdict.
my $files_differ = 1 if grep $_, values %d;