如何用Perl统计文件中数组各唯一元素的出现次数（无出现则计1）

原代码存在的问题 #

第一段代码 #

• 文件句柄<$file>在首次循环时就读取至文件末尾（EOF），后续循环无法再读取文件内容，仅能检查数组第一个元素
• 无计数逻辑，仅打印匹配提示，无法统计出现次数
• 未处理元素未出现时计数为1的需求

第二段代码 #

• 每次行循环都重置$k为0，仅检查数组第一个元素abc，完全忽略其他元素
• 缺乏计数逻辑，无法实现统计功能

正确实现代码 #

use strict;
use warnings;

my @my_array = ("abc", "aab", "def");
# 初始化哈希，存储每个元素的初始计数为0
my %counts = map { $_ => 0 } @my_array;

# 打开文件，添加错误信息便于调试
open my $file, '<', 'filename.txt' or die "无法打开文件: $!";

while (my $line = <$file>) {
    # 遍历所有目标元素，检查当前行是否包含该元素
    foreach my $elem (@my_array) {
        # \Q和\E用于转义元素中的正则特殊字符，避免匹配出错
        $counts{$elem}++ if $line =~ /\Q$elem\E/;
    }
}
close $file;

# 输出结果：未出现的元素计数设为1，否则使用实际统计数
foreach my $elem (@my_array) {
    my $final_count = $counts{$elem} || 1;
    print "$elem - $final_count\n";
}

代码说明 #

• 哈希初始化：通过map将数组元素快速转为哈希键，初始计数设为0，便于后续累加统计
• 文件遍历与匹配：逐行读取文件，对每行检查所有目标元素；使用\Q$elem\E转义元素中的正则元字符（如+*?等），避免意外的正则匹配行为
• 结果处理：遍历数组元素，若统计计数为0（元素未在文件中出现）则将计数设为1，否则保留实际统计值，按要求格式输出

测试输出 #

使用你提供的示例文件运行代码，输出与期望完全一致：

aab - 2
abc - 1
def - 1

内容的提问来源于stack exchange，提问作者flash