在Perl中查找文件中的选项卡和空格

Question

我们正在手动执行代码审核。我们花了更多的时间来审查每个文件。我们正在检查所有文件的通用项目。如果在Perl / Php中有任何自动脚本用于代码审查，那将是很好的。

1. 列出文件中使用的标签总数。
2. 列出文件中的空白总数。

请帮助创建代码审查的自动化工具。

提前致谢。

Answer 1

我对你或某人手动计算标签的想法感到很开心。

计算标签：

perl -ne '$c += () = /\t/g; END{print qq{$c}}' file.pl

或

perl -ne '$c += tr/\t//; END {print qq{$c}}' file.pl

同样适用于空格：

perl -ne '$c += tr/ //; END {print qq{$c}}' file.pl