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

Perl是一种强大的脚本语言，常用于文本处理和系统管理任务。在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;
}

这段代码首先定义了一个哈希表%seen来存储已经遇到的行和它们所在的文件名。然后，它遍历命令行参数中提供的所有文件，打开每个文件并逐行读取。如果遇到一个之前没有见过的行，它会记录这个行和文件名。

最后，代码再次遍历所有文件，这次是为了打印出那些唯一的行及其所在的文件名。为了避免重复打印相同的唯一行，它在打印后从哈希表中删除该行。

应用场景：