Perl中的控制结构学习笔记
发布时间：2020-12-15 21:56:38 所属栏目：大数据 来源：网络整理
导读：一、条件判断 复制代码 代码如下: if ( ) { } elsif ( ) { } ... else{ } 建立i f语句的另一种方法是使用多个表达式，然后根据哪个表达式是真，来运行代码：可以像下面这样来读取上面这个语句块：如果标号为e x p r e s s i o n 1的表达式是真，那么语句块B
|
一、条件判断 复制代码 代码如下: if ( ) { } elsif ( ) { } ... else{ } 建立i f语句的另一种方法是使用多个表达式，然后根据哪个表达式是真，来运行代码：可以像下面这样来读取上面这个语句块：如果标号为e x p r e s s i o n 1的表达式是真，那么语句块B L O C K 1就运行。否则，控制权转给e l s i f，对e x p r e s s i o n 2进行测试，如果该表达式是真， 则运行B L O C K 2。如果e x p r e s s i o n 1和e x p r e s s i o n 2都不是真，那么B L O C K 3运行 二、循环： 1、while循环 复制代码 代码如下: while ( ) { } 2、until循环 复制代码 代码如下: until ( ) { } 3、类C的for循环 ，如 复制代码 代码如下: for ($count=1; $count <= 5; $count++) { # statements inside the loop go here } 下面是在for循环中使用逗号操作符的例子： 复制代码 代码如下: for ($line =,$count = 1; $count <= 3; $line =,$count++) { print ($line); } 它等价于下列语句： 复制代码 代码如下: $line = ; $count = 1; while ($count <= 3) { print ($line); $line = ; $count++; } 4、针对列表(数组)每个元素的循环：foreach， 语法为： 复制代码 代码如下: foreach localvar (listexpr) { statement_block; } 例： 复制代码 代码如下: foreach $word (@words) { if ($word eq "the") { print ("found the word 'the'n"); } } 注： (1)此处的循环变量localvar是个局部变量，如果在此之前它已有值，则循环后仍恢复该值。 (2)在循环中改变局部变量，相应的数组变量也会改变，如： 复制代码 代码如下: @list = (1,2,3,4,5); foreach $temp (@list) { if ($temp == 2) { $temp = 20; } } 此时@list已变成了(1,20,5)。 5、do循环 复制代码 代码如下: do { statement_block } while_or_until (condexpr); do循环至少执行一次循环。 6、循环控制 退出循环为last，与C中的break作用相同；执行下一个循环为next，与C中的continue作用相同；PERL特有的一个命令是redo，其含义是重复此次循环，即循环变量不变，回到循环起始点，但要注意，redo命令在do循环中不起作用。 7、传统的goto label;语句。 三、单行条件 复制代码 代码如下: print ("This is zero.n") if ($var == 0); print ("This is zero.n") unless ($var != 0); print ("Not zero yet.n") while ($var-- > 0); print ("Not zero yet.n") until ($var-- == 0); 虽然条件判断写在后面，但却是先执行的。 指令: unless 假如非 复制代码 代码如下: unless(判别运算式) { 判别式为假时语句块; } 上个语法在Perl中也可以写成:判别式为假时语句块 unless (判别运算式); 范例: 复制代码 代码如下: print"请输入您的分数?n"; $scorre=; #代表标准输入,会让使用者输入一字符串 chop($score); #将$score最后一个换行字符n删除掉 unless($score<60) { print"您的分数及格了!n"; } 也可以写成: print"您的分数及格了!n"unless($score<60); 语法二: 复制代码 代码如下: unless(判别运算式) { 判别式为假时语句块; }else{ 判别式为真时语句块; } 范例: 复制代码 代码如下: print"请输入您的分数?n"; $scorre=; chop($score); unless($score<60) { print"您的分数及格了!n"; }else{ print"您的分数不及格!n"; } 进阶技巧:&&,||及?:作为控制结构 它们看上去像标点符号，或是表达式的一部分。但在Perl中可作为控制结构。 比如说： 复制代码 代码如下: if (判别表达式) {为真时语句块}; 也可以写为： 复制代码 代码如下: 为真时的语句块 if (判别表达式) 但更简单的方式是： 复制代码 代码如下: 判别式 && 为真时的语句块 为什么呢？&&为逻辑与操作符，其含义为： 若判别式为真，则表达式的值依赖于后面语句块的值。所以为真时的语句块被执行(用来求值)。 若判别式为假，则整个表达式为假，不用考虑后面语句块的值。所以为假时的语句块不被执行。 同样道理，unless(this){that}可替换为this||that。 ?:表达式举例:exp1?exp2:exp3表示：如果exp1为真则求exp2的值，否则求exp3的值。 （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |