Perl中控制结构用法总结

if控制结构

 
 

chomp(my?$a?=?<STDIN>);? 用户输入变量$a的值
  
  
if($a?>?0){? 若$a大于0则执行命令
  
  
????????print?"$a?is?larger?than?0n";?
  
  
}?
  
  
elsif($a?==?0){? 若$a等于0则执行命令
  
  
????????print?"$a?equals?0n";?
  
  
}?
  
  
else{? 若$a小于0则执行命令
  
  
????????print?"$a?is?smaller?than?0n";?
  
  
}?
 
 

unless控制结构与if作用相反，表示判断为假时执行命令

 
 

chomp?(my?$a?=?<STDIN>);?
  
  
unless($a?>?0){?
  
  
????????print?"$a?is?not?larger?than?0n";?
  
  
}?
 
 

while控制结构

 
 

$b?=?0;? 给变量$b赋值为0
  
  
while($b?<?20){? 当$b小于20时则执行循环里的命令
  
  
????????$b++;?
  
  
????????say?"$b";?
  
  
}?
 
 

 
 

while(<>){? 始终让用户输入字符串
  
  
????????if(/fred/){? 若输入的字符串中包含"fred"则打印，否则不打印
  
  
????????????????print;?
  
  
????????}?
  
  
}?
 
 

until控制结构，与while作用相反，当判断为假时执行循环

 
 

until(0){?
  
  
????????print?"test";?
  
  
}?
 
 

foreach控制结构

 
 

foreach?(1..10){? 列表为1到10的数值，并对其进行循环打印
  
  
????????print?"$_n";?
  
  
}?
 
 

 
 

foreach?$str?(qw/hello?bye?see?you/){? 对字符串的列表进行循环打印
  
  
????????print?"$strn";?
  
  
}?
 
 

for控制结构，与foreach类似

 
 

for?($i=10;$i>0;$i--){? 变量$i从10到1循环递减并打印
  
  
????????print?"$in";?
  
  
}?