arrays - 这是 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";

返回:

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 年。选择模块时，请务必检查此类信息。具有多个版本(尤其是最近的版本)的模块往往比只有一个或几个版本的模块更好。