perl - ファイルを検索して、検索したキーワードを含む行を新しいファイルに出力するにはどうすればよいですか

Question

perlでキーワードを使用して大きなファイルを検索し、キーワードが表示されるすべての行をそれぞれ新しい行に出力しようとしています。

Answer 1

keyword以下は、 toを含むすべての行を出力しoutputFile.txtます。入力ファイルは、引数としてスクリプトに渡されます。

findkeyword.pl

#!/usr/bin/perl
use strict;
use warnings;

open OUTPUT, ">outputFile.txt"; 
while (my $line = <>) {
     if($line =~ m/keyword/){
     print OUTPUT $line;
     }
}

入力:

./findkeyword.pl inputfile1 inputfile2 ...

---

編集：コメントで@Kenosisが言ったように、

のようなファイルハンドルとしてレキシカルスコープの $fh を使用する方が良いかもしれませんopen(my $fh, ">", "outputFile.txt")。参照：open()

キーワードを変数に格納している場合は、quotemeta最初にそれを呼び出すか、\Q...\E.