{
no strict 'refs';
my $num = 10;
print eval "\$rank$num";
}
result:
42
A piggy bank of commands, fixes, succinct reviews, some mini articles and technical opinions from a (mostly) Perl developer.
Use a string to make a variable name
my $rank10 = 42;
{
no strict 'refs';
my $num = 10;
print eval "\$rank$num";
}
result:
42
{
no strict 'refs';
my $num = 10;
print eval "\$rank$num";
}
result:
42
Labels:
perl,
references,
strict,
strings,
variables
Posts
