如何在perl中访问关联数组的元素

san*_*eep 1 perl associative-array

我有以下代码

my %ages = (); 

$a1 = "Michael Caine";
$a2 = "Dirty Den";
$a3 = "Angie";
$a4 = "Willy";
$a5 = "The Queen Mother";

$ages{$a1} = 39;
$ages{$a2} = 34;
$ages{$a3} = 27;
$ages{$a4} = "21 in dog years";
$ages{$a5} = 108;

print $age->{$a1};
Run Code Online (Sandbox Code Playgroud)

但这不是印刷品.我不想使用键或值.如何使用'$age->{$a1}'类型语法访问哈希的内容?

mvp*_*mvp 5

您正尝试访问$age哪些不存在.此外,您正在尝试使用额外的引用->,这是错误的.

你需要使用这个:

$ages{$a1}
Run Code Online (Sandbox Code Playgroud)