一个数组中有重复的元素怎么把这些重复的元素只保留一个

赛萌

如：@w=qw(3 5 6 7 5 3);怎么得到@m=(3 5 6 7)

yybmsrs

你先用最笨的方法实现一个

jason680

回复 1# 赛萌

my %_;
my @m = grep{!$_{$_}++}@w;
   

104359176

1. use List::MoreUtils qw(uniq);
   
2. 
   
3. my @list = (1,2,2,3);
   
4. 
   
5. uniq(@list) eq (1,2,3)

复制代码

bikong0411

1. perl -e '@w=qw(3 5 6 7 5 3);%h; map {$h{$_}=1} @w;@w = keys %h;print "@w";'

复制代码

1. perl -MList::MoreUtils=uniq -e '@w=qw(3 5 6 7 5 3);@w=uniq @w;print "@w";'

复制代码