Re: [MacPerl-AnyPerl] lookahead - (match if no macth)

thanks a lot - it worked.
but then i found out i need a more elaborate regexp, (see new below). it
almost works but wont match if the string "lookaround" appear after the
html-reference. so this one would match correctly if matched

src="aa1.gif"
src=aa2.gif
src=aa3.gif
src=aa4.gif
src="aa5r.gif"
src=aa6.gif

ive included comments so maybe someone can "read it loud" where its wrong
thanks again
allan
______

file:
src="aa1.gif" src="aLOOKAROUND.gif" stuff src=aa2.gif
src=aa3.gif src="LOOKAROUND.gif" stuff src=aa4.gif
src="Lookahea_LOOKAROUND_whatever.gif" src="aa5r.gif" src=aa6.gif


#!/usr/bin/perl -w
use strict;
open FILE, ":1.txt" or die $!;
while (<FILE>) {
	while(/(\w+=			# one or more alphanumeric, foollowed by =
		"?					# followed by an optional "
		(?!.*lookaround)	# followed by 0 or 1 more chars as long as we dont
match lookaround
		.*?					# followed by any numbers of chars (non greedy)	
		\.[a-z]+			# followed by . and 1 or more letters
		"?)					# followed by an optional "
		/igx) 
		{
		my $s = $1;
		print $s , "\n"
	}
}


> Try something like
> 
>         /(\w+="(?![^"]*lookaround).*?\.[a-z]+"?)/ig
> 
> --
>         Bart.