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 prime\n";
 }
}