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


Come for the quick hacks, stay for the epiphanies.
	PerlMonks

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

by fraktalisman (Hermit)

on Apr 21, 2006 at 17:19 UTC ( [id://544953]=note: print w/replies, xml )

Need Help??

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

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}

Comment on Re^2: Regexp: Match anything except a certain word Download Code

Replies are listed 'Best First'.

Re^3: Regexp: Match anything except a certain word
by ikegami (Patriarch) on Apr 21, 2006 at 17:26 UTC

$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