要求：
比较两个文件的内容是否存在相同的行。
复制代码 代码如下:
#!/usr/bin/perl
use strict;
my %file_one;
open(my $fh_one, '<', 'filename1') or die $!;
open(my $fh_two, '<', 'filename2') or die $!;
while (<$fh_one>) {
chomp;
$file_one{$_} = 1;
}
while (<$fh_two>) {
chomp;
print "$_ this line already exist.n" if (exists $file_one{$_})
}
解释：
将每个文件的一行做为hash的key, 然后比较两个hash的key。
