排序:
默认
按更新时间
按访问量

perl 退出函数问题

[root@node01 ~]# cat a2.pl sub test { $i=4; if ($i==5){ while (1==1){ $i=$i-1; if ($i==0){ print "xxxxxx\n"; return...

2017-08-03 09:06:45

阅读数:609

评论数:0

while 退出循环

$i=1; while (1==1){ $i++; print "1----------\$i is $i\n"; if ($i == 7){print "2-------\$i is $i\n";last;} }; print "xxxxxxx...

2017-06-19 21:32:47

阅读数:208

评论数:0

next 跳过当前循环

[oracle@PD sbin]$ cat t2.pl for ($i=1;$i<=3;$i++){ $j=0; print "\$i is $i\n"; while ($j<=7){ $j++; ...

2016-12-29 12:50:46

阅读数:202

评论数:0

last 退出当前循环

[oracle@PD sbin]$ cat t2.pl for ($i=1;$i<=3;$i++){ $j=0; print "\$i is $i\n"; while (1==1){ $j++; prin...

2016-12-29 12:46:42

阅读数:156

评论数:0

perl next和last

跳出控制结构:next和last next 和last 操作符运维你在循环中改变程序执行的方向,你可能经常会遇到一些的特殊情况, 碰到这种情况时你希望跳过它,或者像退出循环。 比如当你处理Unix 账号时,你也许希望跳过系统账号(比如root或Ip), next 操作符允许你将跳至本地循...

2016-12-16 11:50:04

阅读数:467

评论数:0

while +next 循环 回到循环顶端

my $show_tip = 1; sub login { while (1) { my $api ="https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=$u...

2016-11-18 11:46:13

阅读数:752

评论数:0

perl while continue

今天发现Perl中原来还有个while-continue这样的循环。其功能是除了在while中进行last语句外,每走一次while循环,再执行 紧接其后的continue语句,甚至包括next语句。并且在while(),括号中的变量是可以在continue中继续使用的,当然也包括$_。比如: ...

2016-01-23 18:05:21

阅读数:441

评论数:0

perl last 退出循环问题

LINE: while () { last LINE if /^$/; # exit when done with header #... }; jrhm...

2016-01-21 21:53:11

阅读数:3445

评论数:0

perl switch 和case语句

use Net::SMTP; use HTTP::Date qw(time2iso str2time time2iso time2isoz); my $CurrTime = time2iso(time()); my $dis_mainpublish='中均资本'; my $men...

2015-12-08 11:49:52

阅读数:2487

评论数:0

提示
确定要删除当前文章?
取消 删除
关闭
关闭