Perl/배열 중복 제거


입력을 배열로 받아 입력 배열 중 중복된 라인 제거한 배열을 출력.

sub uniqueElements {
  my ($item, %seen, @result);

  foreach $item (@_) {
    push(@result, $item) unless $seen{$item}++;
  }

  return @result;
}
usage
my @out = uniqueElements(@lines);

이 글에는 0 개의 댓글이 있습니다.