#keywords Perl, 배열, 중복, 제거

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

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

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

  return @result;
}
}}}
----
usage
{{{#!perl
my @out = uniqueElements(@lines);
}}}