多重ループを組まない２ファイルの部分一致を集計

Question

質問の内容
ファイル２の文字列がファイル１の２列目の文字列と部分一致している場合、数をカウントし出力する方法について質問です。

resultの３個目の３個目の値は値は1つ目、2つ目の文字列が入っているのをが入っているのを除外したいので除外したいので求めたい求めたい値は値は4です。

result

111 AAA_BBB_CCC_DDD_1
222 AAA_BBB_CCC_DDD_2
333 AAA_BBB_CCC_DDD_3
444 AAA_BBB_DDD_EEE_1
555 AAA_BBB_DDD_EEE_2
666 AAA_BBB_1
777 AAA_BBB_2
888 AAA_BBB_3
999 AAA_BBB_4  

AAA_BBB_CCC_DDD
AAA_BBB_DDD_EEE
AAA_BBB

AAA_BBB_CCC_DDD 3
AAA_BBB_DDD_EEE 2
AAA_BBB 4 

$INF1=$ARGV[0];
open(INF1,"< $INF1");

while(<INF1>){
        chomp;
        @a=split;
        $i = $a[1];
        $keyword{$i}++;
}

$INF2=$ARGV[1];
open(INF2,"< $INF2");

while(<INF2>){
        chomp;
        @b=split;
        $j = $b[0];
        if ($i =~ $j) {
                $keyword{$j}++;
        }
        printf ("%s ",$j);
        printf ("%s\n",$keyword{$j});
}

試したこと
多重ループを組み、正規表現で部分一致させながら集計したが、ファイルの量が膨大なため多重ループを組まない方法を模索中
ループが終了後の変数の保持がうまない

Comments

[melian]

AAA_BBB 4 となっていますが、9 ではないでしょうか？

[scrap_shop]

他の2つの文字列を除いて数えたいので4であっています。
条件分岐していけばいいだけですが

Answer 1

いろいろ突っ込みたいところがありますが、とりあえず気にしないことにして、深刻に変だと思ったところを挙げます。

• なぜ2番めのループで@aを参照してる？ この@aには何が入ってる？

Comments

[scrap_shop]

$j = $b[0];に修正しました。

Answer 2

※ 以下、while と for の多重ループです。前提条件に適合していませんので参考までに。。。

use strict;
use warnings;
use feature 'say';

my $text = shift @ARGV or die "missing text file";
my $search = shift @ARGV or die "missing search words file";

open my $SEARCH, '<', $search or die "$!";
my @w = <$SEARCH>;
chomp @w;
@w = sort { length $b <=> length $a } @w;

open my $TEXT, '<', $text or die "$!";
my %count;
$count{$_} = 0 for @w;

while(my $line = <$TEXT>) {
  $line = (split(/ /, $line))[1];
  $line =~ /$_/ and $count{$_} += 1 and last for @w;

}

say "$_ $count{$_}" for @w;