Perl 網頁程式設計課程目錄

Perl 的比較(一)

比較 (Comparison) 在任何程式設計上的應用都是非常重要的, 務必多加研習.

Perl 語言的比較分為字串 (string) 比較和數值 (value) 比較, 本節將討論字串(string)比較.

我有四兄弟, 大哥叫 "Kong", 二哥叫 "Wai", 三哥叫 "Keung", 我排行最後, 叫"Yau". 往後很多例子就讓我們四兄弟做主角吧!

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

#!/usr/bin/perl
print "Content-type: text/html\n\n";
#
### Set Variables ########
#
$member1="Kong";
$member2="Wai";
$member3="Keung";
$member4="Yau";
#
$stranger="Yau";
#
### Comparision #######
#
if ($stranger eq $member4) {
  print "Wellcome, you are Yau.";
}

程式解釋如下:

第 六 行 至 第 九 行 :

設定四兄弟的變數.

第 11 行 : $stranger="Yau";

設定 $stranger 是誰人.

在實際應用上, $stranger 的值會經由表單而取得, 稍後本課程亦會探討表單的應用.

瀏覽器應出現 :

Wellcome, you are Yau.

實 例 View Example

接上例, 試試更改 $stranger 的值如下:

$stranger = "Keung";

#!/usr/bin/perl
print "Content-type: text/html\n\n";
#
### Set Variables ########
#
$member1="Kong";
$member2="Wai";
$member3="Keung";
$member4="Yau";
#
$stranger="Keung";
#
### Comparision #######
#
if ($stranger eq $member4) {
  print "Wellcome, you are Yau.";
}

因為 $stranger 現在是 "Keung", 所以在測試 $stranger 是否 $member4 (第 15 行) 是失敗的 (因 為 $member4 是 阿 "Yau"), 所以不會執行程式的 print "Wellcome, you are Yau.", 而瀏覽器亦不會印出 Wellcome, you are Yau.

實 例 View Example

當然,就算測試失敗與否, 我們都希望瀏覽器印出一些信息給我們的訪客, 否則, 他們不知道 Sumit 了的表單處理了沒有.

要達到這要求,我們可再接上例將程式修改如下:

#!/usr/bin/perl
print "Content-type: text/html\n\n";
#
### Set Variables ########
#
$member1="Kong";
$member2="Wai";
$member3="Keung";
$member4="Yau";
#
$stranger="Keung";
#
### Comparision #######
#
if ($stranger eq $member4) {
  print "Wellcome, You are Yau.";
  } else {
  print "You are not Yau!";
}

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

You are not Yau!

實 例 View Example