配列から重複要素を取り除いてソート
# 配列から重複要素を取り除いてソート sub getUniqueArray{ my @items = @_; my %seen; my @uniq; foreach my $item (@items){ push(@uniq, $item) unless $seen{$item}++; } return sort @uniq; }
# 配列から重複要素を取り除いてソート sub getUniqueArray{ my @items = @_; my %seen; my @uniq; foreach my $item (@items){ push(@uniq, $item) unless $seen{$item}++; } return sort @uniq; }