perl – 是否有一个模块可以搜索多余的代码？

发布时间：2020-12-15 21:45:23 所属栏目：大数据来源：网络整理

导读：有没有一个模块,可以找到不需要的代码？作为示例,脚本不需要运行脚本的代码： #!/usr/bin/env perluse warnings;use 5.12.0;use utf8;binmode STDOUT,':utf8';use DateTime;use WWW::Mechanize;sub my_print { my ( $string,$tab,$color ) = @_; say $strin

有没有一个模块,可以找到不需要的代码？
作为示例,脚本不需要运行脚本的代码：

#!/usr/bin/env perl
use warnings;
use 5.12.0;
use utf8;
binmode STDOUT,':utf8';
use DateTime;
use WWW::Mechanize;

sub my_print {
    my ( $string,$tab,$color ) = @_;
    say $string;
}

sub check {
    my $string = shift;
    return if length $string > 10;
    return $string;
}

my_print( 'Hello World' );

解决方法

不是绝对的.众所周知,Perl很难在没有实际执行的情况下进行分析,以至于编译要运行的Perl程序实际上需要包含perl解释器的副本！因此,Perl的代码分析工具非常少.你可以做的是使用一个分析器,但这有点矫枉过正(正如我所提到的,需要实际执行程序.我喜欢Devel :: NYTProf.这会吐出一些HTML文件,显示eaqch line或sub有多少次执行,以及在那里花了多少时间,但这只适用于该程序的特定执行.它将允许您看到WWW :: Mechanize已加载但从未被调用,但它将无法告诉您如果警告或binmode对执行有任何影响.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!