如何在Perl中找到正则表达式的所有匹配项？

Question

我的表格中有文字:

Name=Value1
Name=Value2
Name=Value3

使用Perl,我希望/Name=(.+?)/每次出现时都匹配并提取(.+？)并将其推送到数组上.我知道我可以$1用来获取我需要的文本,我可以=~用来执行正则表达式匹配,但我不知道如何获得所有匹配.

Answer 1

一个m//g在列表环境将返回所有拍摄比赛.

#!/usr/bin/perl

use strict; use warnings;

my $str = <<EO_STR;
Name=Value1
Name=Value2
Name=Value3
EO_STR

my @matches = $str =~ /=(\w+)/g;
# or my @matches = $str =~ /=([^\n]+)/g;
# or my @matches = $str =~ /=(.+)$/mg;
# depending on what you want to capture

print "@matches\n";

但是,您似乎正在解析INI样式配置文件.在这种情况下,我会推荐Config :: Std.

Answer 2

my @values;
while(<DATA>){
  chomp;
  push @values, /Name=(.+?)$/;
}   
print join " " => @values,"\n";

__DATA__
Name=Value1
Name=Value2
Name=Value3

Answer 3

以下将给出数组中正则表达式的所有匹配项。

push (@matches,$&) while($string =~ /=(.+)$/g );