统计行数?

roby

1. 
   
2. open (FILE,"roby.txt");@roby=<FILE>;print ++$#roby;
   

复制代码

KornLee

这样也可以吧? :help
[php]@line=`cat file`;
print scalar@line;[/php]

pupilzeng

忽略注释行，包括/* */跟//两种形式的注释。
忽略空白行。
将用‘\’分开的行并成一行。
其它的就将源文件中的行作为行。

1. 
   
2. #!/usr/bin/perl -w
   
3. #To count the lines for c/c++ header/source files, omitting comments, empty line, and joining the lines seperated by '\'.
   
4. use strict;
   
5. 
   
6. my $total = 0;
   
7. foreach my $src(@ARGV){
   
8. #        print "to count file $src\n";
   
9.         my $lines = &countline($src);
   
10.         $total += $lines;
    
11.         print "\t$lines : $src\n";
    
12. }
    
13. print "\t$total : total\n";
    
14. 
    
15. 
    
16. sub countline{
    
17.         my $src = $_[0];
    
18.         my $count = 0;
    
19.         open(SRC, "<$src") or die("Can't open file $src for reading due to: $!\n");
    
20.         READLINE:
    
21.         while(<SRC>){
    
22.                 if($_ =~ /\\$/){
    
23. #                print "To be countinued:$_";
    
24.                         $_ .= <SRC>;
    
25.                         redo READLINE;
    
26.                 }
    
27.                 elsif($_ =~ /^\s*\/\*/){
    
28. #                        print "comments begin:\n";
    
29.                         while(my $next = <SRC>){
    
30.                                 if($next =~ /.*\*\/(.*)/){ #comments may be followed by a statement which should be counted.
    
31. #                                        print "comments end\n";
    
32.                                         $_ = $1;
    
33.                                         last;
    
34.                                 }
    
35.                         }
    
36.                 }
    
37.                 if(($_ !~ /^\s*\/\*.*\*\/$/) # /* */ comments
    
38.                         && ($_ !~ /^\s*\/\//)# // comments
    
39.                         && ($_ !~ /^\s*$/) # empty line
    
40.                 ){
    
41. #                        print "Counted $count : $_";
    
42.                         $count++;
    
43.                 }
    
44.         }
    
45.         close(SRC);
    
46.         return $count;
    
47. }
    

复制代码

BBDD

好像有点小问题。
有单行注释/*……*/的情况，你试过吗？

另外我也想了个算法，你看看怎么样：

1、读入整个文件；
2、删除所有\和相邻的回车（包括中间的空格）；
3、删除所有/*和*/之间的部分（包括中间的回车）；
4、删除所有//和回车之间的部分；
5、删除所有的空行；
6、统计\n的数量，即所求的行数。

pupilzeng

最初由 BBDD 发表
好像有点小问题。
有单行注释/*……*/的情况，你试过吗？

这个我当时是测试过的， 没问题的。

1. 
   
2. $_ !~ /^\s*\/\*.*\*\/$/) # /* */ comments
   

复制代码

这行代码就是做这个的。
不过现在在windows下，没装perl，没法测试了。

另外我也想了个算法，你看看怎么样：

1、读入整个文件；
2、删除所有\和相邻的回车（包括中间的空格）；
3、删除所有/*和*/之间的部分（包括中间的回车）；
4、删除所有//和回车之间的部分；
5、删除所有的空行；
6、统计\n的数量，即所求的行数。

感觉这样会比较有条理，思路很清晰，但效率会不会有所下降?
我现在所使用的算法中是，边处理行，边计算行数；而你的是处理完所有行之后再来统计行数。 时间复杂度跟空间复杂度都会有所增加。

BBDD

1、如果有/*……*/的话，它就会掉到
elsif($_ =~ /^\s*\/\*/)
这里，然后是while(my $next = <SRC>)和if($next =~ /.*\*\/(.*)/)，但这个if可能永远也不会成立，直到EOF。

2、一次读入整个文件的效率要比一次读一行高得多，
一次处理整个文件的效率也比一次处理一行要高。
这样做可能多占了些内存，但我们现在讨论的是*.h和*.c，这样的文件通常不会很大，所以没问题。

pupilzeng

确实是存在单行/* */会出错的问题，我前面没发现是因为所使用的测试文件没选好。
修改后的代码如下：

1. 
   
2. #!/usr/bin/perl -w
   
3. #To count the lines for c/c++ header/source files, omitting comments, empty line, and joining the lines seperated by '\'.
   
4. use strict;
   
5. 
   
6. my $total = 0;
   
