5 Jun
2011
5 Jun
'11
2:36 p.m.
Hi all,
I want a regex used in Perl which is
@ret = $query =~ /(googl.?)|(.?oogle)/;
if the $query is "google", then will be matched, and the @ret = (google, undef), $1 = "google", $2 is undef
but I want result like @ret = (google, google), because the pattern "(.?oogle)" is matched too,
And my regex is very long (the regex above is just an example), maybe thouands of "|", so if separate the regex to /(googl.?)/ and /(.?oogle)/ will be inefficient.
Does anybody can help me? Thanks!