使用 Perl 提取方括号“[]”之间的数据

Question

我使用正则表达式从弯括号（或“括号”）中提取数据，例如从(a,b) 中提取a,b，如下所示。我有一个文件，其中每一行都像

this is the range of values (a1,b1) and [b1|a1]
this is the range of values (a2,b2) and [b2|a2]
this is the range of values (a3,b3) and [b3|a3]

我正在使用以下字符串来提取a1,b1、a2,b2 等...

@numbers = $_ =~ /\((.*),(.*)\)/

但是，如果我想从方括号[] 中提取数据，我该怎么做呢？例如

this is the range of values (a1,b1) and [b1|a1]
this is the range of values (a1,b1) and [b2|a2]

我只需要提取/匹配方括号中的数据，而不是弯括号。

Answer 1

我知道我在这里有点晚了，但没有一个答案正确回答了 OP 的问题，而与方括号 [] 一起真正匹配整个问题的答案。显然，OP 想要匹配括号内的内容。

• 匹配方括号内的所有内容以及括号。 Example

  \[[^\[\]]*]

• 要匹配方括号内的所有内容，不包括括号本身，请使用 积极的前瞻和后视。 Example

  (?<=\[)[^\[\]]*(?=\])

Answer 2

使用下面的代码

$_ =~ /\[(.*?)\|(.*?)\]/g;

现在如果模式匹配成功，提取的值将存储在$1 和$2 .

Answer 3

[更新]同时，我写了一篇关于.*的具体问题的博文，我在下面描述：Why Using .* in Regular Expressions Is Almost Never What You Actually Want

---

如果您的标识符a1、b1 等本身从不包含逗号或方括号，则应使用以下模式以避免回溯地狱：

/\[([^,\]]+),([^,\]]+)\]/

这是working example on Regex101。

像.* 这样的贪婪量词的问题在于，您很可能在开始时消耗太多，因此正则表达式引擎必须进行大量回溯。即使您使用非贪婪量词，引擎也会进行比必要更多的匹配尝试，因为它一次只会消耗一个字符，然后尝试推进模式中的位置。

（您甚至可以使用atomic groups 使匹配更加高效。）

Answer 4

你可以使用非贪心量词*?来匹配它

my @numbers = $_ =~ /\[(.*?),(.*?)\]/g;

或

my @numbers = /\[(.*?),(.*?)\]/g;

简称。

更新

my @numbers = /\[(.*?)\|(.*?)\]/g;

Answer 5

#!/usr/bin/perl
# your code goes here
my @numbers;
while(chomp(my $line=<DATA>)){
    if($line =~ m|\[(.*),(.*)\]|){
    push @numbers, ($1,$2);
    }
}
print @numbers; 
__DATA__
this is the range of values [a1,b1]
this is the range of values [a2,b2]
this is the range of values [a3,b3]

Demo