How can I do a global regular expression match in Perl?

Question

I am trying to come up with a regular expression in Perl matching multiple patterns and returning all of them like preg_match_all in PHP does.

Here's what I have:

$str = 'testdatastring';
if($str =~ /(test|data|string)/) {
        print "its found index location: $0 $-[0]-$+[0]\n";
        print "its found index location: $1 $-[1]-$+[1]\n";
        print "its found index location: $2 $-[2]-$+[2]\n";
        print "its found index location: $3 $-[3]-$+[3]\n";
}

This only gives me the first match which in this is 'test'. I want to be able to match all occurrences of specified patterns: 'test', 'data' and 'string'.

I know that in PHP, you can use preg_match_all for this kind of purpose:

if(preg_match_all('/(test|data|string)/', 'testdatastring', $m)) {
        echo var_export($m, true);
}

The above PHP code would match all 3 strings: 'test', 'data' and 'string'.

I want to know how to do this in Perl. Any help would be greatly appreciated.

score 13 · Accepted Answer · edited Jun 04 '09 at 21:33

13

The Perl equivalent to

preg_match_all('/(test|data|string)/', 'testdatastring', $m)

is

@m = ("testdatastring" =~ m/(test|data|string)/g);

The /g flag stands for global, so it returns a list of matches in list context.

edited Jun 04 '09 at 21:33

brian d foy

124,803
31
200
568

answered Jun 04 '09 at 06:13

Marquis Wang

10,538
5
29
25

How do you apply this in an if/else statement ? – Carel Mar 19 '12 at 08:10
Worked it out : if (@list = $str =~ Regex){True}{False} use /regex/g to group the found items into the list. – Carel Mar 19 '12 at 11:38

score 2 · Answer 2 · answered Jun 04 '09 at 06:04

2

See http://www.anaesthetist.com/mnm/perl/regex.htm . Basic syntax (from there) is:

$_ = "alpha xbetay xgammay xdeltay so on";
($first, $second, $third) = /x(.+?)y/g;

Note the /g

answered Jun 04 '09 at 06:04

Matthew Flaschen

268,153
48
509
534

How can I do a global regular expression match in Perl?

2 Answers2

Linked