5.7 迴圈控制

Perl 常見的迴圈有while、for、foreach、until，在每一種迴圈中，可以視情況，使用以下 ... next next 標記用例： $i=0; while ($i<=100) { $i++; next if ($i==10); ... ºô¸ôºÞ²z»y¨¥Perl¤Jªù»P¹ê§@:<<>>5.7°j°é±±¨îPerl±`¨£ªº°j°é¦³while¡Bfor¡Bforeach¡Buntil¡A¦b¨C¤@ºØ°j°é¤¤¡A¥i¥Hµø±¡ªp¡A¨Ï¥Î¥H¤U¤TºØºâ²Å¡A¨Ó±±¨î°j°é¡C last¤@¦¸¥u¯à¸õ¥X¤@¼h°j°é »yªk¡Glast ¥Î¨Ò¡G $i=0; while($i<=100){ $i++; lastif($i==10);#·í$iµ¥©ó10®É¡A¸õ¥Xwhileµ²§ô°j°é¡C print"$i\n"; } ­Y­n¤@¦¸¸õ¥X¦h¼h°j°é¡A¥²¶·±Ä¥Î¼Ð°O¡G »yªk¡Glast¼Ð°O ¥Î¨Ò¡G #!/usr/bin/perl $i=0; $j=0; OUT:while($j<=100){ $j++; while($i<=100){ $i++; lastOUTif($i==10);#·í$iµ¥©ó10®É¡A¸õ¦Ü³Ì¥~°é¡C print"$i\n"; } print"§Ú¬Oj:$j\n"; } next next¼Ð°O ¥Î¨Ò¡G $i=0; while($i<=100){ $i++; nextif($i==10);#·í$iµ¥©ó10®É¡A¸õ¹L¥h¡A¤£°õ¦æprintªº°Ê§@ print"Nowis$i\n"; } redoªí¥Ü­è­è°õ¦æªº¨º¤@¦¸¤£ºâ¡Aindex­È¤£¼W¥[¡A­«°µ¤@¦¸! redo redo¼Ð°O ¥Î¨Ò¡G for($i=1;$i<=100;$i++){ print"½Ð¿é¤J¼Æ¦r$i¡G"; chomp($keyin=); if($keyin!=$i){#­Y¥´¿ù¤F¡A¦A­n¨D­«¥´¤@¦¸ print"©êºp!±z¥´¿ù¤F!¬O$i¤~¹ï!½Ð­«¥´¤@¦¸!\n"; redo; }else{ print"«Ü¦n!§Ú³ßÅw!\n"; } } #´ú¸Õµ²ªG¡G ½Ð¿é¤J¼Æ¦r1¡G1 ½Ð¿é¤J¼Æ¦r2¡G2 ½Ð¿é¤J¼Æ¦r3¡G3 ½Ð¿é¤J¼Æ¦r4¡G5 ©êºp!±z¥´¿ù¤F!¬O4¤~¹ï!½Ð­«¥´¤@¦¸! ½Ð¿é¤J¼Æ¦r4¡G6 ©êºp!±z¥´¿ù¤F!¬O4¤~¹ï!½Ð­«¥´¤@¦¸! ½Ð¿é¤J¼Æ¦r4¡G9 ©êºp!±z¥´¿ù¤F!¬O4¤~¹ï!½Ð­«¥´¤@¦¸! ½Ð¿é¤J¼Æ¦r4¡G10 ©êºp!±z¥´¿ù¤F!¬O4¤~¹ï!½Ð­«¥´¤@¦¸! ½Ð¿é¤J¼Æ¦r4¡G4 ½Ð¿é¤J¼Æ¦r5¡G5 ½Ð¿é¤J¼Æ¦r6¡G6 ½Ð¿é¤J¼Æ¦r7¡G7 ½Ð¿é¤J¼Æ¦r8¡G8 ½Ð¿é¤J¼Æ¦r9¡G9 <<>>5.6foreach±±¨îµ²ºcUp5.8¤T¤¸¹Bºâ¤l