首发于本人公众号：pythonic生物人

更好的阅读体验请戳：

Perl学习03之流程控制结构

目录

1、布尔值及逻辑运算符

• 布尔值（Boolean Values）

• 逻辑运算符

2、条件判断

• 条件判断1：if....elsif....else

• 条件判断2：unless...else....

• 条件判断3：三目运算符

3、循环

• 循环1：while

• 循环2：for

• 循环3：foreach

• 循环4：each

4、循环控制模块：

• last

• next

• redo

• 表达式后面加流程控制语句

5、参考资料

---

1、布尔值及逻辑运算符

• 布尔值（Boolean Values）

数字标量，0为假，其他数字为真；
字符串标量，''为假，其他为真；
其它先转化为以上两种再判断；
"!"表示取反。

• 逻辑运算符

运算符 含义 实例
and(&&) 且 condition1 and condition2，两个条件都为真，返回真
or(||) 或 condition1 or condition2，两个条件有一个为真，返回真
not(!) 取反 not condition1，条件为真，取反则为假

---

2、条件判断

• 条件判断1： if....elsif....else

if (condition){#条件为真时执行
do something.....
}else{
do something else......
}
例如，ifelse.pl

#!/usr/bin/perl
use strict;
use warnings;

my $str1 = $ARGV[0];
my $str2 = $ARGV[1];
if($str1 == $str2){
        print "EQ numbers, good job!n";
}elsif($str1>$str2){
        print "Bigger numbers, go on!n";
}else{
        print "Over!n";
}

perl ifelse.pl 1 1
EQ numbers, good job!

perl ifelse.pl 2 1
Bigger numbers, go on!

perl ifelse.pl 2 3
Over!

• 条件判断2：unless...else....

unless(condition)){#条件为假时执行
do somesthing...
}else{
do something else
}

例如，unless1.pl

#!/usr/bin/perl
use strict;
use warnings;

my $str1=$ARGV[0];
my $str2=$ARGV[1];

unless($str1!=$str2){
        print "EQ numbers!n";
}else{
        print "NE numbers!n";
}

perl unless1.pl 1 1
EQ numbers!

perl unless1.pl 1 2
NE numbers!

• 条件判断3：三目运算符

expression ? true_value : false_value
如果expression为真，整个表达式返回true_value；如果expression为假，整个表达式返回false_value；
例如，ternary_operator.pl

#!/usr/bin/perl
use strict;
use warnings;

my $result=($ARGV[0]==$ARGV[1] ? "EQ numbers" : "NE numbers");
print "$resultn";

perl ternary_operator.pl 1 2
NE numbers

perl ternary_operator.pl 1 1
EQ numbers
while(condition){
do something..
}

---

3、循环

• 循环1，while

例如，while1.pl

#!/usr/bin/perl
use strict;
use warnings;

my $in=5;
while($in<10){
        print "$inn";
        $in+=2;
}

perl while1.pl
5
7
9

• 循环2：for

for(start;expression1;expression2){

do something.....

}

例如，for1.pl

#!/usr/bin/perl
use strict;
use warnings;

for(my $i=5;$i<10;$i+=2){
        print "$in";
}

perl for1.pl
5
7
9

• 循环3：foreach

以下两种方式结果相同，例如，foreach1.pl

#!/usr/bin/perl
use strict;
use warnings;

foreach (5..10){
        print "$_n";
}

print "n";

foreach my $i (5..10){
        print "$in";
}

perl foreach1.pl
5
6
7
8
9
10
5
6
7
8
9
10

• 循环4：each

例如，while_each1.pl

#!/usr/bin/perl
use strict;
use warnings;

my %hash=(
        "apple"=>"fruit",
        "tomat"=>"vegetables",
        "tomat1"=>"vegetables"
);#定义哈希，使用()而不是{}
while(my($k,$v)=each %hash){
        print "$kt$vn";
}

perl while_each1.pl
tomat vegetables
apple fruit
tomat1 vegetables

---

4、循环控制模块

• last

退出当前层次的循环，不会退出外层循环，类似python中的break。
例如，last1.pl

#!/usr/bin/perl
use strict;
use warnings;

my $in=2;
foreach (1..20){
        last if $_%$in == 0;#当遇到能被2整除的数时，跳出当前循环
        print "$_n";
}

perl last1.pl
1

• next

跳过本次循环，进入下一轮循环，类似python中的continue。
例如，next1.pl

#!/usr/bin/perl
use strict;
use warnings;

my $in=2;
foreach (1..20){
        next if $_%$in == 0;#跳过能被2整除的数
        print "$_n";
}

perl next1.pl
1
3
5
7
9
11
13
15
17
19

• redo

忽略之后的语句，重新执行本次循环。
例如，redo1.pl

#!/usr/bin/perl
use strict;
use warnings;

my @array;
for my $i (1..3){
        push @array, $i;
        redo if(@array == 2);#重新执行push @array, $i;
}

print "@arrayn";

perl redo1.pl

1 2 2 3

• 表达式后面加流程控制语句

print "True.n" if b;#if b为真，执行print语句；

参考资料

https://link.zhihu.com/?target=https%3A//perldoc.perl.org/
小骆驼

干货，真香