以下是在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";
}（出处：不详 ） |
当前位置：
特别推荐