Perl-用正则表达式处理文本1

正则表达式可以用于修改文本，之前说的都是怎么利用正则表达式来进行模式匹配，现在我们来试一试怎么用正则表达式的模式修改特定位置的字符串

1. 用s///进行替换操作

m//模式匹配可以理解成文字处理的“查找”功能
s///替换操作符就是“查找并替换”功能，它将存在变量中的匹配模式的部分内容替换成另一个字符串

$_ = "He's out bowling with Barney tonight.";
s/Barney/Fred/; # 把Barny替换为Fred
print "$_\n";

不像m//可以匹配任意字符串表达式，s///修改的数据必须式预先存放在某个变量中的，这个变量一般位于该操作符的左边，所以也称为左值

如果匹配失败，啥也不会发生，原来变量中的内容也不会受影响

s/with (\w+)/against $1's team/;
print "$_\n"; # He's out bowling against Fred's team tonight

s///操作符返回的事布尔值，替换成功时为真，否则为假

$_ = "fred flintstne";
if(s/fred/wilma/){
	print "Successfully replaced fred with wilma!\n";
}

2. 用/g进行全局替换

s///操作符默认情况下只会替换第1个匹配的内容，即使有其它可以替换的部分，s///也只会进行1次替换，/g修饰符可让s///替换所有符合条件的字符串

$_ = "home, sweet home!";
s/home/cave/g;
print "$_\n"; # cave, sweet cave!

全局替换常用于缩减空白，将任何连续的空白转换成单一空格

$_ = "Input   data\t may have     extra whitespace.";
s/\s+//g; # Input data may have extra whitespace.

删减首尾的空白

s/\A\s+//g; # 删除开头的空格
s/\s+\z//g; # 删除末尾的空格

也等同于以下写法

s/\A\s+|\s+\z//g; # 不过这样运行的话，可能会慢一点

3. 不同的定界符

像m//和qw//一样，可以改变s///的定界符

s#\Ahttps://#http://#;

s{fred}{barney};
s[fred][barney];
s<fred><barney>;

4. 替换操作的修饰符

普通模式中的/i，/x，/s修饰符都可以用在替换操作中，修饰符的前后顺序莫得关系

s#wilma#Wilma#gi; # 将所有的WilmA或者WILMA等一律替换为Wilma
s{__END__.*}{}; # 将__END__标记和它后面的所有内容都删除掉

5. 绑定操作符

可以用绑定操作符为s///指定不同的替换目标

$file_name =~ s#\A.*##s; # 把文件名$file_name中所有unix风格的路径删除

6. 非破坏性替换

当我们需要同时保留原始字符串和替换后的字符串的时候，该怎么办呢？
传统的做法时先复制1份拷贝后再替换

my $original = 'Fred ate 1 rib';
my $copy = $original;
$copy =~ s/\d+ ribs?/10 ribs/;

也可以把2步合并为1步，然后针对副本变量进行替换

(my $copy = $original) =~ s/\d+ ribs?/10 ribs/; # 实际做替换的事副本变量$copy

但是这样写有点乱，perl 5.14增加了1个/r修饰符，加上/r之后，就会保留原来字符串变量中的值不变，而把替换结果作为替换操作的返回值返回

use v5.14;

my $copy = $orignal =~ s/\d+ ribs?/10 ribs/r;

这个例子中，运算顺序是相反的，先做替换操作，再赋值