Có công cụ nào để kiểm tra tập lệnh Perl cho các câu lệnh sử dụng không cần thiết không?

Question

Đối với Python, có một tập lệnh gọi là importchecker cho bạn biết nếu bạn có các câu lệnh import không cần thiết.

Có tiện ích tương tự cho báo cáo Perl use (và require) không?

Answer 1

Hãy xem Devel::TraceUse nó có thể cung cấp cho bạn một đoạn nội dung bạn đang tìm kiếm.

Answer 2

Đây là số script I wrote để thực hiện việc này. Nó rất đơn giản và sẽ không tự động hóa bất cứ điều gì cho bạn nhưng nó sẽ cung cấp cho bạn một cái gì đó để bắt đầu.

#!/usr/bin/perl 

use strict; 
use v5.14; 

use PPI::Document; 
use PPI::Dumper; 
use PPI::Find; 
use Data::Dumper; 

my %import; 
my $doc = PPI::Document->new($ARGV[0]); 

my $use = $doc->find(sub { $_[1]->isa('PPI::Statement::Include') }); 
foreach my $u (@$use) { 
    my $node = $u->find_first('PPI::Token::QuoteLike::Words'); 
    next unless $node; 
    $import{$u->module} //= []; 
    push $import{$u->module}, $node->literal; 
} 

my $words = $doc->find(sub { $_[1]->isa('PPI::Token::Word') }); 


my @words = map { $_->content } @$words; 

my %words; 
@words{ @words } = 1; 

foreach my $u (keys %import) { 
    say $u; 
    foreach my $w (@{$import{$u}}) { 
     if (exists $words{$w}) { 
      say "\t- Found $w"; 
     } 
     else { 
      say "\t- Can't find $w"; 
     } 
    } 
}