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;
}