如何在perl中精確地查找特定模式兩次？

Question

我有一個模式， 讓它此，

pppoe lg id 827 vlan-id 100 pppoe user@local local Jan 3 14:41:20

從此我希望到grep的模式「的PPPoE」，並希望確保它是目前正是兩次。

pppoe lg id 827 vlan-id 100 pppo user@local local Jan 3 14:41:20

這裏pppoe是隻出現一次，另一種是pppo，這個時候它不應該匹配。

Answer 1

您可以使用：

^((?!pppoe).)*(pppoe)((?!pppoe).)*\2((?!pppoe).)*$ 

參考Demo

說明：

Answer 2

一個直接的方法是把比賽中的數組和檢查項目數量：

my $str = "pppoe lg id 827 vlan-id 100 pppoe user\@local local Jan 3 14:41:20"; 
my @count = $str =~ /pppoe/g; 
if (scalar @count == 2) { 
    print "MATCH exactly two times\n"; 
} 

，或者作爲建議的mpapec：

print "MATCH\n" if scalar @{[ $str =~ /pppoe/g ]} == 2; 

Answer 3

所有這一切需要的是

if ($str =~ /pppoe.*pppoe/) { 
    ... 
}