如何快速的知道某个函数属于哪个包或模块？

xiangshu

在看别人perl的源码是，如何有效的知道某个函数属于哪个包或模块呢？

谢谢！

zuerrong

回复 1# xiangshu


    如果函数默认export出的，由于hack了符号表，比较难看出它原来是哪个包的。

$ cat t3.pl
use MIME::Base64;
use Data::Dumper;

printf "%20s%25s\n", "encode_base64 -->", $::{encode_base64};

$ perl t3.pl
   encode_base64 -->     *main::encode_base64

如上看，尽管encode_base64是从MIME::Base64里export出的，但它位于主包的符号空间。

推荐用全OO的编程方式，如果是$object->encode_base64这样就清楚多了。

xiangshu

谢谢！

有没有可能通过typeglob的方式得到这种信息？

zhlong8

B::Xref 是个不错的工具，不过没正经用过

zhlong8

typeglob 必然可以得到，其实只要函数引用就可以了

xiangshu

但是下面的代码还是输出的是main啊，不是MIME::Base64.

1. #!/usr/bin/perl -w
   
2. 
   
3. use MIME::Base64;
   
4. 
   
5. my $ref = "encode_base64";
   
6. print &$ref("abc");
   
7. print *$ref{"PACKAGE"};

复制代码

zhlong8

xiangshu 发表于 2012-02-03 13:11
但是下面的代码还是输出的是main啊，不是MIME::Base64.

我可没跟你说 ref 可以，你要是愿意用函数那就简单了，需要写个 XS 扩展通过函数的引用来获取底层信息，里面包含了它在哪个包定义。

函数结构体有个宏可以得到它定义时所在的符号表，而符号表有个宏能获得它的名字，所以一个简单的 XS 函数就可以实现。

1. char*
   
2. where_am_I(cv)
   
3.     CV* cv;
   
4. CODE:
   
5.     RETVAL = HvNAME(CvSTASH(cv));
   
6. OUTPUT:
   
7.     RETVAL

复制代码

你可以去 CPAN 找下有没有成熟的模块，我没这个需求

flw

内置模块 Devel::Peek 可以看，但不方便给程序调用。
应该有别的模块可以使。不过原理就是 zhlong8 说的那两个 API。

1. use Devel::Peek;
   
2. use MIME::Base64;
   
3. 
   
4. Dump \&encode_base64;

复制代码

1. SV = IV(0x6eb078) at 0x6eb07c
   
2.   REFCNT = 1
   
3.   FLAGS = (TEMP,ROK)
   
4.   RV = 0x1bcd3f4
   
5.   SV = PVCV(0x1c98104) at 0x1bcd3f4
   
6.     REFCNT = 4
   
7.     FLAGS = (POK,pPOK,ISXSUB)
   
8.     PROTOTYPE = "$;$"
   
9.     COMP_STASH = 0x0
   
10.     XSUB = 0x4f1000
    
11.     XSUBANY = 0
    
12.     GVGV::GV = 0x1bccb64        "MIME::Base64" :: "encode_base64"
    
13.     FILE = "Base64.c"
    
14.     DEPTH = 0
    
15.     FLAGS = 0x8
    
16.     OUTSIDE_SEQ = 0
    
17.     PADLIST = 0x0
    
18.     OUTSIDE = 0x0 (null)

复制代码

py

还真没有过这样的需求，程序写长一点都面向对象了
现在写模块也不推荐export一大堆光屁股函数

楼主图省事可以把zhlong8的例子写成inlinec

1. use MIME::Base64;
   
2. use Inline C => <<'EOF';
   
3. 
   
4. void who_am_i(CV* cv_name) {
   
5.     printf("%s\n", HvNAME(CvSTASH(cv_name)));
   
6. }
   
7. 
   
8. EOF
   
9. 
   
10. who_am_i(&encode_base64);

复制代码

如果需求就是偶尔出现，那还是Dump出来看看直接

dugu072

try: Sub::Identify