正則表達式Perl

Question

匹配正則表達式foo|bar三個連續副本的正則表達式。 你的模式應該匹配foofoofoo ， foobarbar ， barbarbar

if($line!~m/((foo)+|(bar)+){0,3}/){print"No match\n";}
else
{   print "$`";       #print out first part of string
    print "<$&>";     #highlight the matching part
    print "$'";       #print out the rest
}

這是我的表達式，它可以工作，但是以某種方式只檢查字符串的一部分。

例如：

輸入foo ：它將突出顯示foo

輸入foofdafdafbar ：它將僅突出顯示foo而不突出顯示bar

我需要檢查foo或bar存在，但我也想確保兩者都存在時，它們都將突出顯示

Answer 1

根據您所描述的內容，您的正則表達式實際上沒有任何意義。 此外，您的輔助示例似乎與您在第一部分中想要的內容相矛盾。

也許您想要的只是？

if ($line =~ m/((?:foo|bar){3})/) {