7. foreach my $src(@ARGV){
   
8. #        print "to count file $src\n";
   
9.         my $lines = &countline($src);
   
10.         $total += $lines;
    
11.         print "\t$lines : $src\n";
    
12. }
    
13. print "\t$total : total\n";
    
14. 
    
15. 
    
16. sub countline{
    
17.         my $src = $_[0];
    
18.         my $count = 0;
    
19.         open(SRC, "<$src") or die("Can't open file $src for reading due to: $!\n");
    
20.         READLINE:
    
21.         while(<SRC>){
    
22.                 if($_ =~ /\\$/){ #line to be continued
    
23.                         $_ .= <SRC>;
    
24.                         redo READLINE;
    
25.                 }elsif($_ =~ /^\s*\/\*.*\*\/(.*)$/){ #single line comments, which may be followed by a statement/comments.
    
26.                         $_ = $1;
    
27.                         redo READLINE;
    
28.                 }elsif(($_ =~ /^\s*\/\//)# // comments
    
29.                         || ($_ =~ /^\s*$/) # empty line
    
30.                 ){
    
31.                         next;
    
32.                 }elsif($_ =~ /^\s*\/\*/){ #multi-line comments begins
    
33.                         while(my $next = <SRC>){
    
34.                                 if($next =~ /.*\*\/(.*)/){ #comments may be followed by a statement which should be counted.
    
35.                                         $_ = $1;
    
36.                                         redo READLINE; #$_ may be comments too.
    
37.                                 }
    
38.                         }
    
39.                 }else{
    
40. #                        print "Counted line $count : $_\n";
    
41.                         $count++;
    
42.                 }
    
43.         }
    
44.         close(SRC);
    
45.         return $count;
    
46. }
    

复制代码

所选用的测试文件为:

1. 
   
2. /*
   
3. * =====================================================================================
   
4. *
   
5. *        Filename:  test.cpp
   
6. *
   
7. *     Description:  test clines.pl
   
8. *
   
9. *         Version:  1.0
   
10. *         Created:  04/28/04 14:19:51 CST
    
11. *        Revision:  none
    
12. *        Compiler:  gcc
    
13. *
    
14. *          Author:  Shixin Zeng (pupilzeng), [email]shixinzeng@sjtu.edu.cn[/email]
    
15. *         Company:  Shanghai Jiaotong University
    
16. *
    
17. * =====================================================================================
    
18. */
    
19. #include <iostream>
    
20. using namespace std;
    
21. 
    
22. int
    
23. main()
    
24. {
    
25.         /* pure comments line */
    
26.         int j = 0;
    
27.         // pure comments lines.
    
28.         /* comments followed by a statement */ int i = 0;
    
29.         /* multi line comments
    
30.          * followed by a statement
    
31.          */ int j = 0;
    
32.         char * str = "this is a very long\
    
33.                           line";
    
34.         /* comments followed by comments */ /*comments */
    
35.         cout<< "hello, world\n";
    
36.         /* multi-line comments
    
37.          * fllowed by multi-line coments */ /* another
    
38.                                                                                  * multi-line comments*/
    
39.         return 0;
    
40. }
    

复制代码

运行结果：
[php]
        12 : test.cpp
        12 : total
[/PHP]

pupilzeng

最初由 BBDD 发表

2、一次读入整个文件的效率要比一次读一行高得多，
一次处理整个文件的效率也比一次处理一行要高。
这样做可能多占了些内存，但我们现在讨论的是*.h和*.c，这样的文件通常不会很大，所以没问题。

不好意思，我是刚刚才学perl，还不知道怎么样一次读取整个文件。

devel

最初由 BBDD 发表
好像有点小问题。
有单行注释/*……*/的情况，你试过吗？

另外我也想了个算法，你看看怎么样：

1、读入整个文件；
2、删除所有\和相邻的回车（包括中间的空格）；
3、删除所有/*和*/之间的部分（包括中间的回车）；
4、删除所有//和回车之间的部分；
5、删除所有的空行；
6、统计\n的数量，即所求的行数。

这都是应用程序的做法，如果找到如sysctl的C源码，照PERL 写一个，就是啦。

痴木狂澜

不用这么夸张吧?

1. 
   
2. open FH, "test.c" or die "$!";
   
3. $line=join '',<FH>; # we got a real big line...
   
4. $line =~ s#/\*.*?\*/|//.*?$##gms; #well,strip the comments
   
5. for(split /\n/, $line)
   
6. {
   
7.         next if (/^\s*$/);
   
8.         print "$_\n";
   
9.         $num++;
   
10. }
    
11. print $num, "\n";
    

复制代码