FC2ブログ
 

LotusNotesな日々IBM社のLotusNotesに関係する何かを日々語ってるようなきがしないでもないブログです。 

【Perl】配列からユニークな値を取り出す

   ↑  2009/07/04 (土)  カテゴリー: PHP/Perl
my @array = ( foo, bar, baz, foo, bar, baz, hoge, huga, moge );

#方法1
my $x = '-';
my @uniq = grep( $_ ne $x && ($x = $_), @array );

#方法2
my @uniq = do { my %t; grep !$t{$_}++ , @array };

#方法3
my %hash = map { $_ => 1 } @array;
my @uniq = keys %hash;

一番早いのは方法3だとおもうけど。
ちゃんとベンチマークしてないので言いきれないです。
スポンサーサイト



(記事編集) http://mesosune.blog123.fc2.com/blog-entry-177.html

2009/07/04 | Comment (0) | Trackback (0) | HOME | ↑ ページ先頭へ |
この次の記事 : 【Windows】WSHとPowerShell
この前の記事 : 【Notes】最近の流行とNotes/Domino

Comment

コメントを投稿する 記事: 【Perl】配列からユニークな値を取り出す

お気軽にコメントをぞうぞ。
非公開 (管理人のみ閲覧可能なコメント) にしたい場合には、ロック にチェックを入れてください。

  任意 : 後から修正や削除ができます。
  非公開コメントとして投稿する。(管理人にのみ公開)
 

Trackback

この次の記事 : 【Windows】WSHとPowerShell
この前の記事 : 【Notes】最近の流行とNotes/Domino