一個數(shù)組中有重復(fù)的元素怎么把這些重復(fù)的元素只保留一個

賽萌

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

yybmsrs

你先用最笨的方法實(shí)現(xiàn)一個

jason680

回復(fù) 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)

復(fù)制代碼

bikong0411

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

復(fù)制代碼

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

復(fù)制代碼