11. Perl 控制结构-判断

小灰灰 2022-01-29 17:45 423阅读 0赞

相对于其它脚本语言，perl 语言的判断语法还是很丰富的。除了支持常见的if-else 语法结构之外，还支持unless-else 语法结构. 而且对于单行语句，还有简写模式.

## 1. if 判断 ##

perl 的判断结构有if 和 unless, 这两种结构都是单匹配结构, 没有类似switch case 这种结构, 需要使用if-elsif-elsif-else 来模拟. 其实unless 等价于 if (! testExp) .

### 1.1 if 结构 ###

测试表达式testExp为真, 则执行代码块code

# 普通形式
    if ( testExp ) { 
       codes;
    }

### 1.2 if-else ###

如果测试表达式为真, 则执行代码块儿codes1, 否则执行代码块儿codes2

if( testExp ){ 
       codes1
    } else { 
       codes2
    }

### 1.3 if-elsif ###

*  如果表达式1为真, 则执行代码块儿codes1; 如果表达式2为真, 则执行代码块儿2
 *  注意关键字为elsif, 而不是elseif

if ( testExp1 ) { 
       codes1
    } elsif ( testExp2 )
       codes2
    }

### 1.4 if-elsif-else ###

如果表达式1为真, 则执行代码块儿codes1; 如果表达式2为真, 则执行代码块儿2, 否则执行codes3

if ( testExp1 ) { 
       codes1
    } elsif ( testExp2 )
       codes2
    } else { 
       codes3
    }

### 1.5 简写模式 ###

*  如果if 只有一条语句， 那么可以使用简写模式。简写模式，代码可读性更强.
 *  需要注意的时，if的简写模式并非向java一样省略花括号\{\}, 而是后置if判断

# 简写形式
    code if testExp;

## 2. unless 判断 ##

unless 可以翻译为除非, 如果不的意思, 和if 正好相反. if 是测试表达式为真时执行, 而unless 则是判断表达式不为真时执行.

### 2.1 unless 结构 ###

如果testExp 不为真则执行codes

## 标准写法
    unless ( testExp ){ 
       codes
    }

### 2.2 unless-else 结构 ###

如果测试表达式不为真时执行codes1, 否则执行codes2

unless ( testExp ){ 
       codes1
    } else { 
       codes2
    }

### 2.3 unless 简写模式 ###

*  当unless 只有一行时, 可以使用简写模式. 简写模式使代码可读性更强。
 *  需要注意的时，if的简写模式并非向java一样省略花括号\{\}, 而是后置if判断

code unless testExp;

## 3. 测试用例 ##

### 3.1 测试if结构 ###

#!/usr/bin/perl
    #Desc 测试if 的简单使用
    #Auth zongf
    #Date 2019-05-20
    
    $score=shift;
    
    #标准形式
    if($score > 90){ 
       print "[if-elsif-else] your score is A \n";
    }elsif($score >80){ 
       print "[if-elsif-else] your score is B \n";
    }elsif($score >70){ 
       print "[if-elsif-else] your score is C \n";
    }else{ 
       print "[if-elsif-else] your score is D \n";
    }
    
    print "You are amazing ! Your score is 100 ! \n" if $score == 100;

### 3.2 测试unless 结构 ###

#!/usr/bin/perl
    #Desc 测试unless 的简单使用
    #Auth zongf
    #Date 2019-05-20
    
    $score=shift;
    
    #标准形式
    unless($score <50){ 
       print "[unless-else] your score is good ! \n";
    }else{ 
       print "[unless-else] your score is bad ! \n";
    }
    
    #简写形式: 如果score不大于50,则输出
    print "[unless] your score is very bad !!! Your score is $score! \n" unless $score >50;

$ ./if.pl 85
    [if-elsif-else] your score is B 
    
    $ ./if.pl 100
    [if-elsif-else] your score is A 
    You are amazing ! Your score is 100 !