Perl搜索唯一行和相应的文件名

use strict;
use warnings;

my %seen;
my @unique_files;

# 遍历所有文件
foreach my $file (@ARGV) {
    open(my $fh, '<', $file) or die "无法打开文件 '$file' $!";
    while (my $line = <$fh>) {
        chomp $line;
        # 如果行是唯一的，记录文件名
        if (!exists $seen{$line}) {
            $seen{$line} = $file;
            push @unique_files, $file;
        }
    }
    close $fh;
}

# 输出唯一行及其文件名
foreach my $file (@unique_files) {
    open(my $fh, '<', $file) or die "无法打开文件 '$file' $!";
    while (my $line = <$fh>) {
        chomp $line;
        if (exists $seen{$line} && $seen{$line} eq $file) {
            print "$line (文件: $file)\n";
            delete $seen{$line}; # 避免重复打印
        }
    }
    close $fh;
}