Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Welcome To Ask or Share your Answers For Others

Categories

0 votes
1.2k views
in Technique[技术] by (71.8m points)

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

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]
";
        print "its found index location: $1 $-[1]-$+[1]
";
        print "its found index location: $2 $-[2]-$+[2]
";
        print "its found index location: $3 $-[3]-$+[3]
";
}

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.

See Question&Answers more detail:os

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
Welcome To Ask or Share your Answers For Others

1 Reply

0 votes
by (71.8m points)

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.


与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
OGeek|极客中国-欢迎来到极客的世界,一个免费开放的程序员编程交流平台!开放,进步,分享!让技术改变生活,让极客改变未来! Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Click Here to Ask a Question

...