Perlで簡単なテキストフィルタ

Perlで簡単なテキストフィルタをしばらく前に作ったので抜粋。

1行ごとにフィルタに引っかからなかったらファイルに出力するというシンプルな物。

結構便利です。ORでどんどんフィルタを追加できますし。（笑）

foreach (@csvfile){
	chomp;
	$line = $_;

     if (!($line =~ /to_filter_word1/i || $line =~ /to_filter_word2/i || $line =~ /to_filter_word3/i)) { 
	print K "$line\n";
     }

}

ただ一行ずつ処理しているので、ビッグデータには向きません。