如何检测Perl数组中的重复代码引用？

我正在调试自己编写的复杂Perl代码（仍在开发阶段），其中有一个动态填充的数组，存储的是代码引用（本质为闭包）。该数组本不应存在重复项，但实际却出现了重复！我希望在程序中添加检测逻辑，在闭包操作数据导致最终结果异常、增加调试难度前尽早发现问题。

调试器输出 #

DB<0> x FORMATTERS
0  CODE(0x1f6d5e0)
   -> &Class::__ANON__[lib/Class.pm:284] in lib/Class.pm:279-284
1  CODE(0x1f6dc28)
   -> &Class::__ANON__[lib/Class.pm:284] in lib/Class.pm:279-284
2  CODE(0x1f6d5e0)
   -> REUSED_ADDRESS
3  CODE(0x1f6d5e0)
   -> REUSED_ADDRESS
4  CODE(0x1f6dc28)
   -> REUSED_ADDRESS
5  CODE(0x1f6d5e0)
   -> REUSED_ADDRESS
6  CODE(0x1f6d5e0)
   -> REUSED_ADDRESS
7  CODE(0x1f6dc28)
   -> REUSED_ADDRESS
8  CODE(0x231c800)
   -> &Class::__ANON__[lib/Class.pm:284] in lib/Class.pm:279-284
9  CODE(0x1f6d5e0)
   -> REUSED_ADDRESS
10  CODE(0x1f6dc28)
   -> REUSED_ADDRESS

注意：有三个不同项指向同一lib/Class.pm:279-284是正常的，但标注REUSED_ADDRESS的重复项不符合预期。

尝试的思路与草稿代码 #

调试器可以检测重复地址，但我最初尝试用哈希表时，发现无法直接将引用作为哈希键。下面是我写的未测试代码草稿：

# sketch; untested code
my @a; # array with unknown contents
my $duplicate = 0;
for (my $i = 0; $i <= $#a; ++$i) {
    for (my $j = 0; $j <= $#a; ++$j) {
        next if ($j >= $i);
        ++$duplicate
            if ($a[$i] == $a[$j]);
    }
}

高效检测方案 #

利用Scalar::Util的refaddr实现O(n)检测 #

你的草稿采用双重循环，时间复杂度为O(n²)，数组元素较多时效率低下。更高效的方式是使用Perl核心模块Scalar::Util提供的refaddr函数，它能返回引用的内存地址（整数），可直接作为哈希键快速检测重复。

实现代码

use Scalar::Util 'refaddr';

# 替换成你的动态填充数组
my @formatters = ...;
my %seen_refs;
my @duplicate_records;

foreach my $index (0 .. $#formatters) {
    my $coderef = $formatters[$index];
    my $addr = refaddr($coderef);
    
    if (exists $seen_refs{$addr}) {
        # 记录重复项的位置信息
        push @duplicate_records, {
            current_index => $index,
            ref_address   => sprintf('0x%x', $addr),
            first_seen_at => $seen_refs{$addr}
        };
    } else {
        # 记录首次出现的位置
        $seen_refs{$addr} = $index;
    }
}

# 输出检测结果
if (@duplicate_records) {
    warn "检测到重复的代码引用：\n";
    foreach my $dup (@duplicate_records) {
        warn sprintf("  索引%d的引用(地址%s)与索引%d重复\n",
            $dup->{current_index}, $dup->{ref_address}, $dup->{first_seen_at});
    }
} else {
    print "未发现重复的代码引用\n";
}

方案说明

• refaddr返回的内存地址与调试器显示的地址完全对应，能精准识别重复的代码引用。
• 哈希表记录的方式仅需遍历数组一次，时间复杂度为O(n)，效率远高于双重循环。
• 同时记录重复项的首次出现位置和当前位置，便于快速定位代码中重复添加引用的逻辑。

优化双重循环方案（不推荐） #

如果坚持使用双重循环，可优化逻辑避免重复检查（内层循环从$i+1开始），但效率仍不如哈希表方案：

my $duplicate_count = 0;
my @a = ...; # 你的数组

for (my $i = 0; $i <= $#a; ++$i) {
    # 内层循环从i+1开始，避免重复检查同一对元素
    for (my $j = $i + 1; $j <= $#a; ++$j) {
        if ($a[$i] == $a[$j]) {
            warn "索引$i和$j的代码引用重复\n";
            $duplicate_count++;
        }
    }
}

内容的提问来源于stack exchange，提问作者U. Windl