in reply to Regexp: Match anything except a certain word

$test =~ s/(<a\s(?:(?!target=)(?!>).)*)(?=>)/$1 target="_blank"/sgi;

[download]

Tested.

Replies are listed 'Best First'.
Re^2: Regexp: Match anything except a certain word
by fraktalisman (Hermit) on Apr 21, 2006 at 17:19 UTC

    Thanks! This looks good, although it does not check for http and so it also put the target to local links, but I should be able to put the pieces together now.

    fraktalisman keeps rolling
[reply]
[d/l]
      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..)

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom