我可以从任何Perl模块动态获取函数或函数名列表吗？

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

导读：我想从我的系统上可用的任意Perl模块动态获取函数名称(作为字符串)或函数引用的列表.这将包括可能具有或不具有的模块,例如其命名空间中的全局@EXPORT_OK阵列.这样的壮举有可能吗？如果是这样的话怎么把它拉下来？编辑：从阅读perlmod,我看到％Some :: Modul

我想从我的系统上可用的任意Perl模块动态获取函数名称(作为字符串)或函数引用的列表.这将包括可能具有或不具有的模块,例如其命名空间中的全局@EXPORT_OK阵列.这样的壮举有可能吗？如果是这样的话怎么把它拉下来？

编辑：从阅读perlmod,我看到％Some :: Module ::用作Some :: Module的符号表.这是正确的地方吗？如果是这样,我怎样才能将表格缩小到Some :: Module中的函数名称？

解决方法

你走在正确的轨道上.为了将整个符号表简化为sub,可以完成类似的事情(Hat tip“Mastering Perl”,第8章,主要包版本)：

use strict; # need to turn off refs when needed
package X;

sub x {1;};
sub y {1;};
our $y = 1;
our $z = 2;

package main;

foreach my $entry ( keys %X:: ) {
    no strict 'refs';
    if (defined &{"X::$entry"}) {
        print "sub $entry is definedn" ;
    }
}

# OUTPUT
sub y is defined
sub x is defined

（编辑：李大同）

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