【Perl】文字列を置換する方法

【Perl】文字列を置換する方法

// 合致する最初の文字列を置換する場合
=~ s/置換前文字列/置換後文字列/

// 合致する文字列を全て置換する場合 
=~ s/置換前文字列/置換後文字列/g

perlで文字列を置換するには合致する最初の文字列を置換する場合は「=~ s/置換前文字列/置換後文字列/」、合致するすべての文字列を置換する場合は「=~ s/置換前文字列/置換後文字列/g」にて文字列置換が可能です。

なお、Javaなどにあるreplaceメソッドなどはありません。

my $str = "aaaabbbb";
print "$str\n";
$str =~ s/a/c/;
print "$str";

//実行結果
aaaabbbb
caaabbbb

上記では、最初の一字だけ「aaaabbbb」➡「caaabbbb」に置換ができることを確認できました

「$str =~ s/a/c/;」を「$str =~ s/a/c/g;」に変えることで、合致する文字列すべての置換が可能です。

my $str = "aaaabbbb";
print "$str\n";
$str =~ s/a/c/g;
print "$str";

//実行結果
aaaabbbb
ccccbbbb

Perl の記事一覧へ