Perl正则表达式怎样处理多行文本

在Perl中，正则表达式默认是单行的。要处理多行文本，你需要使用修饰符m（多行模式）和s（单行模式）。

要在多行模式下使用正则表达式，需要在正则表达式的开头添加m修饰符。这样，.将匹配包括换行符在内的任意字符。例如：

#!/usr/bin/perl
use strict;
use warnings;

my $text = "Line 1\nLine 2\nLine 3";

if ($text =~ /^(\w+)\s+(\w+)/m) {
    print "Match found: $1 $2\n";
} else {
    print "No match found\n";
}

在这个例子中，我们使用了m修饰符来匹配多行文本。^和$分别匹配每行的开头和结尾，\w+匹配一个或多个单词字符。

如果你想在多行模式下使用s修饰符（将.匹配包括换行符在内的任意字符），只需在正则表达式的开头添加m修饰符即可。例如：

#!/usr/bin/perl
use strict;
use warnings;

my $text = "Line 1\nLine 2\nLine 3";

$text =~ s/foo/bar/g;
print $text;

在这个例子中，我们使用了s/foo/bar/g来替换所有出现的"foo"为"bar"。由于我们添加了m修饰符，.将匹配包括换行符在内的任意字符。