Question

现在我可以按如下方式命名子程序printargs以获得转储。

perl -MO=Concise,printargs,-main,-terse Hello.pl

假设我有几个子程序，我如何构建一个通用模块来转储所有子程序的细节？

Answer 1

要转储单个子例程，您可以使用

B::Concise::compile($sub)->()

其中$ sub是对子的引用。

如果您事先知道潜艇的清单，你已经完成了，只需为每个人做上面的事情。

否则，获取现有子例程名称的列表在特定的包装中，您始终可以使用符号该包的表格：

no strict 'refs';
for my $k (keys %{"$pkgname\::"}) {
    if (*{${"$pkgname\::"}{$k}}{CODE}) {
        print "$k\n"; # sub name
    }
}

更新：我的第一行包含一个错误，已修复现在。这是完整的示例脚本：

package Blah;

sub x { return "x"; }
sub hehe { print 2*2, "\n"; }
sub meme { die "ouch" }

our $varvar; # to illustrate the {CODE} thingy

package main;
use warnings;
use strict;
use B::Concise;

my $pkgname = "Blah";
no strict 'refs';
for my $k (keys %{"$pkgname\::"}) {
    if (*{${"$pkgname\::"}{$k}}{CODE}) {
        my $sub = \&{${"$pkgname\::"}{$k}};
        print "Dump of $pkgname\::$k():\n";
        B::Concise::compile($sub)->();
    }
}

如何使用B :: Concise转储所有函数的ops

1 个答案: