perl 多行多次匹配

在 Perl 中，可以使用正则表达式的 `/g` 修饰符以及 `while` 循环来进行多行多次匹配。具体做法是：

1. 将字符串存储到一个变量中。
2. 使用 `while` 循环和正则表达式的 `/g` 修饰符进行匹配，直到字符串中没有匹配项为止。
3. 在循环中，可以使用正则表达式的 `/m` 修饰符来实现多行匹配。

示例代码：

my $str = "This is line 1.\nThis is line 2.\nThis is line 3.";

while ($str =~ /(.*)\n/g) {
    my $line = $1;
    print "Line: $line\n";
}

输出结果：

Line: This is line 1.
Line: This is line 2.
Line: This is line 3.

在上面的示例中，使用 `/g` 修饰符进行多次匹配，每次匹配一行文本。使用 `/m` 修饰符可以让 `.` 匹配任意字符，包括换行符，从而实现多行匹配。

相关问题

perl:匹配多行文本

在Perl中，可以使用正则表达式和特殊变量来匹配多行文本。下面是一个示例代码，可以匹配一个文本块中包含特定字符串的行：

while ($text =~ /(.*string.*\n){2,}/g) {
    print $&;
}

其中，`$text`是包含多行文本的字符串变量，`/(.*string.*\n){2,}/g`是匹配多行文本的正则表达式，其中`.*`表示匹配任意字符，`string`表示要匹配的字符串，`\n`表示匹配换行符，`{2,}`表示至少匹配两次。`$&`是特殊变量，表示当前匹配的字符串。

上述代码中，使用了`while`循环和`/g`修饰符，可以匹配多个包含特定字符串的文本块。每次匹配到一个文本块，就打印出来。

Perl脚本多行转为一行

您可以使用Perl的正则表达式和替换操作来将多行文本转换为单行。以下是一个简单的Perl脚本示例，可以把多行文本转换为单行：

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

my $input = join("", <>);  # 读取所有输入行并连接为一个字符串
$input =~ s/\s+/ /g;       # 将所有空白字符替换为单个空格
print $input;

您可以使用重定向操作符来将输入文件传递给脚本，例如：

$ perl script.pl < input.txt > output.txt

这将把名为“input.txt”的文件作为输入，并将结果写入名为“output.txt”的文件中。