以下是在Perl語言中常用的程序流程控制,大部分和C語言的程序流程控制很類似,學過C語言的人,應該會很熟悉。

一、選擇性流程控制

指令:if假如
語法一:if(判別運算式){
程序敘述區塊;
}
上個語法在Perl中也可以寫成:
程序敘述區塊if(判別運算式)；
范例:
print"請輸入您的分數?n"；
$score=;#代表標準輸入,會讓使用者輸入一字符串
chop($score);#將$score最后一個換行字符n刪除掉
if($score>=60){
print"您的分數及格了!n";
也可以寫成:
print"您的分數及格了!n"if($score>=60);

語法二:if(判別運算式一){
程序敘述區塊一;
}else{
程序敘述區塊二;
}
范例:
print"請輸入您的分數?n";
$score=;
chop($score);
if($score>=60){
print"您的分數及格了!n"
}else{
print"您的分數不及格!＼n";
}

語法三:if(判別運算式一){
程序敘述區塊一;
}elsif(判別運算式二){
程序敘述區塊二;
}else{
程序敘述區塊三;
}
范例:
print"請輸入您的分數?n";
$score=;
chop($score);
if($score>60){
print"您的分數大于60分!n";
}elsif($score$x?){
print"您的分數小于60分!n";
}else{
print"您的分數剛好是60分!n";
}

指令:unless假如非
語法一:unless(判別運算式){
程序敘述區塊;
}
上個語法在Per1中也可以寫成:
程序敘述區塊unless(判別運算式);

范例:
print"請輸入您的分數?n";
$score=;#代表標準輸入,會讓使用者輸入一字符串
chop($score);#將$score最后一個換行字符＼n刪除掉
unless($score<60){
print"您的分數及格了!＼n";
}
也可以寫成:
print"您的分數及格了!n"unless($score$x?);

語法二:unless(判別運算式一){
程序敘述區塊一;
}else{
程序敘述區塊二;
}
范例:
print"請輸入您的分數?n";
$score=;
chop($score)
unless($score$x?){
print"您的分數及格了!n";
}else{
print"您的分數不及格!n";
}