Perl-Sensitive Sunglasses | |
PerlMonks |
perlfunc:redoby gods (Initiate) |
on Aug 24, 1999 at 22:42 UTC ( [id://201]=perlfunc: print w/replies, xml ) | Need Help?? |
redoSee the current Perl documentation for redo. Here is our local, out-dated (pre-5.6) version: redo - start this loop iteration over again
redo LABEL redo
The redo command restarts the loop block without evaluating the conditional again. The continue block, if any, is not executed. If the LABEL is omitted, the command refers to the innermost enclosing loop. This command is normally used by programs that want to lie to themselves about what was just input:
# a simpleminded Pascal comment stripper # (warning: assumes no { or } in strings) LINE: while (<STDIN>) { while (s|({.*}.*){.*}|$1 |) {} s|{.*}| |; if (s|{.*| |) { $front = $_; while (<STDIN>) { if (/}/) { # end of comment? s|^|$front\{|; redo LINE; } } } print; } See also continue for an illustration of how last, next, and redo work. |
|