Small regexp question:



I'd like to replace all occurrences of "a@" to "A" except for the one inside the mailto-link.

Is there some quick regexp magic for doing such things?



Thx,
kellner

Cheap and dirty, but is this kind of what you want?

I'm not sure that works Aki....it outputs...

AAAAAA

I read it as it should change a@ to A but still keep everything else?

My feeble effort....(its 12.40am and I'm not really in the mood :) )

thanks, paul, I'll give it a try, and - yes, you're right, the point was to change every "a@" OUTSIDE pointed brackets into "A".

Changing content INSIDE pointed brackets seems quite easy to me, e.g. the following code works to change all double quotes to single quotes inside pointed brackets (i.e. inside html tags):

$string =~ s{ ( < [^>]+ > ) } { $a = $1; $a =~ tr|"|'|; $a }gex; # single quotes in html tag attributes

The question is how to do this in a negative way - NOT change every instance of some pattern inside pointed brackets, but change every instance outside.

As I said, I'll try Paul's code, and then let you know - thanks anyway!
kellner

$string =~ s/a@([^<]*[<])/A$1/g;
$string =~ s/([>][^>]*)a@/$1A/g;

err.. i have no idea what that's going to do.. but it seemed reasonable to me. :P


[edit]oh.. nm.. IGNORE me. that's too greedy.

[edit2]heres my solution..

while ($string =~ s/a@([^>]*[<])/A$1/g || $string =~ s/([>][^<]*)a@/$1A/g) {}