How can I use a variable as a variable name in Perl?

by

Whenever you find yourself postfixing variable names with an integer index, realize that you should have used an array instead:

my @msgs = ('msg1', 'msg2', ..., 'msg6');
my @vals = ( [ @val1 ], [ @val2 ], ..., [ @val6 ] );

See also the FAQ How can I use a variable as a variable name?

As the answer to the FAQ notes, if the variables are not indexed by an integer, you can use a hash table:

By using symbolic references, you are just using the package’s symbol-table hash (like %main::) instead of a user-defined hash. The solution is to use your own hash or a real reference instead.

$USER_VARS{"fred"} = 23;
my $varname = "fred";
$USER_VARS{$varname}++;  # not $$varname++

You should read the entire FAQ list at least once a year.

Update: I purposefully left symbolic references out of my answer because they are unnecessary and likely very harmful in the context of your question. For more information, see Why it’s stupid to ‘use a variable as a variable name’?, part 2 and part 3 by mjd.

More Related Contents:

  1. How can I match values in one file to ranges from another?
  2. Perl: Compare 2 hash table values
  3. Failing to install MIME::Base64 using cpan [closed]
  4. Declaring a 2D coordinate in Perl / C / C++ [closed]
  5. Why can’t Perl find my file that is in ClearCase?
  6. How can I use a new Perl module without install permissions?
  7. When should I use the & to call a Perl subroutine?
  8. What’s the difference between my ($variableName) and my $variableName in Perl?
  9. How can I hook into Perl’s print?
  10. How can I combine hashes in Perl?
  11. Why do my Perl tests fail with use encoding ‘utf8’?
  12. What is the difference between my and local in Perl?
  13. Why does my Perl script exit with 137?
  14. Perl read line by line
  15. What is the difference between Perl’s ( or, and ) and ( ||, && ) short-circuit operators?
  16. How do I change, delete, or insert a line in a file, or append to the beginning of a file in Perl?
  17. How can I install a specific version of a set of Perl modules?
  18. Why are use warnings; use strict; not default in Perl?
  19. Obtain a switch/case behaviour in Perl 5
  20. How do I extract the domain out of an URL?
  21. In Perl, what is the difference between accessing an array element using @a[$i] as opposed to using $a[$i]?
  22. Why does $foo->{bar} autovivify but %$foo doesn’t?
  23. How do I break out of a loop in Perl?
  24. Hidden features of Perl?
  25. “inappropriate ioctl for device”
  26. In Perl, how can I check from which module a given function was imported?
  27. How can I verify that a value is present in an array (list) in Perl?
  28. Perl Subroutine Prototyping — The correct way to do it
  29. Why do hash keys have different order when printing?
  30. How can I manually interpolate string escapes in a Perl string?

Leave a Comment