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

声明：本神奇的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