Perl last和next的用法区别

lb5645284

　　在使用的过程当中last和next的用法总会让人弄混乱，
　　实战当中，它们是两兄弟，只要理解的用法，将会无比的简单。
　　我也是最近发现这两个东西的好处。例如我要写一个fg的递增，
　　用它们两者结合，将会无比的好。接着发一个实例代码，
　　好好分析和记录，每天都在进步。。～:>



if($output eq undef)
{
if (-e "$url.html")
{
for my $i(1..10000)
{
if (-e "$url($i).html")
{
next;
open FILE,">$url($i).html";
}
else
{
open FILE,">$url($i).html";
last;
}
}
}
else
{
open FILE,">$url.html";
}
}
else
{
open FILE,">$output.html";
}
print FILE "@report";
close(FILE);