Perl正则表达式替换文本的例子

#!/usr/bin/perl
# perl文本替换操作
# s/<pattern>;/<replacement>;/g 表示把待处理字符串中所有符合 <pattern>; 的模式全部替换为 <replacement>; 字符串，而不是只替换第一个出现的模式。
$string = "I love perl, perl love me";
$string =~ s/(love)/<$1>/g; # 此时 $1 = "love"，并且该替换的结果是将 $string 变为 I <love> perl, perl <love> me
print $string, "n";
# s/<pattern>;/<replacement>;/e 表示将把 <replacemnet>; 部分当作一个运算符，这个参数用的不多。举例如下：
$string = "www22cgi44";
$string =~ s/(d+)/$1*2/e; # (/d+)代表 $string 中的一个或多个数字字符，将这些数字字符执行 *2 的操作，
print $string;   # 因此最后 $string 变成了 "www44cgi88"。

#!/usr/bin/perl
$_ = "
abc
ABC
aaa
AAA
BBB
bbb
CCC
ccc
AAA
";
s/AAA/123/;
print "$_n";