Perl で、配列中の重複レコードを削除するには?

配列の中にある重複するレコードを削除する場合、Perl なのでいろいろな方法があると思うが、以下のコードを試してみて欲しい。
#/usr/bin/perl -w

my @array = ('a', 'b', 'c', 'a');

my %count;
@array = grep {!$count{$_}++} @array;

print @array; # 出力は abc となる。

1;
トラックバック URL: https://perltips.twinkle.cc/trackback/83
Posted on 2006-04-22 by yas |
PHP で、配列中の重複レコードを削除するには?
Trackback from Perl Tips: PHP には配列中の重複するレコードを削除するための、array_unique......
Posted by Perl Tips (未認証ユーザ) on 2006/05/09(火) 06:20
MySQL で、重複レコードを抽出する方法
Trackback from Perl Tips: MySQL (まぁ、単なる SQL)で、データベース中の重複レコードを除いて検......
Posted by Perl Tips (未認証ユーザ) on 2006/05/19(金) 20:08