[Perl] => [配列]


この日記のはてなブックマーク数 このエントリーを含むはてなブックマーク
配列からユニークな要素を取り出したい場合にはmap関数を使用して一旦連想配列に入れます。

[例]
#!/usr/bin/perl

@array = qw/ユニーク ユニーク ユニーク2/;

#まず配列の第一要素である「ユニーク」が連想配列に $hash{'ユニーク'} = 1 として代入されていきます。
#次に配列の二番目の要素である「ユニーク」は最初に作成された連想配列の値を上書きして $hash{'ユニーク'} = 1 として格納されます。
my %hash = map { $_ => 1} @array;

#ソートして配列に入れる
my @unique_array = sort keys %hash;

foreach (@unique_array){
  chomp $_;
  print "$_
";
}


[出力結果]
ユニーク
ユニーク2


関連記事
無名配列 => 無名ハッシュのソート
配列をランダムに並び変え
配列の区切り文字
配列の差分
配列のソート
配列からユニークな要素の取り出し
map
grep - 文字列検索
unshift - 配列の最初に要素を追加するには
shift - 配列の最初の要素を取り除く
pop - 配列の最後の要素を取り除く
push - 配列の最後に要素を追加するには
reverse - 配列の順序を逆順にする
配列の個数を参照するには
広告