如何在Perl中進行全局正則表達式匹配？

Question

我想在Perl中找到一個匹配多個模式的正則表達式，並在PHP中返回像preg_match_all所有的模式。

這是我有：

$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"; 
} 

這只是給我的第一場比賽在此爲「測試」。我希望能夠匹配所有出現的指定模式：'test'，'data'和'string'。

我知道，在PHP中，你可以使用preg_match_all用於這種目的：

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

上面的PHP代碼將匹配所有3個字符串：「測試」，「數據」和「串」。

我想知道如何在Perl中做到這一點。任何幫助將不勝感激。

Answer 1

Perl的相當於

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

是

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

/g標誌代表着全球，所以它返回列表上下文中的匹配列表。

Answer 2

請參閱http://www.anaesthetist.com/mnm/perl/regex.htm。基本語法（從那裏）是：

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

注意/ G