perl跳过前四行

while(<IN>)
{
 next if ($.<4);
 chomp $_; 
}

 

posted @ 2012-12-13 14:25  蒋蒋  阅读(280)  评论(0编辑  收藏  举报