神奇的Perl-哈希与数组

语法格式如下：

声明及定义

my %哈希变量=(

哈希键1=>[数组元素1，数组元素2，…，数组元素n],

哈希键2=> [数组元素1，数组元素2，…，数组元素n],

…...

…...

哈希键n=> [数组元素1，数组元素2，…，数组元素n]

);

访问内嵌数组的单个元素：

$哈希变量名{哈希键}->[数组下标]

访问内嵌数组：

@{$哈希变量名{哈希键}}

例如，游戏地图上有一组建筑物的坐标，分别如下：

武器店：123，35

修练场：85，196

防具店：67,96

魔法店：128,45

用哈希内嵌数组的方式来存储和访问这些数据。

1） 存储

my %game=(

?? ? ? ?“武器店”=>[123,35],

?? ? ? ?“修练场”=>[85,196],

?? ?????“防具店”=>[67,96],

?? ?????“魔法店”=>[128,45]

);

2） 访问

访问防具店的坐标值:

printf ("%d,%d",@{$game{"防具店"}});

访问魔法店的坐标Y值：

print $game{“防具店”}->[1];

可使用硬引用符来完成内嵌数组的赋值。

my? %game;

my? @array=(123,35);

$game{"武器店"}=@array;

my? @array=(85,196);

$game{"修练场"}=@array;

my? @array=(67,96);

$game{"防具店"}=@array;

my? @array=(67,96);

$game{"魔法店"}=@array;

printf ("%d,@{$game{"防具店"}});