weidagang2046的专栏

物格而后知致
随笔 - 8, 文章 - 409, 评论 - 101, 引用 - 0
数据加载中……

统计工程的源代码行数

 

$pattern_h   =   ' D:/work/ChineseChess/*.h ' ;
 $pattern_cpp   =   ' D:/work/chineseChess/*.cpp ' ;

 $count   =   0 ;

 @h   =   glob ( $pattern_h );
 @cpp   =   glob ( $pattern_cpp );

 foreach   $file  ( @h )
{
     open (FILE ,   $file );
    
     while  ( $line   =   < FILE > )
    {
         $count ++ ;
    }
}

 foreach   $file  ( @cpp )
{
     open (FILE ,   $file );
    
     while  ( $line   =   < FILE > )
    {
         $count ++ ;
    }
}

 print   $count ,   " \n " ; 

posted on 2006-11-15 23:56 weidagang2046 阅读(441) 评论(0)  编辑  收藏 所属分类: Perl


只有注册用户登录后才能发表评论。
网站导航: