在perl中，有没有办法让子例程在调用时打印它们的名称和参数？

Question

我需要快速了解在一堆意大利面条代码 perl 模块中调用了哪些子例程。

我可以编写一个脚本来遍历所有模块，并添加代码以在每个子例程开始时打印出子例程名称和参数。

但是有没有办法覆盖内部 perl“子例程”机制本身来做到这一点？

该代码在 mod_perl 下运行，因此我无法轻松使用调试器。

Answer 1

Devel:Trace 将显示子例程调用和参数。它还将显示执行的每一行代码，这可能比您需要的更详细。

perl -d:Trace program

Devel::DumpTrace 将更加详细，显示值< /strong> 变量也是如此。

Answer 2

您可以通过 NYTProf 运行代码当通过 mod_perl 在 Apache 下运行

Answer 3

我知道您说您“无法轻松使用调试器”，因为您在 mod_perl 下运行，但是有一些选项可以实现此处描述的操作：

http://perl.apache.org/docs/1.0/guide/debug.html#Non_Interactive_Perl_Debugging_under_mod_perl

Answer 4

您可以使用 Moose::方法修饰符。我对 Moose 不太了解，但从手册中我可以看到你可以做到。就这样吧。

#!/usr/bin/perl -w
use 5.010;
use strict;
use Moose;

sub sub_one {
    say "I am sub one!";
}

sub sub_two {
    say "Guess who!";
}

# Note that the name of the function being modified isn't passed in in
# any way

for my $func qw(sub_one sub_two) {
    around $func => sub {
        my $orig = shift;

        say "Running ${func}(@_)";

        # call the original sub
        my $self = shift;
        $self->$orig(@_);
    }
}

sub_one(21, 12);
sub_two();

这会产生类似“

cnicutar@aiur:~$ perl method_modifiers.pl
Running sub_one(21 12)
I am sub one!
Running sub_two()
Guess who!

请注意我只是一个初学者，所以要小心该代码”的内容。