perl:匹配多行文本

通常，正则表达式是针对单行文本的。由于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;