这是 CPAN Uniq 模块中的错误吗？

Question

use Uniq;

my @test1 = ("0","0","A");
my @test2 = ("1","1","A");

@test1 = uniq sort @test1;
@test2 = uniq sort @test2;

print "$_" for @test1;
print "\n";
print "$_" for @test2;
print "\n";

---

returns :

00A
1A

是否应该是0A？

Answer 1

我建议使用 uniq 函数来自 List::MoreUtils：

use strict;
use warnings;

use List::MoreUtils qw/uniq/;

my @test1 = uniq qw(0 0 A);
my @test2 = uniq qw(1 1 A);

print "@test1\n@test2\n";

Uniq 模块版本为 0.1，仅发布过一个版本，那是在 2003 年。在选择模块时，请务必检查此类信息。具有多个版本（尤其是最近版本）的模块往往比只有一个或几个版本的模块更好。

Answer 2

我猜。这是 uniq 的源代码

1: sub uniq{
2:  # Eliminates redundant values from sorted list of values input.
3:  my $prev = undef;
4:  my @out;
5:  foreach my $val (@_){
6:      next if $prev && ($prev eq $val);
7:      $prev = $val;
8:      push(@out, $val);
9:  }
10: return @out;
11: }

第 6 行中的过滤器仅适用复制和 true 值，因此不会捕获重复的 "0" 值。为什么不提交错误报告？

Answer 3

这似乎与 CPAN 上报告的模块 Array::Uniq 的错误相同：Array::Uniq 不处理包含零值条目的数组。 Uniq 和 Array::Uniq 是包名称；我通过 .pm 文件的 unix diff 证明了这一点。它们都是由同一作者创建的。

该错误报告是 4 年前（2006 年）提交的，至今仍处于开放状态，作者从未回复过。作者应该删除这两个冗余模块之一。我认为可以合理地假设作者已停止维护这两个模块。使用其他答案提出的替代模块之一。