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

发布时间：2020-12-15 21:44:58 所属栏目：大数据来源：网络整理

导读：现在我可以按如下方式命名子程序printargs来获取转储. perl -MO=Concise,printargs,-main,-terse Hello.pl 假设我有几个子程序,我如何构建一个通用模块来转储所有子程序的细节？解决方法要转储单个子例程,您可以使用 B::Concise::compile($sub)-() 其中$su

现在我可以按如下方式命名子程序printargs来获取转储.

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

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

解决方法

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

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

其中$sub是对sub的引用.

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

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

no strict 'refs';
for my $k (keys %{"$pkgname::"}) {
    if (*{${"$pkgname::"}{$k}}{CODE}) {
        print "$kn"; # 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)->();
    }
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!