人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Perlで複数(3個以上)の配列の共通要素を調べる方法を教えてください。
@a = (1,2,3,4,5);
@b = (1,5,6,8);
@c = (2,4,5);
@d = (1,2,3,5);
で5が出てくるようにするにはどうすればいいでしょうか。

●質問者: peppon
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:Perl 配列
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● kn1967
●100ポイント ベストアンサー
# データ準備
@a = (1,2,3,4,5);
@b = (1,5,6,8);
@c = (2,4,5);
@d = (1,2,3,5);

# データ毎の個数を数える
%h;
foreach $k((@a,@b,@c,@d)) {
 $h{$k} => $h{$k}++;
}

# 配列がaからdの四つなので個数が4のものを表示
while(($k,$v) = each%h) {
 if($v == 4) {
 print "$k\n";
 }
}

Windows版でのみ動作確認しております。

◎質問者からの返答

おーありがとうございまっす!!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