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