本文和大家重點討論一下Perl選擇性控制結(jié)構(gòu)的概念，Perl選擇性控制結(jié)構(gòu)包括if和unless語句，類似于C語言中的if。在Perl中，這些規(guī)則有些難以理解?？刂票磉_(dá)式的值為空串或0時，則表達(dá)式為假，對于其它任何情況，表達(dá)式的值都為真。

成都創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供屯昌網(wǎng)站建設(shè)、屯昌做網(wǎng)站、屯昌網(wǎng)站設(shè)計、屯昌網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、屯昌企業(yè)網(wǎng)站模板建站服務(wù)，十多年屯昌做網(wǎng)站經(jīng)驗，不只是建網(wǎng)站，更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。

Perl選擇性控制結(jié)構(gòu)

選擇性控制結(jié)構(gòu)包括if和unless語句，類似于C語言中的if。

首先介紹一下真和假的定義。在Perl中，這些規(guī)則有些難以理解?？刂票磉_(dá)式的值為空串或0時，則表達(dá)式為假，對于其它任何情況，表達(dá)式的值都為真。

注意："00"不是空串或0，值為真。"0.0"也是如此。

指令:if假如

語法一:

if(判別運(yùn)算式)
{
表達(dá)式為真時的語句塊;
}

上個語法在Perl中也可以寫成:表達(dá)式為真時的語句塊if(判別運(yùn)算式);

范例:

 
 
 

  
  
  
print"請輸入您的分?jǐn)?shù)?\n";  
  
  
  
$scorre=;#代表標(biāo)準(zhǔn)輸入,會讓使用者輸入一字符串  
  
  
  
chop($score);#將$score***一個換行字符\n刪除掉  
  
  
  
if($score>=60){  
  
  
  
 
  
  
  
print"您的分?jǐn)?shù)及格了!\n";  
  
  
  
 
  
  
  
}  
  
  
  
 
 
 
 

 也可以寫成:print"您的分?jǐn)?shù)及格了!\n"if($score>=60);

語法二:

if(判別運(yùn)算式一){
判別式一為真時的語句塊;

}else{
判別式一為假時的語句塊;

}

范例:

 
 
 

  
  
  
print"請輸入您的分?jǐn)?shù)?\n";  
  
  
  
$scorre=;  
  
  
  
chop($score);  
  
  
  
if($score>=60)  
  
  
  
{  
  
  
  
print"您的分?jǐn)?shù)及格了!\n";  
  
  
  
}  
  
  
  
else{  
  
  
  
print"您的分?jǐn)?shù)不及格!\n";  
  
  
  
}  
  
  
  
 
 
 
 

語法三:

if(判別運(yùn)算式一)
{

判別式一為真時的語句塊;

}elsif(判別運(yùn)算式二){

判別式二為真時的語句塊;

}elsif(判別運(yùn)算式三){

判別式三為真時的語句塊;

}else{

所有判別式為假時的語句塊;

}

范例:

 
 
 

  
  
  
print"請輸入您的分?jǐn)?shù)?\n";  
  
  
  
$scorre=;  
  
  
  
chop($score);  
  
  
  
if($score>60)  
  
  
  
{  
  
  
  
print"您的分?jǐn)?shù)大于60分!\n";  
  
  
  
}  
  
  
  
elsif($score<60){  
  
  
  
print"您的分?jǐn)?shù)小于60分!\n":  
  
  
  
}  
  
  
  
else{  
  
  
  
print"您的分?jǐn)?shù)剛好是60分!\n";  
  
  
  
}  
  
  
  
 
 
 
 

#p#

 指令:unless假如非

unless的含義就是說“如果判別式不為真，就執(zhí)行...”。

語法一:

unless(判別運(yùn)算式){

判別式為假時語句塊;

}

上個語法在Perl中也可以寫成:判別式為假時語句塊unless(判別運(yùn)算式);

范例:

 
 
 

  
  
  
print"請輸入您的分?jǐn)?shù)?\n";  
  
  
  
$scorre=;#代表標(biāo)準(zhǔn)輸入,會讓使用者輸入一字符串  
  
  
  
chop($score);#將$score***一個換行字符\n刪除掉  
  
  
  
unless($score<60)  
  
  
  
{  
  
  
  
print"您的分?jǐn)?shù)及格了!\n";  
  
  
  
}  
  
  
  
 
 
 
 

也可以寫成:print"您的分?jǐn)?shù)及格了!\n"unless($score<60);

語法二:

unless(判別運(yùn)算式)
{

判別式為假時語句塊;

}else{

判別式為真時語句塊;

}

范例:

 
 
 

  
  
  
print"請輸入您的分?jǐn)?shù)?\n";  
  
  
  
$scorre=;  
  
  
  
chop($score);  
  
  
  
unless($score<60)  
  
  
  
{  
  
  
  
print"您的分?jǐn)?shù)及格了!\n";  
  
  
  
}  
  
  
  
else{  
  
  
  
print"您的分?jǐn)?shù)不及格!\n";  
  
  
  
}  
 
 
 

 【編輯推薦】

1. Perl基礎(chǔ) Perl復(fù)雜數(shù)據(jù)結(jié)構(gòu)
2. Perl print命令使用時遇到的兩個問題
3. 使用 Perl 增強(qiáng) Twitter 實用性
4. 揭秘Perl變量中Perl純變量用法
5. Perl變量中Perl數(shù)組概念詳解

文章名稱：解析Perl選擇性控制結(jié)構(gòu)的兩大指令
URL分享：http://uogjgqi.cn/article/copoocc.html