一个打印父类的小程序

DQP

看到Python板有人写了一个打印父类的程序（http://bbs3.chinaunix.net/thread-1378577-1-1.html）
感觉很有意思．
我也写一个．．．．．

1. 
   
2. sub parents{
   
3.   my ($modual_name) = shift;
   
4.   no strict 'refs';
   
5.   return @{$modual_name.'::ISA'};
   
6. }
   
7. sub derived_tree{
   
8.   my $modual_name = shift;
   
9.   my $indent = ' ' x 4;
   
10.   my $level = 0;
    
11.   my @stack;
    
12.   push @stack, [$modual_name, $level];
    
13.   while(@stack){
    
14.     ($modual_name, $level) = @{pop @stack};
    
15.     print $indent x $level, $modual_name, "\n";
    
16.     push @stack, map{[$_, $level + 1]}
    
17.       parents($modual_name);
    
18.    }
    
19. }
    
20. use IO::File;
    
21. derived_tree('IO::File');
    
22. 
    
23. --------output--------
    
24. IO::File
    
25.     Exporter
    
26.     IO::Seekable
    
27.         Exporter
    
28.     IO::Handle
    
29.         Exporter
    

复制代码

[ 本帖最后由 DQP 于 2009-2-27 15:48 编辑 ]

MMMIX

这个用 Devel::Symdump 的 inh_tree/isa_tree 就可以了。

dream3401

写的很好呀,感谢分享,刚学perl
不过看了好一会才看懂
我写了一个,用了一下递归
#!/usr/bin/perl
no strict "refs";

$level=0;
sub printdrv{
        my $class=shift;
        print "\t"x$level."$class\n";
        my @base=@{$class.'::ISA'};
        do{$level--;return;} unless (@base) ;
        $level++;
        for(@base){
                &printdrv($_);
        }
}
use IO::File;
printdrv(IO::File);

输出:
IO::File
        IO::Handle
                Exporter
        IO::Seekable
                Exporter
        Exporter

跟你的结果相反哟

[ 本帖最后由 dream3401 于 2009-2-27 20:37 编辑 ]

DQP

原帖由 MMMIX 于 2009-2-27 16:40 发表
这个用 Devel::Symdump 的 inh_tree/isa_tree 就可以了。

  谢谢。  我去看看

DQP

观察的很细哦
赞一个