Perl 網頁程式設計課程目錄

Perl 的比較(二)

本節將討論數值 (value) 的比較.

數值比較和字串比較在程式設計技巧是一樣的. 主要分別是"比較運算子" (comparison operator) 的運用.

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

#!/usr/bin/perl
print "Content-type: text/html\n\n";
#
### Set Variables ########
#
$age1=55;
$age2=52;
$age3=49;
$age4=46;
#
$secret=45;
#
### Comparision #######
#
if ($secret > $age4) {
  print "Yau is younger than $secret";
  } else {
  print "Yau is older than $secret";
}

程 式 解 釋 如 下:

因為 $secret 年齡是 45, 所以在測試 $secret 年齡是否大於 $age4 是失敗的 (因 為 $age4 年齡是 46), 所以不會執行程式的 print "Yau is younger than $secret.", 但卻會 (else) 執行程式的 print "Yau is older than $secret."

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

Yau is older than 45.

實 例 View Example

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

$secret = 47;

#!/usr/bin/perl
print "Content-type: text/html\n\n";
#
### Set Variables ########
#
$age1=55;
$age2=52;
$age3=49;
$age4=46;
#
$secret=47;
#
### Comparision #######
#
if ($secret > $age4) {
  print "Yau is younger than $secret";
  } else {
  print "Yau is older than $secret";
}

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

Yau is younger than 47.

實 例 View Example