在Perl中查找文件中的制表符和空格


Finding tabs and white spaces inside the file in Perl

我们正在手动进行代码审查。它消耗了我们更多的时间来审查每一个文件。我们正在检查以下所有文件的通用项。如果有任何Perl/Php中的自动脚本用于代码审查,那就太好了。

  1. 列出文件中使用的选项卡的总数
  2. 列出文件中空白的总数

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

提前谢谢。

你或某人手动计算选项卡的想法让我很开心。

计数选项卡:

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