Question

我有2个句子作为例子

Sentence 1 : "The word is [WORD1] , second word is [WORD2]"

Sentence 2 : "The word is [WORD1] , second word is [WORD2] , third word is [WORD3]"

我需要一个正则表达式，如果给出上述任何句子作为输入，它将提取方括号中的单词。

我尝试了以下一个

/^.+(\[[A-Z\d]+\]).+(\[[A-Z\d]+\]).*(\[[A-Z\d]+\])?$/)

我的第一句话输出正确为WORD1 WORD2 但是对于第二句，我得到输出WORD2 WORD3。

我需要做出哪些改变？

Answer 1

使用非贪婪量词：

\[(.+?)\]

Demo

此正则表达式将匹配括号内的任何文本。 $1将包含没有周围括号的文本。

而且，如果您需要一个单词，则可以使用此正则表达式禁止空格：\[(\S+?)\]

Answer 2

 (?:.*?\[)(.*?)\](?:.*?)

看一下DEMO。

http://regex101.com/r/iY2hO8/1

Answer 3

使用g修饰符启用global matching并将所有匹配项捕获到数组中：

my @array = $sentence =~ /(\[[A-Z\d]+\])/g;

Answer 4

my $str = qq!The word is [WORD1] , second word is [WORD2] , third word is [WORD3]!;

while( $str =~ m/\[([^\]]+)\]/g ) {
    print $1, "\n";
}

或者，如果您在数组中的内容：

my @words =  $str =~ m/\[([^\]]+)\]/g;

Answer 5

你的正则表达式有两个缺陷：

通过使用贪婪匹配.*，您可能会冒险进行比赛
单词的放置与其匹配无关。

为了简化您的目标，我建议您在使用/g modifier时匹配单词，而不是使用正则表达式匹配整行。此外，添加逻辑以检测何时未找到匹配项总是明智的。

use strict;
use warnings;

while (<DATA>) {
    if (my @words = /\[(.*?)\]/g) {
        print "Words = @words\n";
    } else {
        warn "No words found for line $.\n";
    }
}

__DATA__
The word is [WORD1] , second word is [WORD2]
The word is [WORD1] , second word is [WORD2] , third word is [WORD3]

输出：

Words = WORD1 WORD2
Words = WORD1 WORD2 WORD3

使用perl正则表达式在单个句子中匹配多个和可选单词

5 个答案: