【モダン推奨】Perlについての質問箱 50箱目

[570 デフォルトの名無しさん 2018/03/30(金) 20:15:44.88 ID:1Iia3Fde]

while(1) {
　　PROC1;
　　if (COND) {
　　　　last;
　　}
　　PROC2;
}

こんなような処理を、while(1)とかlastとか使わずにスマートに書けない?