[perl]配列のソートとユニーク化 だぶりチェック。効率は悪そうだが。。。 @ary = sort @ary; $x = '-'; @uniq_ary = grep($_ ne $x && ($x = $_),@ary );