in reply to Having a problem with negative look behind assertion
You don't have fixed width of line, look behind or look ahead will only work on fixed width
use strict; use warnings; while(my $line = <DATA>) { chomp($line); if( $line =~ /(?<!fee\/src\/)(com\/)/ ) { print $line . "\n"; } } __DATA__ foo/src/com/ foo/src/com/ foo/src/com/ fee/src/com/
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Having a problem with negative look behind assertion
by ww (Archbishop) on Feb 13, 2013 at 00:10 UTC |
In Section
Seekers of Perl Wisdom