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;
}
页:
[1]