perl基础——循环控制_principle循环

zhezhongyun 2025-09-13 13:07 5 浏览

在编程中，我们往往需要进行不同情况的判断，选择，重复操作。这些时候我们需要对简单语句来添加循环控制变量或者命令。

if/unless

我们需要在满足特定条件下再执行的语句，可以通过if/unless（else）来控制：

my $num = 5;
if ($num >= 3){
  print "biger than or equal 3\n";
}else{
  print "less than 5\n";
}


unless ($num == 5){
  print "not equal 5\n";
}else{
  print "equal 5\n";
}


print "$num is 5\n" if $num == 5;

一般对于只有一个执行语句的情况，我们可以根据需要将if/unless后置，这样代码可以更简洁。

需要特殊指出的是，在Perl中数字0，空字符''，以及undef都会被判定为false。

while/until

我们需要在某一条件进行重复操作时，可以使用while/until

my $num = 5;
while($num <= 15){
  $num++;
}
continue {
        print "$num\n";
}

continue块每次循环都会执行，哪怕退出了该循环。

for/foreach

但明确循环次数时，我们一般使用for循环（for等效foreach），

Perl也支持其他语言的3条件for，但一般不推荐也不用

for(my $i = 0; $i < 10; $i++){
....
}

perl中经常使用的方式

my @nums = (1,2,3,4,5,6,7);
for my $num(@nums){
  print "$num\n";
}

这种方式，我们不需要设置过多的条件，只需要依次迭代所有的元素即可，代码维护性也更强

在循环中，我们可以使用last next redo来控制单次/整个循环

在没有标签的情况下：

last：退出并结束当前循环（如多层循环，则只退出最内层）

next: 退出并结束当次循环，并开始下次循环

redo: 重新开始当次循环

在有标签的情况下，会直接忽略代码所在的层次，直接根据标签的层次来计算。

perl中没有 switch（case），因为不需要， perl可以很容易的通过多种方法来达到switch（case）的效果。

Less 循环

上一篇：CHAPTER 2 The Antechamber of M de Treville 第二章特雷维尔先生的前厅
已经是最后一篇了

perl基础——循环控制_principle循环

相关推荐

b端详情页:各种信息聚集地，设计师要如何规划这一亩三分地呢

漏洞系列一一看我一招征服漏洞 SSRF

Web前端需要学什么?Web前端开发需要学习哪些?

接口测试遇到500报错?别慌，你的头部可能有点问题

前端Flex布局可视化布局工具介绍，vue和html5快速设计利器

「资讯」为强迫用户使用Edge浏览器，微软又出新招数

HTML 简介（html简介及优缺点）

HBuilderX，uni-app创建HTML5项目，同时支持浏览器和移动端

现在页面实时聊天都使用Websocket技术实现吗?

关于HTML5被简称做H5，你怎么看?（html5缩写）