perl:匹配多行文本

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

通常，正则表达式是针对单行文本的。由于Perl 可以处理任意长度的字符串，因此，Perl 的模式可以轻易的对多行文本进行匹配，就像单行文本一样。当然，表达式中应当包含多行文本。下面的字符串中有4 行：
$_ =“I’am much better\nthan Barney is\nat bowling,\nWilma,\n”;
锚定^和$是指整个字符串的开头和结束，加强了理解，^和$指的是字符串的首和尾，并不是针对单行的。但/m 这个正则表达式选项允许它们根据内部的换行符进行匹配（/m表示多行）。这时锚定针对每一行，而非整个字符串。因此，这个模式可以匹配上：
print “Found ‘wilma’at start of line\n”if /^wilma\b/im;
同样的，在多行字符串中，也可以分别针对单行进行替换。在下面的例子中，我们将整个文件读入一个变量之中，然后将文件名字加在每一行的开头处：
open FILE, $filename
or die “Can’t open ‘$filename’: $!”;
my $lines = join '', <FILE>;
$lines =~ s/^/$filename: /gm;