Perl last和next的用法区别

原创
2014/02/13 10:04
阅读数 107

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

 

展开阅读全文
打赏
0
0 收藏
分享
加载中
更多评论
打赏
0 评论
0 收藏
0
分享
返回顶部
顶部