Perl 펄] 영문 배열 고유 요소만 구하기, 대소문자 구분 없이; Unique Elements Ignore Case

#!/usr/bin/perl
use strict; use warnings;


  my @a = qw/ Cool cool APPLE apple COOL Test Apple applE /;

  # 중복된 요소 있는 원본 배열 출력
  print "$_ " foreach (@a);
  # 출력 결과: Cool cool APPLE apple COOL Test Apple applE
  # 원본과 똑같이, 쿨과 애플이 중복되어 있음


  print "\n\n\n"; # 줄바꿈


  # 중복된 요소 모두 삭제하고 출력, 대소문자 구분없이
  @a = uniqueElementsIgnoreCase(@a);
  print "$_ " foreach (@a);
  # 출력 결과: Cool APPLE Test
  # 이제 쿨과 애플이 한번씩만 들어 있음




# 주어진 배열에서, 중복되는 요소들을 모두 삭제하고 리턴하는 함수
# 대소문자 구분 없이
sub uniqueElementsIgnoreCase {
  my ($item, %seen, @result);

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

  return @result;
}