Perl 变量值作为另一个变量名

Question

我有一个 perl 脚本 (abc.pl) 和 2 个配置文件(一个 var.pl 和一个 config.txt)

现在

在 var.pl 中

$admin_userid = "admin";
$guest_userid = "guest";

在 config.txt 中 - 这具有用户的值(value) - 可以是 admin 或 guest

user=admin/guest

在 abc.pl 中

require var.pl

$get_user = admin or guest (get this value from config.txt)
**$myfinal_userid = ??**

如果 config.txt 中的用户是 admin，我希望 myfinal_user_id 的值为 admin，如果是 guest，则为 guest。

即基于 $get_user 的值我想要 userid 的值 - ${$get_user}."_userid" 例如:如果 config.txt 有 user=admin，$get_user = admin，我想要 $myfinal_userid = $admin_userid。客人也一样。这必须是动态的。

最后我想要的是，从 config.txt 中了解用户并基于它，从 var.pl 中获取用户 ID 并将其存储在 myfinal_userid 中。

请告诉我如何在 perl 中实现此目的？

Answer 1

使用散列来存储 id:

my %id = ( admin => 'admin',
           guest => 'guest',
         );

my $get_user = 'admin';  # Read this from the config.
my $final_id = $id{$get_user};

my $other_user = 'guest';
my $another_final_id = $id{$other_user};

print $final_id, "\n", $another_final_id, "\n";