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?!
谢谢
最佳答案
我建议使用 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 年。选择模块时,请务必检查此类信息。具有多个版本(尤其是最近的版本)的模块往往比只有一个或几个版本的模块更好。
关于arrays - 这是 CPAN Uniq 模块中的错误吗?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3969406/