in reply to regex: something...(!something)...something

You could use negative lookahead. An example:

use strict; use warnings; my @lines = <DATA>; my $data; foreach $data (@lines) { if($data =~ /sometext (?!not)\w* endtext/) { print "$data passed \n"; } } __DATA__ sometext not endtext sometext positive endtext

outputs

sometext positive endtext passed

Replies are listed 'Best First'.
Re^2: regex: something...(!something)...something
by aaaone (Initiate) on Jul 17, 2008 at 17:41 UTC
    Thanks, I see it works, but with simple moments... please look above (I gave snippet of my code where some bug inside) - maybe you will be able to correct it.