Perl语言的流程控制

　　以下是在Perl语言中常用的程序流程控制,大部分和C语言的程序流程控制很类似,学
过C语言的人,应该
会很熟悉。

　　一、选择性流程控制

指令:if假如
语法一:if(判别运算式){
　　　　　　程序叙述区块;
　　　　}
　　　上个语法在Perl中也可以写成:
　　　程序叙述区块if(判别运算式)；
范例:
　　print"请输入您的分数?\n"；
　　$score=<STDIN>;　#<STDIN>代表标准输入,会让使用者输入一字符串
　　chop($score);　　#将$score最后一个换行字符\n删除掉
　　if($score>=60){
　　　　print"您的分数及格了!\n";
　　也可以写成:
　　print"您的分数及格了!\n"if($score>=60);

语法二:if(判别运算式一){
　　　　　程序叙述区块一;
　　　　}else{
　　　　　程序叙述区块二;
　　　　}
范例:
　　print"请输入您的分数?\n";
　　$score=<STDIN>;
　　chop($score);
　　if($score>=60){
　　　　print"您的分数及格了!\n"
　　}else{
　　　　print"您的分数不及格!＼n";
　　}

语法三:if(判别运算式一){
　　　　　　程序叙述区块一;
　　　　}elsif(判别运算式二){
　　　　　　程序叙述区块二;
　　　　}else{
　　　　　　程序叙述区块三;
　　}
范例:
　　print"请输入您的分数?\n";
　　$score=<STDIN>;
　　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=<STDIN>;#<STDIN>代表标准输入,会让使用者输入一字符串
　　chop($score);#将$score最后一个换行字符＼n删除掉
　　unless($score<60){
　　　　print"您的分数及格了!＼n";
　　}
　　也可以写成:
　　print"您的分数及格了!\n"unless($score$x?);

语法二:unless(判别运算式一){
　　　　　　程序叙述区块一;
　　　　}else{
　　　　　　程序叙述区块二;
　　　　}
范例:
　　print"请输入您的分数?\n";
　　$score=<STDIN>;
　　chop($score)
　　unless($score$x?){
　　　　print"您的分数及格了!\n";
　　}else{
　　　　print"您的分数不及格!\n";
　　}

上一篇　目录　下一篇