Perl数组与哈希的嵌套

一、数组

1. 一维数组

一维数组是最简单的数组，数组变量前面有一个“@”符号，并使用括号或qw运算符填充。

my @arr1=(1,2,3,4);
my @arr2=qw/apple orange waterelement/;
my @arr3=1..10;
my @arr4=(1..10) ;

上面arr1~4都是合理的数组声明。

2. 二维数组

二维数组即数组嵌套数组。

• 方法一

my @arr = (
[1,2,3,4],
[6,7,8,9],
[11,12,13,14]
);

• 方法二

my @arr1=(1,2,3,4);
my @arr2=(6,7,8,9);
my @arr3=11..14;
my @arr=([@arr1],[@arr2],[@arr3]);

【注意】上面的子列表需要使用[]括起来。

如果不用[]把子列表括起来，则相等于把三个数组拼接成一个以为数组，例如运行下面代码。

my @arr1=(1,2,3,4);
my @arr2=(6,7,8,9);
my @arr3=11..14;
my @arr=(@arr1,@arr2,@arr3);

print("@arr");

则获得以下输出：

1 2 3 4 6 7 8 9 11 12 13 14

• 方法三

my @arr;
$arr[0]=[1,2,3,4];
$arr[1]=[6,7,8,9];
$arr[2]=[11..14];

【注意】子列表需要用[]的方式声明。如果声明方式为：

$arr[0]=(1,2,3,4) ;

则等价于：$arr[0]=4;

• 列表的访问

如果要访问最低层的元素，例如要访问其中的3，则

$arr[0][2]

如果要访问第二维数组[1,2,3,4]，则：

@{$arr[0]}

3. 多维数组

多维数组的声明思路与二维数组相似，子数组需要用[]括起来。例如：

my @arr=(
[[1,2],[3,4]],
[[6,7],[8,9]],
[[11,12],[13,14]]
);

• 列表访问

如果要访问最低层的元素，例如要访问其中的3，则

$arr[0][1][0]

如果要访问第二维数组[[1,2],[3,4]]，则：

@{$arr[0]}

如果要访问第二维数组[3,4]，则：

@{$arr[0][1]}

4. 总结

对于多维数组，用$arr[a1][a2]..形式访问，如果最终的元素是一个变量，则直接使用即可，如果最终的元素是数组，则需要用@{}括起来(@{$[a1][a2]...})，来告诉编译器最终的元素是数组。

其实对于hash思路也是类似的。

二、哈希

1、一级哈希

my %hash=(    
    "age" => 24 ,
    "first name" => "ning" ,
    "last name" => "zhang" ,
    "sex" => "man"
);


print($hash{"age"}) ;

2、哈希嵌套哈希

my %student=(
    "ning zhang"=>{"age"=>24,"sex"=>"man"} ,
    "san zhang" =>{"age"=>22,"sex"=>"woman"}
);

或者

my %ning_zhang = ("age"=>24,"sex"=>"man") ;
my %san_zhang = ("age"=>22,"sex"=>"woman") ;

my %student=(
    "ning zhang" => {%ning_zhang} ,
    "sna zhang"  => {%san_zhang}
);