perlでuniqを使うにはこうしよう

外部moduleを使わないのが手軽でいいです。


my @unique = do { my %seen; grep { !$seen{$_}++ } @data };


参照:
http://perlmaven.com/unique-values-in-an-array-in-perl
2015-03-24 : Work-Linux-Perl : コメント : 0 : トラックバック : 0
Pagetop
コメントの投稿
非公開コメント

Pagetop
« next  ホーム  prev »

プロフィール

zive

Author:zive
大阪在住、男

ブログ検索

月別アーカイブ

FC2カウンター