perl - 如何可视化 perl 文件的代码依赖关系？

Question

使用Visual Studio，可以建立依赖关系图。这是一个相当酷的功能。

我的问题集中在 Perl 上 --- 是否存在可以对 Perl 模块执行此操作的适当工具？

Answer 1

如果您（只是）想展示/找到他们，请使用 ScanDeps

通过命令行程序 scandeps.pl：

% scandeps.pl *.pm          # Print PREREQ_PM section for *.pm
% scandeps.pl -e "use utf8" # Read script from command line
% scandeps.pl -B *.pm       # Include core modules
% scandeps.pl -V *.pm       # Show autoload/shared/data files

在程序中使用；

use Module::ScanDeps;

# standard usage
my $hash_ref = scan_deps(
    files   => [ 'a.pl', 'b.pl' ],
    recurse => 1,
);

# shorthand; assume recurse == 1
my $hash_ref = scan_deps( 'a.pl', 'b.pl' );

# App::Packer::Frontend compatible interface
# see App::Packer::Frontend for the structure returned by get_files
my $scan = Module::ScanDeps->new;
$scan->set_file( 'a.pl' );
$scan->set_options( add_modules => [ 'Test::More' ] );
$scan->calculate_info;
my $files = $scan->get_files;

如果您想在漂亮的图形/树中显示它们，请使用 GraphViz2

此外，要扫描 CPAN 依赖项，您可以尝试http://deps.cpantesters.org/ 。

更多选项是：

CPAN::FindDependencies - 在 CPAN 上查找模块的依赖项

use CPAN::FindDependencies;
my @dependencies = CPAN::FindDependencies::finddeps("CPAN");
foreach my $dep (@dependencies) {
    print ' ' x $dep->depth();
    print $dep->name().' ('.$dep->distribution().")\n";
}

Module::Extract::Use - 提取模块使用的模块

use Module::Extract::Use;

my $extor = Module::Extract::Use->new;

my @modules = $extor->get_modules( $file );
if( $extor->error ) { ... }

my $details = $extor->get_modules_with_details( $file );
foreach my $detail ( @$details ) {
    printf "%s %s imports %s\n",
    $detail->module, $detail->version,
    join ' ', @{ $detail->imports }
}

也许这个结论会让你更清楚..