Perl
grep

マッチした文字列の行を出力したい

More than 1 year has passed since last update.

目的

シェルコマンドのgrepのように、マッチした文字列の行を出力したい

環境

CentOS 7

コード

  • perlのgrep関数は期待した結果と異なる為、system関数を使ってシェルコマンドのgrepを呼び出す
  • grepでマッチした文字列があれば、戻り値として0を回答する。以下の例であれば、$return_codeに0またはそれ以外の値が入る
test.pl
use strict;
use warnings;
use utf8;

my $policy = "test";
my $return_code = system("grep $policy target.txt > data.txt");

if($return_code ne 0) {
    exit;
}
    print "次の処理を続ける"