神奇的Perl-雜湊與數組

聲明：本神奇的Perl系列為劉興(http://deepfuture.iteye.com/)原創，未經筆者授權，任何人和機構不能轉載1.    雜湊內嵌數組

文法格式如下：

聲明及定義

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,%d",@{$game{"防具店"}});