Re: lost in eval and regexp

[gamache]

This works:

while ($str =~ s/~~(\$.+?)~~/__TOKEN__/) {
    my $val = eval $1;
    $str =~ s/__TOKEN__/$val/;
}

There is probably a more efficient way to do it, but this does the job. $str can be each individual line, or whole chunks of the HTML.

Update: a better way, as suggested by ikegami...

$str =~ s/~~(\$.+?)~~/eval $1/ge;

I wonder how s///e evaded my notice for so long.

[ikegami]

Let's hope your variables don't contain "~~"! Use s///eg instead of this double-substitution while loop.