perl控制結構(1)-判斷控制

　　選擇性控制結構包括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