Perl 学习记录2 控制程序流

16.if语句
if()
elsif()
else

?

17.例子
#!/usr/bin/perl -w

$randNum = int(rand 10);
print "输入一个数字" ;
$guess = <stdin>;

chomp $guess ;
if($guess>$randNum){
?print "大了!n";
}elsif($guess < $randNum){
?print "小了!n";
}else{
?print "猜对了!n";
}

?

18.
运算符?? 举例???说明
eq?$s eq $t?如果$ s等于$ t，则为真
gt?$s gt $t?如果$ s大于$ t，则为真
lt?$s lt $t?如果$ s小于$ t，则为真
ge?$s ge $t?如果$ s大于或者等于$ t，则为真
le?$s le $t?如果$ s小于或者等于$ t，则为真
ne?$s ne $t?如果$ s不等于$ t，则为真

?

19.undef这个值在Perl中是个特殊值。尚未设置的变量均拥有undef这个值，并且有些函数在
运行失败时也返回undef。

20.last语句能够使当前正在运行的最里面的循环块退出。当你拥有多个嵌套的循环语句时，l a s t将退出当前正在运行的循环。
while($i < 10){
???? last if($i==5);
???? $i++;
}

next语句使得控制权被重新传递给循环的顶部，如果该循环尚未结束的话,下一个循环的重复运行则开始进行

?

20.标号
标号名使用的约定与变量名基本相同，不过有一个很小的差别，那就是标号名不像变量，它不带%、$和@之类的标识符。
MyBlock:{
}

?

21.exit语句是最后的一个流控制工具。当 Perl遇到exit语句时，程序就停止执行，Perl将一个退出状态返回给操作系统。

?

22.例子
#!/usr/bin/perl -w

$maxprimes = 20 ;$value = 1;$count = 0 ;while($count < $maxprimes){??? $value++;??? $composite = 0 ;OUTER: for ($i=2;$i<$value;$i++){?for($j = $i; $j < $value ; $j++){??????? if(($j * $i)==$value){??$composite = 1;??last OUTER;?}??????? }?}?if(!$composite){?$count++;?print "$value is primen";?}}