Perl last和next的用法区别

在使用的过程当中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);

 

转载于:https://www.cnblogs.com/xiaoCon/archive/2013/04/11/3013681.html