regex - 如何在执行时在 perl 脚本中显示子例程的数量及其名称？

Question

以下面的 Perl 脚本 script.pl 为例:

use strict;
use warnings;
sub f1
{statements}
sub f2
{statements}
sub f3
{statements}
f1();f2();f3();

当我执行脚本时，它应该显示以下输出:

./script.pl

number of subroutines:3
names of subroutines:f1 f2 f3

代码执行时，如何统计子程序的个数，获取子程序的名称，然后在运行时打印出来？

Answer 1

您正在寻找Devel::Symdump :

#!/usr/bin/env perl

use strict;
use warnings;

{
    require Devel::Symdump;
    my $sym = Devel::Symdump->new('main');
    my @subs = $sym->functions;
    printf "Number of subroutines: %d\n", scalar @subs;
    printf "Names of subroutines: %s\n", join(q{, } => map { s/^main:://; $_ } @subs);
}

sub f1 {
    # statements
}

sub f2 {
    # statements
}

sub f3 {
    # statements
}

f1();
f2();
f3();

输出:

Number of subroutines: 3
Names of subroutines: f2, f1, f3