PERL 面向对象 STEP BY STEP 1 -- 数据结构

数组 是编写代码中常用的数据结构之一，数组可以有许多种类型的嵌套数据结构，其中二维数组（矩阵）可以说是里边最简单的嵌套

@arr = ( [ 'r1c1', 'r1c2', 'r1c3'], [ 'r2c1', 'r2c2', 'r2c3' ] );

print $arr[1][2]; #打印 'r2c3'

如果想指向一个数组引用，可以选择下边的方式：

$arr_ref = [ ['r1c1', 'r1c2', 'r1c3'], [ 'r2c1', 'r2c2', 'r2c3' ] ]

print $arr_ref->[1][2]; #打印 'r2c3'

区别在于解析引用时需要使用 '->'
PS: 使用 $arr[1][2] 和 $arr[1]->[2] 是一样的， 同样 $arr_ref->[1][2] 和 $arr_ref->[1]->[2]也一样。

------

在现有数组上添加新元素，可以使用以下方法：
$arr[$i] = [ @new_arr ];
或者
@{$arr[$i]} = @new_arr;   # 挺怪的
或者干脆
$arr[$i] = \@new_arr; #会不会想起 objective-C 里边的 strong 和 weak ?