Perl 重複確認

メモ

多くの場合は以下のハッシュを使うやり方がお手軽かつ高速と思われる。
以下 b に存在する a のみ出力するプログラム。 b に存在しない a のみ出力したい場合は if を unless に変更。

ソース

my @a = (1, 3, 5, 7, 9);
my %a;
$a{$_} = 1 for @a;

my @b = (1, 2, 3, 5, 8);
my %b;
$b{$_} = 1 for @b;

foreach (@a) {
    if (defined $b{$_}) {
        print $_;
    }
}

  • 最終更新:2013-06-10 12:36:30

このWIKIを編集するにはパスワード入力が必要です

認証パスワード