博客
关于我
Perl基础学习03之流程控制结构
阅读量:393 次
发布时间:2019-03-05

本文共 3005 字,大约阅读时间需要 10 分钟。

目录


布尔值及逻辑运算符

  • Perl语言布尔值(Boolean Values)

数字标量,0为假,其他数字为真;

字符串标量,''为假,其他为真;

其它先转化为以上两种再判断;

"!"表示取反。

 

  • 逻辑运算符

运算符 含义 实例

and(&&) 且 condition1 and condition2,两个条件都为真,返回真

or(||) 或 condition1 or condition2,两个条件有一个为真,返回真

not(!) 取反 not condition1,条件为真,取反则为假

条件判断

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

if (condition){#条件为真时执行

    do something.....

}else{

    do something else......

}

例如,ifelse.pl

#!/usr/bin/perluse 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/perluse 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/perluse strict;use warnings;my $result=($ARGV[0]==$ARGV[1] ? "EQ numbers" : "NE numbers");print "$result\n";

perl ternary_operator.pl 1 2

NE numbers

perl ternary_operator.pl 1 1

EQ numbers

循环

  • 循环1:while

while(condition){

do something..

}

例如,while1.pl

#!/usr/bin/perluse strict;use warnings;my $in=5;while($in<10){        print "$in\n";        $in+=2;}

perl while1.pl

5

7

9

循环2:for

for(start;expression1;expression2){

    do something.....

}

例如,for1.pl

#!/usr/bin/perluse strict;use warnings;for(my $i=5;$i<10;$i+=2){        print "$i\n";}

perl for1.pl

5

7

9

循环3:foreach

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

#!/usr/bin/perluse strict;use warnings;foreach (5..10){        print "$_\n";}print "\n";foreach my $i (5..10){        print "$i\n";}

perl foreach1.pl

5

6

7

8

9

10

 

5

6

7

8

9

10

循环4:each

例如,while_each1.pl

 

#!/usr/bin/perluse strict;use warnings;my %hash=(        "apple"=>"fruit",        "tomat"=>"vegetables",        "tomat1"=>"vegetables");#定义哈希,使用()而不是{}while(my($k,$v)=each %hash){        print "$k\t$v\n";}

perl while_each1.pl

tomat vegetables

apple fruit

tomat1 vegetables

循环控制模块:

  • last

退出当前层次的循环,不会退出外层循环,类似python中的break。

例如,last1.pl

#!/usr/bin/perluse 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/perluse 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/perluse strict;use warnings;my @array;for my $i (1..3){        push @array, $i;        redo if(@array == 2);#重新执行push @array, $i;}print "@array\n";

perl redo1.pl

1 2 2 3

 

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

print "True.\n" if $a > $b;#if $a > $b为真,执行print语句;

参考资料

我的公众号

同名公众号,持续分享数据科学和生物信息优质内容。 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

转载地址:http://cbmwz.baihongyu.com/

你可能感兴趣的文章
Webpack 基本环境搭建
查看>>
mysql5.7 安装版 表不能输入汉字解决方案
查看>>
MySQL5.7.18主从复制搭建(一主一从)
查看>>
MySQL5.7.19-win64安装启动
查看>>
mysql5.7.19安装图解_mysql5.7.19 winx64解压缩版安装配置教程
查看>>
MySQL5.7.37windows解压版的安装使用
查看>>
mysql5.7免费下载地址
查看>>
mysql5.7命令总结
查看>>
mysql5.7安装
查看>>
mysql5.7性能调优my.ini
查看>>
MySQL5.7新增Performance Schema表
查看>>
Mysql5.7深入学习 1.MySQL 5.7 中的新增功能
查看>>
Webpack 之 basic chunk graph
查看>>
Mysql5.7版本单机版my.cnf配置文件
查看>>
mysql5.7的安装和Navicat的安装
查看>>
mysql5.7示例数据库_Linux MySQL5.7多实例数据库配置
查看>>
Mysql8 数据库安装及主从配置 | Spring Cloud 2
查看>>
mysql8 配置文件配置group 问题 sql语句group不能使用报错解决 mysql8.X版本的my.cnf配置文件 my.cnf文件 能够使用的my.cnf配置文件
查看>>
MySQL8.0.29启动报错Different lower_case_table_names settings for server (‘0‘) and data dictionary (‘1‘)
查看>>
MYSQL8.0以上忘记root密码
查看>>