Perl 学习记录2 控制程序流

最新推荐文章于 2023-03-19 11:35:55 发布

最新推荐文章于 2023-03-19 11:35:55 发布 · 112 阅读

文章标签：

#Perl #J#

Perl 专栏收录该内容

6 篇文章

订阅专栏

本文介绍了Perl中的条件语句、循环控制及流程控制等基础知识，包括if、elsif、else语句的使用，以及last、next等关键字的功能。同时给出了具体的示例代码。

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";
}
}