如何在Perl中优雅地将用户输入转换为变量名？

Question

我想使用来自用户的输入来选择要操作的哈希。 目前，我有这个繁琐的代码：

my ( %hash1, %hash2 );
print "Which hash to work with (1 or 2)? ";
my $which = <>;
chomp $which;
&do_something( %hash1 ) if $which == 1;
&do_something( %hash2 ) if $which == 2;

有没有更优雅的方式来做到这一点？ 我在考虑使用%{"hash$which"} ，但这似乎不起作用。 我认为

$which = "hash" . chomp $which;
&do_something( %{"$which"} );

会工作，但这是最好的方法吗？

感谢您的帮助，特别是因为这是我的第一篇SO帖子。

Answer 1

为什么将变量用作变量名是愚蠢的

你要

my @hashes;
print "Which hash to work with (1 or 2)? ";
my $which = <>;
chomp $which;
do_something( %{ $hashes[$which] } );

万一你不知道，总是use strict; use warnings; use strict; use warnings; 。

Answer 2

您正在寻找的东西在perl世界中被称为“符号参考”。 强烈 建议不要使用符号引用。

为什么不添加另一个间接级别？

my $hash = {
    user_opt1 => {
        foo => 'bar',
    },
    user_opt2 => {
        foo => 'baz',
    },
};