Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: Having a problem with negative look behind assertion

by Anonymous Monk
on Feb 12, 2013 at 12:41 UTC ( #1018348=note: print w/replies, xml ) Need Help??


in reply to Having a problem with negative look behind assertion

 perl -Mre=debug -E" $_=q{foo/src/com/stuff/ggbargg.java}; m/(?<!fee).*[Bb]ar.*\.java/ "

 perl -Mre=debug -E" $_=q{foo/src/com/stuff/ggbargg.java}; m{(?<!fee)/.*[Bb]ar.*\.java} "

 perl -Mre=debug -E" $_=q{foo/src/com/stuff/ggbargg.java}; m{^(?<!fee)/.*[Bb]ar.*\.java} "

 perl -Mre=debug -E" $_=q{foo/src/com/stuff/ggbargg.java}; !/fee/ and /[Bb]ar.*\.java$/ "