39、Perl 循环结构全解析：while、until、do while 与 foreach

Perl 循环结构全解析：while、until、do while 与 foreach

1. while 和 until 循环基础

在 Perl 编程中， while 和 until 循环是常用的迭代结构，它们会持续执行代码块，直到满足终止条件。这两个循环的区别在于：
- while 循环：只要控制条件为真（True），就会持续迭代。
- until 循环：会一直迭代，直到控制条件变为真（True）。

以下是 Shell 和 Perl 中 while 和 until 循环的语法对比：
| 语言 | 展开形式 | 压缩形式 |
| — | — | — |
| Shell | while<br> condition<br>do<br> code<br>done | while condition; do code; done |
| Perl | while ( condition ) {<br> code;<br>} | while ( condition ) { code; } |

需要注意的是，在 Perl 代码块结尾的右花括号后不需要使用分号，尽管很多初学者会习惯性地加上。

2. 数值参数求和示例

处理所有位