perl - 来自非 perl 程序员

Question

任何 perl 专家都可以帮助我理解这个 perl 代码块

  $a=18;
$b=55;
$c=16;
$d=88;
$mtk = {
    'A'     => [$a, $b],
     'M'   => [$c, $d]

    };

这本字典是否包含字符和配对以及如何访问键和值非常感谢

Answer 1

$a, $b, $c, 和$d是标量。$mtk是对arrayrefs 哈希的引用。您可以像这样访问它：

print $mtk->{A}[0]; ## 18

如果您刚刚开始使用此代码并为之苦苦挣扎，我建议您阅读《 Learning Perl 》一书。

perldoc perlreftut

Answer 2

这是将数组引用作为值的哈希引用。下面是一个遍历代码：

for my $key (sort keys %$mtk) {
    print "Current key is $key\n";
    for my $val (@{ $mtk->{$key} }) {
        print "... and one of value is $val\n";
    }
}

输出将是

Current key is A
... and one of value is 18
... and one of value is 55
Current key is M
... and one of value is 16
... and one of value is 88