regex - 如何在Perl中使用Regex中的分词，星号和分词？

Question

我在Perl中有一个复杂的预编译正则表达式。在大多数情况下，正则表达式很好，并且可以匹配所有应该匹配的内容，而不匹配不应该匹配的所有内容。除了一点。

基本上我的正则表达式看起来像:

my $regexp = qr/\b(FOO|BAR|\*)\b/;

不幸的是 m/\b\*\b/与 example, *不匹配。由于误报，只有 m/\*/可以使用，我不能使用。有什么解决方法吗？

从评论中-误报是: **， example*， exam*ple
正则表达式的目的是什么？ -它应该提取同事已经输入到产品数据中的关键字(一个是单个星号)。目的是将这些信息从自由文本字段移到原子字段。

Answer 1

听起来您想将*视为单词字符。

\b

相当于

(?x: (?<!\w)(?=\w) | (?<=\w)(?!\w) )

所以你要

(?x: (?<![\w*])(?=[\w*]) | (?<=[\w*])(?![\w*]) )

应用后，您将获得以下内容:

qr/
    (?: (?<![\w*])(?=[\w*]) | (?<=[\w*])(?![\w*]) )
    (FOO|BAR|\*)
    (?: (?<![\w*])(?=[\w*]) | (?<=[\w*])(?![\w*]) )
/x

但是，鉴于我们对中间表达式的了解，可以将其简化为以下内容:

qr/(?<![\w*])(FOO|BAR|\*)(?![\w*])/