Perl 中流程控制语句

--------------------------- 一、循环语句 ----------------------------

1.for 语句：
  例子：计算从1到10，所有正整数的和.
  $sum=0;
  for($i=1;$i<=10;$i++){
     $sum+=$i;
  }
  print $sum . "\n";

2.foreach语句：

例子1、：计算从1..100，所有正整数的和.
$sum=0;
foreach(1..100){
    $sum+=$_;
}
print $sum . "\n";

例子2、：计算从1..5，所有正整数的和.
$sum=0;
foreach(1..100){
    $sum+=$_;
    if($_ eq 5){
       last; #相当于java中的break关键字.
    }
}
print $sum . "\n";

注释：结果为 1+2+3+4+5=15.

3.until语句：

例子：打印从1到9的数字.

$small=1;
$big=10;
until($small eq $big){
    print $small . "\n";
    $small++;
}
 
-------------------------- 二、条件语句 -------------------------------
1.if语句：

  例如：

   if(1){
     print "this is a demo for while ..";
   }



2.while语句：
  例子：用while语句写的死循环.
  while(1){
    print "this is a demo for while ..";
}


3.unless语句：
 
  例如：输入一些字符串并打印，直到输入的字符中含有end结束程序.
 
  $inputstr=<STDIN>;
  unless($inputstr =~ /.end./r){
     exit 1;
  }else{
     print "your input :" . $inputstr;
  }