[perl] Perl의 배열에서 중복 항목을 어떻게 제거합니까?

Perl 문서에는 멋진 FAQ 모음이 포함되어 있습니다. 자주 묻는 질문 :

% perldoc -q duplicate

위 명령의 출력에서 ​​복사하여 붙여 넣은 답변은 다음과 같습니다.

/usr/local/lib/perl5/5.10.0/pods/perlfaq4.pod에 있습니다.
 목록이나 배열에서 중복 요소를 제거하려면 어떻게해야합니까?
   (brian d foy 제공)

   해시를 사용하십시오. "고유 한"또는 "중복 된"이라는 단어를 생각할 때
   "해시 키".

   요소의 순서에 신경 쓰지 않으면 그냥 할 수 있습니다.
   해시를 만든 다음 키를 추출하십시오. 당신이 어떻게 중요하지 않습니다
   해시 만들기 : "키"를 사용하여 고유 한 요소를 가져 오면됩니다.

       내 % hash = map {$ _, 1} @array;
       # 또는 해시 슬라이스 : @hash {@array} = ();
       # 또는 foreach : $ hash {$ _} = 1 foreach (@array);

       내 @unique = 키 % hash;

   모듈을 사용하려면 "uniq"기능을 사용해보십시오.
   "List :: MoreUtils". 목록 컨텍스트에서 고유 한 요소를 반환합니다.
   목록에서 순서를 유지합니다. 스칼라 컨텍스트에서
   고유 한 요소 수

       List :: MoreUtils 사용 qw (uniq);

       내 @ 고유 = uniq (1, 2, 3, 4, 4, 5, 6, 5, 7); # 1,2,3,4,5,6,7
       내 $ unique = uniq (1, 2, 3, 4, 4, 5, 6, 5, 7); # 7

   또한 각 요소를 살펴보고 본 요소를 건너 뛸 수 있습니다
   전에. 해시를 사용하여 추적하십시오. 루프가 처음으로
   % Seen에는 해당 요소가 없습니다. "다음"문은
   키는 즉시 "undef"라는 값을 사용하므로 루프
   "푸시"로 계속 진행하여 해당 키의 값을 증가시킵니다. 다음
   루프가 동일한 요소를 볼 때 그 키는 해시에 존재합니다.
   해당 키의 값은 0이거나 "unef"가 아니기 때문에 true이므로
   next는 해당 반복을 건너 뛰고 루프는 다음 요소로 이동합니다.

       내 @ 고유 = ();
       내 % seen = ();

       내 $ elem을 @each (@array)
       {
         다음에 $ seen {$ elem} ++;
         @unique, $ elem을 밀어;
       }

   grep을 사용하여 더 짧게 작성할 수 있습니다.
   알맞은 것.

       내 % seen = ();
       내 @ 고유 = grep {! $ seen {$ _} ++} @array;

답변

use strict;
use warnings;
use List::MoreUtils qw(uniq);

my @dup_list = qw(1 1 1 2 3 4 4);

my @uniq_list = uniq(@dup_list);

my %unique = ();
foreach my $item (@myarray)
{
    $unique{$item} ++;
}
my @myuniquearray = keys %unique;

%seen=();
@unique = grep { ! $seen{$_} ++ } @array;

my @in=qw(1 3 4  6 2 4  3 2 6  3 2 3 4 4 3 2 5 5 32 3); #Sample data 
my @out=keys %{{ map{$_=>1}@in}}; # Perform PFM
print join ' ', sort{$a<=>$b} @out;# Print data back out sorted and in order.

my @arr;
my @uniqarr;

foreach my $var ( @arr ){
  if ( ! grep( /$var/, @uniqarr ) ){
     push( @uniqarr, $var );
  }
}