Perl多行正则多模式分组提取问题：跨行匹配异常

首先，你的代码遇到两个核心问题：一是逐行读取文件的方式没法处理跨行的内容匹配，二是正则表达式没精准定位到分隔线和后续的数字描述部分。下面直接给你修正方案和详细解释：

修正思路 #

1. 一次性读取全文件：取消逐行读取的逻辑，把整个文件内容读入内存，这样才能支持跨行匹配。
2. 优化正则表达式：调整正则规则，精准捕获你需要的三个分组，同时处理分隔线（下划线）数量不固定的情况，还要开启多行/单行模式支持跨行匹配。
3. 规范代码写法：使用更安全的词法文件句柄，开启严格模式避免潜在bug。

修正后的代码 #

use strict;
use warnings; # 强烈建议开启，能帮你提前排查代码问题

# 一次性读取整个文件内容
open(my $ifh, '<', 'file.txt') or die "无法打开文件: $!";
local $/; # 取消输入记录分隔符，一次性读入全部内容
my $content = <$ifh>;
close($ifh);

# 全局匹配所有符合格式的分组
while ($content =~ /^\s*(\w+_\d+.*?)\s*::\s*(.*?)\s*_+\s*(\d+\s+.*)$/gms) {
    print "标识: $1\n";
    print "文本内容: $2\n";
    print "数字描述: $3\n";
    print "-------------------------\n";
}

正则表达式关键参数解释 #

• g：全局匹配，会遍历整个文件内容，找出所有符合模式的分组
• m：多行模式，让^和$能匹配每行的开头和结尾（而不是整个文本的首尾）
• s：单行模式，让.可以匹配换行符，完美支持跨行文本的捕获
• .*?：非贪婪匹配，避免过度捕获内容，确保在遇到下划线分隔线时停止
• _+：匹配任意数量的下划线，兼容分隔线长度不固定的情况

预期输出效果 #

运行后会完全符合你的需求：

• $1捕获到JMOD_01以及其他类似格式的标识（比如你提到的fdgh_6765_546/456）
• $2捕获到两段完整的跨行文本内容
• $3捕获到对应的数字描述部分

内容的提问来源于stack exchange，提问作者sebaa