perl - 非 perl プログラマーから

Question

perl の専門家なら誰でも、この perl コードのブロックを理解するのに役立ちます

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

    };

この辞書はcharとペアを保持し、キーと値にアクセスする方法を教えてください。どうもありがとう

Answer 1

$a、、、およびスカラーです。$b_ arrayrefsのハッシュへの参照です。次のようにアクセスできます。$c$d$mtk

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

Perlを始めたばかりで、このコードに苦労している場合は、 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