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