UCM ClearCase下使用Perl统计代码行数
UCM ClearCase 环境下的代码统计，还是用Perl来搞比较顺。目录结构复杂也不怕，配合 ClearCase 命令，一层层递归扫过去就行，行数加起来还挺准的。
ClearCase 的lsco和find命令搭配用，再套上 Perl 的文件能力，效果还不错。写个脚本跑一遍，就能知道整个项目的代码量，尤其适合那种老系统、多人协作的场景。
Perl 脚本也挺好写，基本用open读文件，再加个正则跳过空行和注释，++$count往上叠就完事。效率也挺高，文件多也不卡。
顺手推荐几个扩展资源，你可以看看：Perl Cookbook里有多实用片段，想改功能不难；还有多语言支持的统计工具，如果你不是只玩 Perl，也能参考下思路。
如果你平时用 ClearCase 又得做代码量统计，建议你直接搞一个 Perl 脚本常驻，改几下路径就能复用，挺省事的。
文件大小：1.1KB
评论区