代码之家 › 专栏 › 技术社区 › JoelFan

这是否违反了“最左最长”原则?

perl regex

JoelFan · 技术社区 · 15 年前

我正在尝试编写一个正则表达式来识别一行文本,其中下划线(\)被识别为行延续字符。例如,“foo\unbar”应视为一行,因为“foo”以下划线结尾。我正在尝试:

$txt = "foo_\nbar";
print "$&\n" if $txt =~ /.*(_\n.*)*/;

但是,这只打印:

foo_

这似乎违反了Perl正则表达式的“最左最长”规则!

有趣的是,如果我去掉正则表达式中的最后一颗星(*),即:

$txt = "foo_\nbar";
print "$&\n" if $txt =~ /.*(_\n.*)/;

它打印:

foo_
bar

但是我需要星星来识别“0或更多”的连续体!

3 回复 | 直到 15 年前

ZyX 15 年前

@ysth解释了为什么会这样。要修复它,可以使用以下正则表达式:

/([^_\n]|_.)*/s

ysth 15 年前

/(.*(?!(?<=_)\n)_\n)*.*/

Chris Kuklewicz 15 年前

正则表达式设计有两种基本风格:

POSIX定义了最左边最长的味道。例如:将任何“a | b”更改为“b | a”对完全匹配没有任何影响。

PERL定义了左偏风格。每个“a | b”检查左分支“a”,如果可以匹配,则从不检查“b”。因此,“a | b”很少与“b | a”相同。这里a*就像(),a,aa,aaa,aaaa。。。

推荐文章

DotFX · RegEx捕获关键字前但括号后的所有内容

5 月前

user66001 · 正则表达式用于匹配有引号和无引号的文本,并且不匹配任何部分

5 月前

perlchamp · 为什么这也匹配?

5 月前

con · Negative Lookaward在perl正则表达式中不起作用

5 月前

Andrus · 如何在sql中查找第二个匹配项

5 月前

iato · 确保正则表达式不从命名材料中的数字中提取

6 月前

vr8ce · 非成对标记中特定字符的正则表达式

6 月前

MARTIN · 交换第一个和最后一个单词,反转所有中间的字符

6 月前

Carsten · 使用最近的搜索模式更改文本块

6 月前

Eric Marceau · Grep:有没有一种特殊的方法可以将“无字符”作为“字符位置”匹配的置换?

6 月前