非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是scalars。 $mtk是reference到hash of arrayrefs。您可以訪問它想：

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

我建議書Learning Perl如果你是剛剛起步，並與此代碼掙扎。

perldoc perlreftut

Answer 2

這是爲數組參考文獻作爲值的散列REF。這裏是低於橫向代碼：

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