Perl中控制结构用法总结

314598340

　　if控制结构
　　

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

　　

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

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

　　

　　while控制结构
　　

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

　　

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

　　

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

• until(0){
  
•         print &quot;test&quot;;
  
• }
  

　　

　　foreach控制结构
　　

• foreach (1..10){         列表为1到10的数值，并对其进行循环打印
  
•         print &quot;$_\n&quot;;
  
• }
  

　　

• foreach $str (qw/hello bye see you/){    对字符串的列表进行循环打印
  
•         print &quot;$str\n&quot;;
  
• }
  

　　

　　for控制结构，与foreach类似
　　

• for ($i=10;$i>0;$i--){         变量$i从10到1循环递减并打印
  
•         print &quot;$i\n&quot;;
  
• }