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

スポンサーサイト

   ↑  --/--/-- (--)  カテゴリー: スポンサー広告
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

(記事編集) http://mesosune.blog123.fc2.com/?overture" target="_new

--/--/-- | Comment (-) | HOME | ↑ ページ先頭へ |

【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
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。