Perl 網頁程式設計課程目錄

Perl Foreach 使用(一)

在上一節介紹過如何從單量陣列中取出每個資料元素, 但如果資料庫很大, 以上的方法便使程式變得很長和顯得很笨拙了.

要解決這個問題, 我們可以使用 foreach, foreach 可以很容易管理我們的資料庫.

請詳細參閱以下例子:

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

#!/usr/bin/perl
print "Content-type: text/html\n\n";
#
### Set Scalar Array ########
#
@family=("Kong","Wai","Keung","Yau");
#
#
### Test Elements #######
#
foreach $member(@family) {
  print "You are : $member";
  print "<BR>";
}

Perl 程式解釋如下:

第 11 行 : foreach

將 @family 單量陣列內的元素續個檢閱, 並將檢閱中的元素暫定為 $member.

你可以想像到, 無論陣列有多大, 只要使用 foreach 便可以將陣列內的元素續個檢閱並使用.

第 12 行 :

印出檢閱中的元素 ($member).

瀏覽器應出現 :

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

實 例 View Example

你或者會問, 那麼前一節所學的東西是沒用的嗎?

答案是絕對否定的. 其實前一節所學的概念是非常重要的, 它可以令你寫出更多變化的程式.

利用前一節所學的概念, 編寫和上例一樣功能的程式:

#!/usr/bin/perl
print "Content-type: text/html\n\n";
#
### Set Scalar Array ########
#
@family=("Kong","Wai","Keung","Yau");
#
#
### Test Elements #######
#
$x=0;
#
foreach (@family) {
  print "You are : $family[$x]";
  print "<BR>";
  $x=$x+1;
}

Perl 程式解釋如下:

第 11 行 : $x=0;

設定變數 $x 等於零.

第 13 行 :

使用 foreach 續個檢閱 @family 單量陣列內的元素.

第 14 行 :

當第一次檢閱 @family 陣列時, $x =0, 即是會印出 $family[0], 然後將 $x 加 1, 這時 $x 變成 1.

當第一次檢閱 @family 陣列時, $x =1, 即是會印出 $family[1], 然後將 $x 加 1, 這時 $x 變成 2.

如此累推.....

瀏覽器應出現和上例一樣的結果 :

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

實 例 View Example

接上例, 令程式更多變化和實用. 印出更易閱讀的結果:

#!/usr/bin/perl
print "Content-type: text/html\n\n";
#
### Set Scalar Array ########
#
@family=("Kong","Wai","Keung","Yau");
#
#
### Test Elements #######
#
$x=0;
$y=1;
#
foreach (@family) {
  print "The $y member is : $family[$x]";
  print "<BR>";
  $x=$x+1;
  $y=$y+1;
}

讀者應可自行理解這 Perl 例子的內容.

執行 Perl 程 式 後, 瀏覽器會印出 :

The 1 member is : Kong
The 2 member is : Wai
The 3 member is : Keung
The 4 member is : Yau

實 例 View Example