Re: replacing text you have already replaced...

[wine]

I always use 1 while s///;, but you can also get that behavior with only using s///;:

my $data = "aaaaaaaaaaaaaaaaaaaaaaa"; # 23 a's
$data =~ s/aa/pos() = print a/ge;
print $data;

This outputs a in stead of aaaaaaaaaaaa

pos() normally returns the position where the regexpr matched the last time. Normally the s/// operator leaves of at that position. By using pos() as a lvalue you can reset this position. Therefore the s/// operator starts all over, mimmicking the 1 while s///g behavior.

I wouldn't use this under normal circumstantions though, since this is kind of a obfu. ;)

[suaveant]

I wanted it to start from where it matched a token.. i.e.

This is a template <TEMPLATE_DATA_FOOTER> mmm-kay

and say <TEMPLATE_DATA_FOOTER> subs in <TEMPLATE_DATA_ADDRESS>... rather than restarting at the beginning I want to restart before <TEMPLATE_DATA_FOOTER>... I suppose I could set pos() = pos() - length($1) or something like that... that'd be weird...

                - Ant

[Hofmator]

I just had an idea for your problem, why not make your function recursive and do the repeated replacement there?

hth
-- Hofmator

[Hofmator]

This does work as advertised but probably different than you thought. You should have used warnings ;-), your regex is equivalent to $data =~ s/aa//g; and that is not what you had in mind, is it? A small typo is the cause, you print a but I think wanted to print 'a', the letter 'a' and not nothing to the filehandle a.

The important point is, pos() does not work with the substitution operator, only with m//g. See pos.

So I guess we have to make do with the  1 while s/// solution.

-- Hofmator

[wine]

I stand corrected, thank you for pointing it out. ;)