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

正则表达式起始(匹配中的匹配)

regex-group regex-lookarounds perl regex

tjwrona1992 · 技术社区 · 7 年前

我试图创建一个正则表达式,它捕获一个命名组,然后在该命名组内查看它是否包含某些特性。

例如我有一个与代码块匹配的正则表达式,我可以使用它来匹配和捕获代码块:

use strict;
use warnings;

my $text = <<'END_TEXT';

block {
    // random stuff
}

block {
    dog
}

END_TEXT

my $code_block_rx = qr{(?(DEFINE)
(?<code_block>
    block\h\{ (?: [^{}]++ | (?&code_block) )*+ \}
)
)}xms;

while ($text =~ m/(?<match>(?&code_block))$code_block_rx/g) {
    print $+{match}."\n";
}

此代码将打印两个代码块。但是,如果我只想捕获包含单词“dog”的代码块呢?

是否有方法(在单个正则表达式中)捕获代码块,然后如果找到,在代码块内查找单词“dog”?

我尝试修改正则表达式以使用前瞻断言,但它只会导致整个操作失败: /(?<match>(?=dog)(?&code_block))$code_block_rx/g

1 回复 | 直到 7 年前

ikegami Gilles Quénot 7 年前

你试着匹配 dog

相反,你可以检查它是否在你匹配的区块中。

while ($text =~ /(
    \b block \h*+ ( (?&code_block) )

    (?(DEFINE)
        (?<code_block>      \{ (?&code_block_body) \}        )
        (?<code_block_body> (?: [^{}]++ | (?&code_block) )*+ )
    )
)/xg) {
    my $block_stmt       = $1;
    my $block_stmt_block = $2;
    if ($block_stmt_block =~ /\b dog \b/x) {
         say $block_stmt;
    }
}

它可以通过使用 (?(?{!( assertion() )})(*FAIL))

while ($text =~ m{(
    \b block \h*+
    # A code_block that contains the word 'dog'.
    ( (?&code_block) ) (?(?{!( "$^N" =~ /\b dog \b/x )})(*FAIL))

    (?(DEFINE)
        (?<code_block>      \{ (?&code_block_body) \}        )
        (?<code_block_body> (?: [^{}]++ | (?&code_block) )*+ )
    )
)}xg) {
    say $1;
}

推荐文章

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

4 月前

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

5 月前

perlchamp · 为什么这也匹配?

5 月前

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

5 月前

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

5 月前

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

5 月前

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

6 月前

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

6 月前

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

6 月前

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

6 月前