Perl去除两个文件重复的行并计数

输入文件1

输入文件2

#!/usr/bin/perl
print ‘hello’;
use warnings;
use strict;
my %hash;
my $source_file = “read.log”; #去重文件1
my $source_file1 = “read1.log”; #去重文件2
my KaTeX parse error: Expected 'EOF', got '#' at position 28: …"num2.txt"; #̲结果文件 open (FILE…source_file") or die “Cannot open file KaTeX parse error: Undefined control sequence: \n at position 2: !\̲n̲"; open (FILE1,…source_file1”) or die “Cannot open file KaTeX parse error: Undefined control sequence: \n at position 2: !\̲n̲"; open (SORTED…dest_file”) or die “Cannot open file $!\n”;
while(defined (my $line = ))
{ KaTeX parse error: Can't use function '\r' in math mode at position 10: line=~s/[\̲r̲\n]//;
chomp($line);
KaTeX parse error: Expected '}', got 'EOF' at end of input: hash{line} +=1;
# print “$line,$hash{$line}\n”;
}
while(defined (my $line = ))
{ KaTeX parse error: Can't use function '\r' in math mode at position 10: line=~s/[\̲r̲\n]//;
chomp($line);
KaTeX parse error: Expected '}', got 'EOF' at end of input: hash{line} +=1;
# print “$line,$hash{$line}\n”;
}
foreach my $k(keysif($hash{KaTeX parse error: Expected 'EOF', got '}' at position 2: k}̲!=1){ print …k,KaTeX parse error: Expected '}', got 'EOF' at end of input: hash{k}\n";
print SORTED “$k\n”;#改行打印出列和该列出现的次数到目标文件
}
}
close (FILE1);
close (FILE);
close (SORTED);

CSDN:Perl脚本常用操作