[精讚] [會員登入]
2714

[PERL] 03-條件式判斷

perl的條件式判斷

此文完整連結 http://n.sfs.tw/11658

複製連結 [PERL] 03-條件式判斷@新精讚
(文章歡迎轉載,務必尊重版權註明連結來源)
2019-10-25 13:57:39 最後編修
2017-08-19 21:38:01 By 張○○
 

自動目錄

PERL的條件式判斷有這幾種

if
if .. else
if .. elsif .. else
unless

其中 if, unless又可分為前置和後置表示法兩種,可說非常的多元,一不小心就寫錯了,而PERL本身沒有提供 switch .. case 這種東西,但能用替代的方法,參考[1]。

前置 if

語法

if( 條件 ){  處理.... }

上面的大括號是絕對不能省略的,就算只有一行也不能省略!其餘和別的程式語言都一樣。

範例

if( $day == 1 ) { print "今天是1號"; }

後置 if

語法

處理.... if 條件;

後置的表示法中沒有大括號,而且條件也不用小括號包起來,最後還多了一個分號 ';'。

處理的部分只能有一行指令,關於前置後置的差異和比較可以參考 [PERL] 前置if和後置if (if修飾子)的差別

範例

print "現在是12月" if $month >11;

print "現在是12月31" if $month >11 and $day==31;

if .. else

語法

if( 條件 ){  符合時處理.... } else {  不符合時處理.... }

上面的大括號是絕對不能省略的,就算只有一行也不能省略!其餘和別的程式語言都一樣。

if .. elsif .. else

多重條件式判斷

語法

if( 條件1 ){  符合時處理.... } elsif( 條件2 ){  符合時處理.... } elsif( 條件3 ){  符合時處理.... } else {  不符合時處理.... }

不要拚錯 'elsif',拚成 elseif 或是 else if 是不對的

大括號是絕對不能省略的,就算只有一行也不能省略。

具有先符合先跳出的特性,請看範例。

範例

$temp= 32;
if($temp <20){ print "涼冷"; }
elsif($temp <24){ print "舒適"; }
elsif($temp <28){ print "尚可"; }
elsif($temp <33){ print "炎熱"; }
else{ print "會中暑"; }

結果

炎熱

前置 unless

這是PERL特有的條件式,意思就是 if not,中文也可以叫作「除了」,建議你用這個得很小心,你得有一個清楚的腦袋,很容易就搞混了。

語法

unless( 條件 ){  處理.... }

同if上面的大括號是絕對不能省略的,意思是「除了符合條件之外,一律要處理。」,或是說「符合條件的不處理

範例

以下全部等義:

if( $age < 18){ print "未滿18歲,禁止進入"; }
unless( $age >=18) { print "未滿18歲,禁止進入"; }
unless( not $age <18) { print "未滿18歲,禁止進入"; }
if( ! ($age >= 18)){ print "未滿18歲,禁止進入"; }  # 注意 ! 後面有小刮號
if( not $age >= 18){ print "未滿18歲,禁止進入"; }

這和上面不等義,原因是 ! 的優先權大於 >= 會先把$age 處理掉,留待到運算子再提

if( ! $age >= 18){ print "未滿18歲,禁止進入"; }
unless( ! $age <18) { print "未滿18歲,禁止進入"; }

後置 unless

語法

處理.... unless 條件;

和 if 的後置一樣,不過是反義的

字串的比對

下二個單元會介紹運算子,這裡先提一判斷式會用到的運算子,在數值和字串用的並不一樣,這是PERL的特色

數值 字串 意義
$x == $y $x eq $y 等於
$x != $y $x ne $y 不等於
$x < $y $x lt $y 小於
$x > $y $x gt $y 大於
$x <= $y $x le $y 小於等於
$x >= $y $x ge $y 大於等於
$x <=> $y $x cmp $y 若$x 等於 $y 則為0
若$x 大於 $y 則為-1
若$x 小於 $y 則為1

範例

$x= 15;
$y= 9;

print $x cmp $y;  #-1
print $x <=> $y;  #1
if($x gt $y){ print "\$x gt \$y"; } #空
if($x > $y){ print "\$x > \$y"; } #印 $x > $y

上一篇 02-註解、變數和常數
回到目錄 01-撰寫第一隻PERL程式
下一篇 04-基本比對

延伸閱讀

[PERL] 前置if和後置if (if修飾子)的差別

參考資料

[1] http://wywu.pixnet.net/blog/post/23122180-%5Bperl%5D-%E4%BD%BF%E7%94%A8-switch-%E6%8E%A7%E5%88%B6%E7%B5%90%E6%A7%8B

你可能感興趣的文章

[PERL] 20- 檔案目錄處理 PERL寫入和讀出檔案

[PERL] 18-套件及模組 套件和模組入門

[PERL]] find 和 perl 的結合--大量檔案中文字的取代 利用PERL作大量的文件取代

[PERL] Regex 字元集(群組) 幾個Perl在regular express會用到的特殊符號notation:字元集

[PERL] 01-撰寫第一隻PERL程式 PERL的系列教學文,適合有其他程式經驗但沒學過PERL的人

[PERL] Perl 不立即輸出的列印緩衝區問題 解決Perl 不立即輸出而是最後一次輸出的列印緩衝區問題

PERL一次讀取檔案所有內容的方法($/) perl可以使用slurp mode一次讀完檔案所有內容的方法及一些範例

[PERL] 前置if和後置if (if修飾子)的差別 perl的if可以拿來作為後置修飾子使用,此外還有一個unless像是if的相反,分析他們的差異

自行撰寫syslog server建立資訊安全控管中心#2 -- 架構和作法 利用PERL將syslog收攏到資料庫的程式,架構和作法

[PERL] 檢查IP是否在某個網段內:matchcidr 檢查IP是否在某個網段內 matchcidr in perl

我有話要說


限制:留言最高字數1000字,超過部分會被截掉。請注意:留言不可帶有網址,會被濾掉。 限制:未登入訪客,每則留言間隔需超過10分鐘,每日最多5則留言。

訪客留言

[無留言]

隨機好文

[MAC] 截取螢幕畫面的方法 截取螢幕畫面的方法,在MAC中叫作螢幕快照,英文是screenshot

維修冰箱 維修冰箱

世紀帝國征服者新版本--被遺忘的帝國 世紀帝國征服者新版本--被遺忘的帝國 世紀二代的征服者是精典遊戲中的精典,aofe更好玩...

[PHP] 檢查IP是否在某個網段內 mtachcidr 要檢查IP是否在某個網段內,要寫幾行?10行?5行? 不用,只要2行。以下是我寫的 code /** * matchCI

[MAC] 好用的傳檔程式Commander One(可用FTP、SFTP等協定) MAC上好用的傳檔程式,免費而且支援FTP、SFTP、Dropbox、Onedrive、GoogleDrive、WebDAV等協定