Perl:删除两个文件之间的唯一行

open(my $file1, "<", "file1.txt") or die "无法打开文件1: $!";
open(my $file2, "<", "file2.txt") or die "无法打开文件2: $!";

my @lines1 = <$file1>;
my @lines2 = <$file2>;

close($file1);
close($file2);

my %count;

foreach my $line (@lines1) {
    chomp($line);
    $count{$line}++;
}

foreach my $line (@lines2) {
    chomp($line);
    if ($count{$line} == 1) {
        delete $count{$line};
    }
}

open(my $output, ">", "output.txt") or die "无法打开输出文件: $!";

foreach my $line (@lines2) {
    print $output "$line\n";
}

close($output);