選擇性控制結構包括if和unless語句，類似于C語言中的if。
首先介紹一下真和假的定義。在Pe rl中，這些規則有些難以理解�？刂票磉_式的值為空串或0時，則表達式為假， 對于其它任何情況，表達式的值都為真。
注意："00"不是空串或0，值為真。"0.0"也是如此。
指令: if 假如
語法一:
if(判別運算式)
{
表達式為真時的語句塊;
}
上個語法在Perl中也可以寫成:
表達式為真時的語句塊 if (判別運算式);
范例:
print"請輸入您的分數?n";
$scorre=＜STDIN＞; #＜STDIN＞代表標準輸入,會讓使用者輸入一字符串
chop($score); #將$score最后一個換行字符n刪除掉
if($score＞=60){
print"您的分數及格了!n";
}
也可以寫成: print "您的分數及格了!n" if ($score＞=60);
語法二:
if(判別運算式一){
判別式一為真時的語句塊;
}else{
判別式一為假時的語句塊;
}
范例:
print"請輸入您的分數?n" ;
$scorre=＜STDIN＞;
chop($score);
if($score＞=60)
{
print"您的分數及格了!n";
}else{
print"您的分數不及格!n";
}
語法三:
if (判別運算式一)
{
判別式一為真時的語句塊;
}elsif(判別運算式二){
判別式二為真時的語句塊;
}elsif(判別運算式三){
判別式三為真時的語句塊;
}else{
所有判別式為假時的語句塊;
}
范例:
print"請輸入您的分數?n";
$sco rre=＜STDIN＞;
chop($score);
if($score＞60)
{
print"您的分數大于60分!n";< BR>
}elsif ($score＜60){
print"您的分數小于60分!n":
}else{
print"您的分數剛好是60 分!n";
}
指令: unless 假如非
unless的含義就是說“如果判別式不為真，就執行...”。
語法一:
unless(判別運算式) {
判別式為假時語句塊;
}
上個語法在Perl中也可以寫成:判別式為假時語句塊 unless (判別運算式);
范例:
print"請輸入您的分數?n";
$scorre=＜STDIN＞; #＜STDIN＞代表標準輸入,會讓使用者輸入一字符串
chop($score); #將$score最后一個換行字符n刪除掉
unless($score＜60)
{
print"您的分數及格了!n";
}
文章來源于領測軟件測試網 http://www.kjueaiud.com/
