e Evaluate the right side as an expression.
ee Evaluate the right side as a string then eval the result.

$text =~ s/\$(\w+)/$$1 * 2/egx;  #I tried to double the age and succee
+ded!
[download]

1. I used an explicit dereference $$1, which could also be expressed as ${$1}
2. I changed the pattern so that the sigil is replaced, but is not part of the pattern. This is necessary because $$1 attempts to access the scalar variable named AGE; otherwise it would assume you are looking for a variable with an explicit dollar sign in its name.
3. I changed the code to eval only once.

I realize that this is a learning exercise, but for reference if I were going to do this kind of templating, I would use sprintf in something like:

$AGE = 17;
$tmpl = 'I am %s years old';      # note single quotes
$text = sprintf $tmpl, $AGE * 2;  # print I am 17 years old
[download]

kennethk

Thank you for your detailed answers to this question.

I know if I use a symbolic reference will get this done. But it will not work for lexical scope variable. If, for example, I use:

my $AGE =17 #instead of $AGE=17
[download]

your solution will fail.

It seems to me that it's impossible to use /e to solve this situation when variable is lexical scoped.

Yes, sprintf will work for this case as we know it's a number; but in other cases we may not know if $AGE holds a numeric value.

Any thoughts?

Thank you!

use strict;
use warnings;

my %legalReplacements = (name=>'Joe', age=>42);
my $text = q(Hi I'm $name and happen to be $age.  You can call me $nam
+e, if you tell me your $ARGV.);

my $regex = qr/\$([a-zA-Z]+)/;

while ($text =~ /$regex/)
{
    if (not exists $legalReplacements{$1})
    {
        warn "INTRUDER ALERT: attempting access to '$1'";
       last;
    }
    $text =~ s/$regex/$legalReplacements{$1}/;
}
print "Final text:\n";
print $text;
[download]

gives

C:\>perl Test.pl
INTRUDER ALERT: attempting access to 'ARGV' at test.pl line 13.
Final text:
Hi I'm Joe and happen to be 42.  You can call me Joe, if you tell me y
+our $ARGV.

C:\>_
[download]

It seems to me that it's impossible to use /e to solve this situation when variable is lexical scoped.

There's no way around that using symbolic variables because symbolic variables only access package variables. The easiest drop in would be using a hash, which might look like:

my %hash = (AGE => 17,
            );
$text =~ s/\$(\w+)/$hash{$1}/g;
[download]

This has the advantage of removing a bunch of misdirection and potential security complications. If you wanted to make key misses fatal, you can use lock_hash in Hash::Util; of course, your symbolic reference code doesn't die on misses.

Yes, sprintf will work for this case as we know it's a number; but in other cases we may not know if $AGE holds a numeric value.

sprintf works for any string. Note I use %s for string replacement; numerical replacement would be %d. Obviously the multiplication only works if $AGE is a number, but that's sort of given.

If you are learning this with an eye toward production code, please read Why it's stupid to use a variable as a variable name. Also, there are a large number of real templating packages out there, such as HTML::Template for simple projects and Template::Toolkit for more complex ones.

---

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.