
- Perl 基础
- Perl - 首页
- Perl - 简介
- Perl - 环境
- Perl - 语法概述
- Perl - 数据类型
- Perl - 变量
- Perl - 标量
- Perl - 数组
- Perl - 哈希
- Perl - IF...ELSE
- Perl - 循环
- Perl - 操作符
- Perl - 日期和时间
- Perl - 子例程
- Perl - 引用
- Perl - 格式
- Perl - 文件 I/O
- Perl - 目录
- Perl - 错误处理
- Perl - 特殊变量
- Perl - 编码标准
- Perl - 正则表达式
- Perl - 发送电子邮件
- Perl 高级
- Perl - 套接字编程
- Perl - 面向对象
- Perl - 数据库访问
- Perl - CGI 编程
- Perl - 包和模块
- Perl - 进程管理
- Perl - 嵌入式文档
- Perl - 函数引用
- Perl 的有用资源
- Perl - 问题与解答
- Perl - 快速指南
- Perl - 有用资源
- Perl - 讨论
Perl 的 redo 语句
redo 命令重新启动循环块,而不再次求值条件。可以在 redo 语句中提供一个 LABEL,其中 LABEL 为循环的标签。如果没有指定 LABEL,则可以在嵌套循环内使用 redo 语句,它将适用于最邻近的循环。
如果循环上存在任何 continue 块,那么在求值条件之前将不会执行该块。
语法
redo 语句的语法如下 −
redo [LABEL]
流程图

示例
以下程序展示了 redo 语句的使用 −
#/usr/local/bin/perl $a = 0; while($a < 10) { if( $a == 5 ) { $a = $a + 1; redo; } print "Value of a = $a\n"; } continue { $a = $a + 1; }
这将产生以下结果 −
Value of a = 0 Value of a = 1 Value of a = 2 Value of a = 3 Value of a = 4 Value of a = 6 Value of a = 7 Value of a = 8 Value of a = 9
perl_loops.htm
广告