我正在开发一个中等复杂的 Perl 程序。作为其开发的一部分,它必须经过修改和测试。由于某些环境限制,经常运行这个程序并不是一个容易练习的选项。
我想要的是 Perl 的静态调用图生成器。它不必涵盖所有边缘情况(例如,在 eval 中将变量重新定义为函数,反之亦然)。
(是的,我知道 Devel::DprofPP 有一个运行时调用图生成工具,但不能保证运行时调用每个函数。我需要能够查看每个函数。)
最佳答案
一般情况下是做不到的:
my $obj = Obj->new;
my $method = some_external_source();
$obj->$method();
但是,获得大量案例应该相当容易(针对自身运行此程序):
#!/usr/bin/perl
use strict;
use warnings;
sub foo {
bar();
baz(quux());
}
sub bar {
baz();
}
sub baz {
print "foo\n";
}
sub quux {
return 5;
}
my %calls;
while (<>) {
next unless my ($name) = /^sub (\S+)/;
while (<>) {
last if /^}/;
next unless my @funcs = /(\w+)\(/g;
push @{$calls{$name}}, @funcs;
}
}
use Data::Dumper;
print Dumper \%calls;
请注意,这会错过
print "foo\n";
)$coderef->()
)$obj->$method()
)它错误地捕获
#foo()
)"foo()"
)如果你想要一个比那毫无值(value)的黑客更好的解决方案,是时候开始研究
PPI
,但即使它也会有类似 $obj->$method()
的问题.只是因为无聊,这里有一个使用
PPI
的版本.它只查找函数调用(而不是方法调用)。它也不会试图保持子程序的名称唯一(即,如果您多次调用同一个子程序,它将出现多次)。#!/usr/bin/perl
use strict;
use warnings;
use PPI;
use Data::Dumper;
use Scalar::Util qw/blessed/;
sub is {
my ($obj, $class) = @_;
return blessed $obj and $obj->isa($class);
}
my $program = PPI::Document->new(shift);
my $subs = $program->find(
sub { $_[1]->isa('PPI::Statement::Sub') and $_[1]->name }
);
die "no subroutines declared?" unless $subs;
for my $sub (@$subs) {
print $sub->name, "\n";
next unless my $function_calls = $sub->find(
sub {
$_[1]->isa('PPI::Statement') and
$_[1]->child(0)->isa("PPI::Token::Word") and
not (
$_[1]->isa("PPI::Statement::Scheduled") or
$_[1]->isa("PPI::Statement::Package") or
$_[1]->isa("PPI::Statement::Include") or
$_[1]->isa("PPI::Statement::Sub") or
$_[1]->isa("PPI::Statement::Variable") or
$_[1]->isa("PPI::Statement::Compound") or
$_[1]->isa("PPI::Statement::Break") or
$_[1]->isa("PPI::Statement::Given") or
$_[1]->isa("PPI::Statement::When")
)
}
);
print map { "\t" . $_->child(0)->content . "\n" } @$function_calls;
}
关于perl - 如何为 Perl 制作静态分析调用图?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/1295311/