while 退出循环

[oracle@oadb tmp]$ cat a1.pl $i=1;while (1==1){$i++;print "1----------\$i is $i\n";if ($i == 7){print "2-------\$i is $i\n";last;}print "${i}xxxxxxxxxxxxxx${i}\n";};[oracle@oadb tmp]$ perl a1.pl 1----------$i is 22xxxxxxxxxxxxxx21----------$i is 33xxxxxxxxxxxxxx31----------$i is 44xxxxxxxxxxxxxx41----------$i is 55xxxxxxxxxxxxxx51----------$i is 66xxxxxxxxxxxxxx61----------$i is 72-------$i is 7last 退出当前循环:[oracle@oadb tmp]$ cat a2.pl while (1==1){$j=$j+5;print "\$j===$j\n";$i=1;while (1==1){$i++;print "1----------\$i is $i\n";if ($i == 7){print "2-------\$i is $i\n";last;}print "${i}xxxxxxxxxxxxxx${i}\n";};sleep 5;};[oracle@oadb tmp]$ perl a2.pl $j===51----------$i is 22xxxxxxxxxxxxxx21----------$i is 33xxxxxxxxxxxxxx31----------$i is 44xxxxxxxxxxxxxx41----------$i is 55xxxxxxxxxxxxxx51----------$i is 66xxxxxxxxxxxxxx61----------$i is 72-------$i is 7$j===101----------$i is 22xxxxxxxxxxxxxx21----------$i is 33xxxxxxxxxxxxxx31----------$i is 44xxxxxxxxxxxxxx41----------$i is 55xxxxxxxxxxxxxx51----------$i is 66xxxxxxxxxxxxxx61----------$i is 72-------$i is 7