サイドコンテンツ 【メイン】

推し：加藤安那

加藤安那 (ユメオイ少女)

Twitter: @_hana_celeb_

最新 15 件のエントリー

カテゴリ

管理

サイドコンテンツ 【サブ】

ブログ エントリー

  • [perl] ２つの配列で、重複した要素のみを得る

    プログラム - 2013/03/08 11:24:10
    
my @array1 = qw/sudoumaasa michisigesayumi satoumaria /;
my @array2 = qw/satoumaria niwamikiho watanabehikaru mizoteruka/;

my @diff = grep { { map { $_, 1 } @array1 }->{$_} } @array2;

print join("\n", @diff);

    結果は satoumaria のみが表示される。

    my @diff = ～の行は

    
my $hashref1 = { map { $_, 1 } @array1 };
my @diff = grep { $hashref1->{$_} } @array2;

    のように２行で書くと分かりやすいと思う。