Why does noone mention Interpolation.pm?
use Interpolation '=' => 'eval';
print "5 + 6 = $={5+6}\n";
print "a regexp object - ", qr[\b (?: $={MATCHES()} ) \b]x, $/;
use Interpolation '/' => sub {'$' . $Interpolation::builtin{commify}->
+(@_)};
print "The total is $/{530 * 12.25}\n";
use Interpolation 'S:$$*->$' => 'sprintfX';
print <<"*END*";
dfg sdfg sdfg wearg sdfhg esrg dsf
sdf dfg $S{'%.2f %03d'}{37.5}{42} dfgdfg
sdfg sdfgsdfg
*END*
# ouch. I just found a bug in the module.
# for this to work you either have to get version newer than 0.69
# or change the 'sprintfX' to 'sprintfx' on line 51 of Interpolation.p
+m :-(
Jenda
Always code as if the guy who ends up maintaining your code
will be a violent psychopath who knows where you live.
-- Rick Osborne
Edit by castaway: Closed small tag in signature