Perl中控制结构用法总结

if控制结构

 
 

chomp(my $a = <STDIN>);  用户输入变量$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 = <STDIN>); 
  
  
unless($a > 0){ 
  
  
        print "$a is not larger than 0\n"; 
  
  
} 
 
 

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 "$str\n"; 
  
  
} 
 
 

for控制结构，与foreach类似

 
 

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