如何用Perl正则表达式将文本分割为独立步骤？

问题分析 #

你尝试用split /(\s\d.)/分割步骤文本时，会把编号和文本分离，这是因为split会以匹配到的模式作为分隔符，即使捕获了分隔符，也会将其作为独立元素返回。更好的方法是直接匹配每个完整步骤，而不是分割。

正确实现代码 #

使用全局正则匹配来捕获每个完整的步骤：

my $steps = "1.Do this. 2.Then do that. 3.And then maybe that. 4.Complete!";
# 匹配每个步骤：数字+点+文本，直到遇到下一个步骤的开头或字符串结尾
my @individual_steps = $steps =~ /(\d\..*?)(?=\s\d\.|$)/g;

# 按期望格式输出
foreach my $step (@individual_steps) {
    print "\"$step\"\n";
}

正则表达式解释 #

• (\d\..*?)：捕获组，匹配一个数字\d、一个点\.，然后尽可能少的任意字符.*?（非贪婪匹配，避免过度匹配）
• (?=\s\d\.|$)：正向预查，确保当前匹配的内容后面跟着空格+数字+点，或者到达字符串结尾，这样就能准确切割每个步骤

输出结果 #

运行上述代码后，输出如下：

"1.Do this."
"2.Then do that."
"3.And then maybe that."
"4.Complete!"

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