配列からユニークな要素の取り出し

[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

	新版Perl言語プログラミングレッスン入門編￥ 2,835 / 売り上げランク: 6218 / 512 ページ非常に分かりやすい。今までにも様々な参考書に目を通してきていたが、その中でもこの本かなり読みやすく、丁寧に書かれていた。初心者には特にお勧め。初心者以外の方でも軽く目を通す価値はあると思う。
	Code Reading―オープンソースから学ぶソフトウェア開発技法￥ 5,460 / 売り上げランク: 7366 / 523 ページ CodeCompleteとCodeReadingを併せて読むとよいと、組込み系のSESSAMEプロジェクトのメーリングリストと、 OS系のTOPPERSプロジェクトのメーリングリストで推薦を受けました。 CodeCompleteは読んだことがあったので、CodeReadingを読んでいます。オープンソースを仕事にしているので、たいへん役立っています。 MISRA-Cは研修で取り上げてきたので、本書も研修の資料としても取り上げるように準備中です。
	初めてのPerl ￥ 3,780 / 売り上げランク: 7981 / 379 ページいわゆるリャマ本として知られる定番書初めてのとあるが初心者向きではないと思う。よくできてはいるが、、。