広告
広告
redo コマンドは条件を再評価しないでループブロックの始めからもう一度実行を開始します。continue ブロックがあっても実行されません。LABEL が省略されるとこのコマンドはもっとも内側のループを参照します。このコマンドは通常自分への入力を欺くために使用します。
LINE: while (<IN>) {
while (s|({.*}.*){.*}|$1 |) {}
s|{.*}| |;
if (s|{.*| |) {
$front = $_;
while (<IN>) {
if (/}/) { # コメントの終わり
s|^|$front{|;
redo LINE;
}
}
}
print;
}
広告