regex - 相当具体的 Perl 正则表达式

Question

我正在寻找一种与之匹配的模式:

(单词单词单词单词) | 1234.5678% | (1234)

我想将(words、words、words)保留为$1，将(1234)保留为$2强>

输入文件如下所示:

Header Crap | More Header Crap|Header Crap | More Header Crap|(words words words words) | 1234.5678% | (1234) | (words words words words) | 1234.5678%        |   (1234)(words words words words) | 1234.5678% | (1234) | (words words words words) |   1234.5678% | (1234)(words words words words) | 1234.5678% | (1234) | (words words words words) | 1234.5678% | (1234) | (words words words words) | 1234.5678% | (1234) | (words words words words) | 1234.5678% | (1234)

我认为这个问题与输入有关。它作为一个大 blob 出现(即 $_ 是一大串数据，需要对其进行解析以查找匹配项)

我尝试过的事情:

while ($_ =~ /(.*)\|{1}\d*?\.{1}\d*?%{1}\|{1}(\d*)/ {
do stuff with $1 and $2
}

以及

@matches = $_ =~ /(.*)\|{1}\d*?\.{1}\d*?%{1}\|{1}(\d*)/

还有一大堆其他类似的变体。我只是在寻找正确方向的指导。任何帮助将不胜感激!

Answer 1

此处使用非贪婪量词:

while ($_ =~ /(.*?)\|{1}\d*?\.{1}\d*?%{1}\|{1}(\d*)/) {
                 ^

我无法判断你的括号是字面的还是什么，但如果是字面的，你需要转义它们:

while ($_ =~ /(\(.*?\))\|{1}\d*?\.{1}\d*?%{1}\|{1}(\(\d*\))/) {
               ^^   ^^                              ^^  ^^

正如 @Tim 提到的，不需要 {1} 量词(恢复文字括号):

while ($_ =~ /(.*?)\|\d*?\.\d*?%\|(\d*)/) {