Re: Negative expressions with alternation in ProxyRemoteMatch

Try negative look ahead.

my @str = qw/ a.jpg b.gif c.png d.txt e.jpeg a.jpg.3 /;

for my $str (@str) {
  if ($str =~ /.*?\.(?!gif|jpe?g)/) {
    print "matched: $str\n";
  }
}

__END__

# output is
matched: c.png
matched: d.txt
matched: a.jpg.3
[download]

Comment on Re: Negative expressions with alternation in ProxyRemoteMatch Download Code

Replies are listed 'Best First'.
Re^2: Negative expressions with alternation in ProxyRemoteMatch by redhotpenguin (Deacon) on Aug 30, 2005 at 07:21 UTC
Thanks for the help, this is what I was trying to do. Works great, and it makes sense that the '?!' (whabang?) is at the start of the alternation.	[reply]
Re^3: Negative expressions with alternation in ProxyRemoteMatch by Roger (Parson) on Aug 30, 2005 at 08:58 UTC
An alternative is to use negative look behind... Your code was actually negative look ahead. To look behind, you need the < directive. `/(?<!\.gif)(?<!\.jpg)(?<!\.jpeg)$/` [download]	[reply] [d/l]


Perl Monk, Perl Meditation
	PerlMonks