perl引用和一个哈希的数组实例

1. 注意到perl的引用跟c的指针类似，可以方便的得到实际的值（Dereferencing）。

   如果$r是一个引用，那么$$r是一个标量，@$r是一个数组，%$r是一个哈希。

2. 用{}保持清晰

3. 一段打印哈希的数组的代码：

%sym每个key的数据是一个两维数组。

foreach(keys %sym) {

        $k=$_;

        foreach( @{$sym{$k}} ) {

                $a=$_;

                foreach( @$a ) {
                        print; print " ";
                }
        print "\n";
        }

}
}

又如

打印key='a'的下标=2数组的所有内容

foreach ( @{$sym{'a'}[$i]} ) { print $_." ";}