Re^3: Regexp: Match anything except a certain word

in reply to Re^2: Regexp: Match anything except a certain word
in thread Regexp: Match anything except a certain word

Oops, I read the problem too fast. Fix:

$test =~ s{
   (
      <a\s
      (?:(?!target=|>).)*
      href="http://
      (?:(?!target=|>).)*
   )
   (?=>)
}{$1 target="_blank"}xsgi;
[download]

Alternatively, the following *might* be faster, especially considering href is usually the first attribute:

$test =~ s{
   (
      <a\s
      (?:(?!href=|target=|>).)*
      href="http://
      (?:(?!target=|>).)*
   )
   (?=>)
}{$1 target="_blank"}xsgi;
[download]

Tested.

Update: Collapsed (?!..re1..)(?!..re2..) into (?!..re1..|..re2..)

Comment on Re^3: Regexp: Match anything except a certain word Select or Download Code

In Section Seekers of Perl Wisdom