perl 查找子程序所在模块

天地游

use 模块 后，可以在本脚本里不加模块名直接通过子程序名调用
如果本脚本use了很多模块，那么我怎么能查到这个子程序属于哪个模块呢。

zhlong8

每个函数都保存的有自己来自哪的基本信息，暂时就想到用 B 模块查找内部状态，比如你要查找函数 abc，在程序中添加代码

use B();

my $obj = B::svref_2object(\&abc);
print $obj->GV->STASH->NAME; # 定义的模块
print $obj->GV->NAME;   # 原来的函数名，匿名函数的名字是 __ANON__
print $obj->FILE;          # 定义所在的文件

zhlong8

或者做个模块，起名叫做 sub_from.pm 在你的代码里插入
use sub_from \&abc, \&efg;
它会自动打印出出处，不用了注释掉就行了。

1. package sub_from;
   
2. 
   
3. use 5.010;
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. use B ();
   
8. 
   
9. sub import {
   
10.     my $class = shift;
    
11.     for (@_) {
    
12.         if (ref $_) {
    
13.             my $obj = B::svref_2object($_);
    
14.             if ($obj->isa('B::CV')) {
    
15.                 my $package = $obj->GV->STASH->NAME;
    
16.                 my $name = $obj->GV->NAME;
    
17.                 my $file = $obj->FILE;
    
18.                 print "$package\::$name defined at $file\n";
    
19.             }
    
20.         }
    
21.     }
    
22. }
    
23. 
    
24. 1

复制代码

fender0107401

zhlong8 发表于 2018-03-23 22:50
每个函数都保存的有自己来自哪的基本信息，暂时就想到用 B 模块查找内部状态，比如你要查找函数 abc，在程 ...

从来没想过，还有这种功能，Perl好很强大的。

hztj2005

回复 4# fender0107401
微软的VC一向来就有这种功能。

zhlong8

回复 4# fender0107401

这算 Perl 的缺陷了，函数是对象的语言里这就是一个属性，我也就是把它转换成对象再查找这个属性而已，绕了一大圈。