Perl 網頁程式設計課程目錄

Perl Associate Array 關聯陣列(一)

Perl 關聯陣列 (Associate Array) 和單量陣列一樣, 可以用來儲存一大筆資料. 關聯陣列在 Perl 程式設計是非常有用的, 由其是在處理表單資料的應用.

大家應還記得, 單量陣列是靠陣列表中的位置而取得資料, 例如: @array[0], @array[1], 等等.

但關聯陣列卻是靠陣列表中的 key 而取得資料, 因為,關聯陣列中的資料元素是由一對一對的 key 和資料所組成的, 也就是說, 每一個key都有對應的資料.

讀者可能開始有點迷糊了, 但不用怕, 看完以下例子定必明白其中道理:

編寫及在瀏覽器執行以下 Perl 程式 :

#!/usr/bin/perl
print "Content-type: text/html\n\n";
#
### Set Associate Array ########
#
%family=(KO=>"Kong",
            WA=>"Wai",
            KE=>"Keung",
            YA=>"Yau");
#
#
### Test Elements #######
#
print "You are $family{'KO'}";
print "<BR>";
print "You are $family{'WA'}";
print "<BR>";
print "You are $family{'KE'}";
print "<BR>";
print "You are $family{'YA'}";

Perl 程式解釋如下:

第 6 行 : %family =

% 符 號 指 示 這 是 一 個 關 聯 陣 列.

關聯陣列內的資料元素是由一對一對的 key 和資料所組成的:

  • => 的左面是 key, => 的右面是資料
  • Kong 的 key 是 KO
  • Wai 的 key 是 WA
  • Keung 的 key 是 KE
  • Yau 的 key 是 YA

第 14 行 : print "You are $family{'KO'}";

印出關聯陣列內的資料, 請留意: 關聯陣列是依據 key 來決定資料內容.

瀏覽器應出現 :

You are Kong
You are Wai
You are Keung
You are Yau

實 例 View Example