代码之家 › 专栏 › 技术社区 › Mithaldu

如何计算Perl代码中每个子代码的相应行数?

statistics perl

Mithaldu · 技术社区 · 15 年前

我正在重构一个相当大的代码体,在思考如何处理这个问题时,我想到了一个深奥的问题。这段代码在很大程度上需要缩短SUB。

因此,将某种类型的统计信息收集器指向目录是非常有利的,它将遍历所有的.pm、.cgi和.pl文件,找到所有的sub(如果它只得到命名的文件,我很好),并给我一个所有sub的表,以及它们的行数。

我粗略地看了一下PPI,但找不到任何直接相关的工具,有些工具可能是合适的,但使用起来相当复杂。

有没有更简单的模块可以这样做?

如果失败了,你会怎么做?

编辑:

稍微玩弄一下PPI,然后创建一个脚本来收集代码库中的相关统计信息: http://gist.github.com/514512

2 回复 | 直到 15 年前

Pedro Silva 15 年前

my $document = PPI::Document->new($file);

# Strip out comments and documentation                                                                                                                                              
$document->prune('PPI::Token::Pod');
$document->prune('PPI::Token::Comment');

# Find all the named subroutines                                                                                                                                                    
my $sub_nodes = $document->find(
    sub { $_[1]->isa('PPI::Statement::Sub') and $_[1]->name } );

print map { sprintf "%s %s\n", $_->name, scalar split /\n/, $_->content } @$sub_nodes;

Ether 15 年前

我怀疑简单地识别长函数是识别需要重构的内容的最佳方法。相反,我会运行代码 perlcritic 在越来越严厉的程度上,并遵循建议。

推荐文章

RSW · Python-检查序列中的最后一个值是否相对高于其余值

1 年前

mayen · Z-Score作为差异值的度量

1 年前

John Philips · Python中的重命名函数

1 年前

Yneedtobeserious · 给定的数据点,形成它们的关系

2 年前

Pacific Bird · 即使考虑了不同的参数化,R`dnbinom`也会给出与Python`scipy.stats.nbinom.pmf`不同的结果

2 年前

JCWong · 手工实现协方差

2 年前

Idan Hazan · 转换总和为1的列表并保持值之间的关系[重复]

2 年前

Jimmy3421 · 为什么pd.cut会产生NaN值

2 年前

JoRayMe · 有没有办法从数据数组中识别浮点数中的小数位数?

2 年前

Pbro98 · 均匀随机抽样未返回均匀样本(Scipy Uniform)

2 年前