perl 正则表达式来获取 5) 一些文本 6) 之间的文本

Question

5) 在 64 位操作系统上，在 32 位操作系统上转到 C:\Program Files (x86)\Common gateway 6)

在上面的示例中，我试图获取 5) 和 6) 之间的文本，即 On 64bit OS go to C:\Program Files (x86)\Common gateway

我在5[)]\s?(.*?)6[)]\s?/i 后面写了，但这里失败了，因为我有(x86)，所以我的表达式将匹配On 64bit OS go to C:\Program Files (x8

所以我正在考虑添加[^\/]，所以它会跳过x86)\，但它不起作用......请有人帮忙。

Answer 1

如果我正确阅读了这个问题，您希望匹配到 6)，除非 6) 是字符串 (x86) 的一部分。在这种情况下，使用否定的后视断言：

/5\)\s?(.*?)(?<!\(x8)6\)\s?/i

也就是说，...匹配到6)，除非它是(x86)。

Answer 2

怎么样：

5\)(.*?)\s6\)

我正在使用6) 之前的空格来获取您想要的内容，而您捕获的字符串中不需要这个空格，对吧？

Answer 3

这是另一个选择：

use strict;
use warnings;

while (<DATA>) {
    my ($text) = /(?:\b\d+\))(.+?)(?:\s\d+\))/;
    print "$text\n";
}

__DATA__
5) On 64bit OS go to C:\Program Files (x86)\Common gateway 6) on 32 bit
42)even more text 43)I think
7)Twenty four (24) 8)

输出：

 On 64bit OS go to C:\Program Files (x86)\Common gateway
even more text
Twenty four (24)

正则表达式尝试首先匹配单词边界，后跟一个+数字，然后是右括号。然后它非贪婪地捕获所有内容，直到一个空格，后跟一个+数字，然后是一个右括号。

希望这会有所帮助！

Answer 4

删除“不贪婪”的限定词。

也就是说，替换捕获模式

(.*?)

与

(.*)

第一个将尽可能少地匹配。 第二个会尽可能匹配。

Answer 5

简单的5\)(.*6\).*)6\) 应该把它全部放在$1 中。我不会在正则表达式中排除任何周围的空白，而是使用trim($1)。

尝试匹配正则表达式中的空格（例如5\)\s*(.*6\).*)\s*6\)）的一个问题是知道表达式的哪一部分与最右边的6) 之前的空格匹配。考虑到.*\s*6\) 部分，.* 或\s* 是否与text 6) 中的空格匹配？因此建议使用修剪。