本日はPerlに関する小ネタ。というか忘れないようにするメモ。 Perlで配列を簡単にハッシュにするには、 my @array = ( foo, bar, baz ); my %hash = map { $_ => 1 } @array; # %hash = ( foo => 1, bar => 1, baz => 1 ); みたいにすればいい。誰でも思いつきそうやり方だけど最近まで気づかなかった。 でコレを利用すると配列からユニークな要素を取り出せる。 my @array = ( foo, bar, baz, foo, bar, baz, hoge, huga, moge ); my @array2 = keys map { $_ => 1 } @array; # @array2 = ( foo, bar, baz, hoge, huga, moge ); ++[date:2006/09