回答編集履歴

1

補足

2020/06/07 16:11

投稿

KojiDoi
KojiDoi

スコア13669

test CHANGED
@@ -41,3 +41,19 @@
41
41
 
42
42
 
43
43
  gawk(gnu awk)以外ではmatchは期待通りに動かないかもしれません。
44
+
45
+
46
+
47
+ # 追記
48
+
49
+
50
+
51
+ ちなみに、perlならもっと短く書けます。
52
+
53
+
54
+
55
+ ```
56
+
57
+ perl -F"\t" -ane 'print "$ARGV $1\n" while ($F[9]=~/(COG\d{3})/g); *.inputfile'
58
+
59
+ ```