怎么统计源代码有多少行？

ShiChao

又没有现成的软件？

还有一问，如何知道某个目录里面的文件列表？

Dragonfly

wc

ls -l

atfa

cat xxx.c | wc -l

Dragonfly

wc directly, need not cat. although the result is the same.

mereUnix

ll

ShiChao

第二个问题呢？

sjinny

但有时一个文件里会有n行的注释，特别是用Kdevelop生成的，每个文件前面都有不少注释，要是连注释都统计进来，那n万行代码岂不是很轻松就写出来了？   

atfa

[code:1]
/*
* 这个程序从命令行参数要求的文件读取数据，输出到用户输入的
* 一个文件名的文件中，要求把原始文件中用“//”开头的行全部
* 删除。
* */

#include <stdio.h>

main(int argc, char *argv[])
{
        char ch, tarfn[50], str[1024];
        FILE *fp1, *fp2;
        int i;

        if ((fp1=fopen(argv[1],"r"))==NULL)
        {
                printf("读取指定的源文件出错。\n");
                exit(0);
        }
        printf("源文件打开成功。\n请输入目标文件名：");
        scanf("%s",&tarfn);
        if ((fp2=fopen(tarfn,"w"))==NULL)
        {
                printf("初始化指定的目标文件出错。\n");
                exit(0);
        }
        while((fgets(str,1024,fp1))!=NULL)
        {
                if ((str[0]=='/') && (str[1]=='/'))
                        continue;
                fputs(str,fp2);
        }
        printf("新文件成功写入。\n");
}
[/code:1]

ShiChao

谢谢，楼上两位，明白了。

> 第二个问题呢？

Dragonfly

/root/.bashrc:alias ll='ls -l --color=tty'

so ll is not a command. it is only an alias


comments is also important.

atfa

第二个问题没有看懂是什么意思

sjinny

第二个问题好象是，编程得到一个目录里的内容列表~

ShiChao

没错。我就是想写这样一个程序，统计某个目录所有.h .cpp源代码行数

Dragonfly

this is a perl code to compute all file lines. change it to get c and h only
[code:1]
#!/usr/bin/perl -w
use strict;

my $dir = ".";
opendir DH, $dir or die "Cannot open $dir: $!";
foreach my $file (readdir DH) {
        next if $file =~ /^\./;
        print "$file: ";
        system("wc -l $file");
}
closedir DH;
[/code:1]

zhuangsihua

用C的话，用opendir()、readdir()。
可以man 3 opendir、man 3 readdir自己看看。