How can I find all matches to a regular expression in Perl?

Question

I have text in the form:

Name=Value1
Name=Value2
Name=Value3

Using Perl, I would like to match /Name=(.+?)/ every time it appears and extract the (.+?) and push it onto an array. I know I can use $1 to get the text I need and I can use =~ to perform the regex matching, but I don't know how to get all matches.

Answer 1

A m//g in list context returns all the captured matches.

#!/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"; 

However, it looks like you are parsing an INI style configuration file. In that case, I will recommend 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

The following will give all the matches to the regex in an array.

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