神奇的Perl-哈希与数组(8)

weiliwei

声明：本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载
1.     数组内嵌数组

1、 声明及定义
首先，定义内嵌的数组
my  @内嵌数组1=(元素1,元素2,元素3,…,元素n);
my  @内嵌数组2=(元素1,元素2,元素3,…,元素n);
……
接着，使用“\”来创建内嵌的数组的引用，以引用为元素定义外层数组的元素
my  @数组=(\@内嵌数组1,\ @内嵌数组2,…);
2、 访问内嵌数组的值：
$数组变量名[1维数组下标][2维数组下标]
我们仍以某文具店的库存为例：
#perl3-9.pl
#数组内嵌数组
my @arr1=(" 钢笔",8.06,50);
my @arr2=("2B铅笔",2.10,300);
my @arr3=("胶水",5.80,60);
my  @wenju=(
\@arr1,\@arr2,\@arr3
);
#访问2B铅笔数量、价格：
print $wenju[1][1];# 数量
print $wenju[1][2];# 价格
输出结果如下:
2.1,300