質問編集履歴

1

二つ目のループ内の$j=$a[0]を$b[0]に修正しました。

2022/07/06 11:42

投稿

scrap_shop
scrap_shop

スコア1

test CHANGED
File without changes
test CHANGED
@@ -1,5 +1,9 @@
1
1
  質問の内容
2
2
  ファイル2の文字列がファイル1の2列目の文字列と部分一致している場合、数をカウントし出力する方法について質問です。
3
+
4
+ resultの3個目の3個目の値は値は1つ目、2つ目の文字列が入っているのをが入っているのを除外したいので除外したいので求めたい求めたい値は値は4です。
5
+
6
+ result
3
7
  ```fail1
4
8
  111 AAA_BBB_CCC_DDD_1
5
9
  222 AAA_BBB_CCC_DDD_2
@@ -9,7 +13,7 @@
9
13
  666 AAA_BBB_1
10
14
  777 AAA_BBB_2
11
15
  888 AAA_BBB_3
12
- 999 AAA_BBB_4
16
+ 999 AAA_BBB_4
13
17
  ```
14
18
  ```fail2
15
19
  AAA_BBB_CCC_DDD
@@ -39,7 +43,7 @@
39
43
  while(<INF2>){
40
44
  chomp;
41
45
  @b=split;
42
- $j = $a[0];
46
+ $j = $b[0];
43
47
  if ($i =~ $j) {
44
48
  $keyword{$j}++;
45
49
  }
@@ -50,4 +54,4 @@
50
54
  ```
51
55
  試したこと
52
56
  多重ループを組み、正規表現で部分一致させながら集計したが、ファイルの量が膨大なため多重ループを組まない方法を模索中
53
- ループが終了後の変数の保持がうまくいかない
57
+ ループが終了後の変数の保持がうまない