正規表現

#17 正規表現を使ってみよう

use strict;
use warnings;

# ファイル出力
# 正規表現

open(my $in, "<" , "test.dat" ) or die ("could not open file.");

while(<$in>){
        $_ =~s/123/わん/;
        print $_;

}

close($in);

以下の結果に置換された。

    abc
    def
    ghi
    わん
    456
    789

ファイルの中身は変わりません。

use strict;
use warnings;

# ファイル出力
# 正規表現

open(my $in, "<" , "test.dat" ) or die ("could not open file.");

while(<$in>){
        $_ =~s/abc/わん/;
        if($_=~/[a-z]/){
                print $_;
        }
}
close($in);

    def
    ghi

と表示されたことを確認。

最初に置換し、その後正規表現で当てはまったものだけを表示 しているため、上記の様な表示になった。