我想从我的系统上可用的任意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 defined\n" ;
- }
- }
- # OUTPUT
- sub y is defined
- sub x is defined