求纯perl实现的Data::Dumper函数

feilong_36

我自己编译了个microperl在嵌入式环境下使用，不支持XS,不能用标准Data:umper.
源码包的 lib目录下有好多模块可用，但找不到简单的纯perl实现的Data:umper
有人见过或者实现过这个吗?谢谢

黑色阳光_cu

用ref函数写个？

feilong_36

自己整了个简单用用

1. 
   
2. use warnings;
   
3. use strict;
   
4. #use Data::Dumper;
   
5. 
   
6. 
   
7. package MyDumper;
   
8. sub Dumper{
   
9.         md(shift,0);
   
10. }
    
11. sub output{
    
12.         my $base=shift;
    
13.         my $data=shift;
    
14.         print ' 'x$base,$data;
    
15. }
    
16. sub md{
    
17.         my $p=shift;
    
18.         my $base=shift || 0;
    
19. 
    
20.         my $type=ref $p;
    
21.         if($type eq 'REF'){
    
22.                 output(0,'\\');
    
23.                 return md($p,$base+1);
    
24.         }
    
25. 
    
26.         if($type eq 'SCALAR'){
    
27.                 if(defined $p){
    
28.                         output(0,"\'$p\',\n");
    
29.                 }
    
30.                 else{
    
31.                         output(0,"undef,\n");
    
32.                 }
    
33.                 return;
    
34.         }
    
35. 
    
36.         if($type eq 'ARRAY'){
    
37.                 output(0,"[\n");
    
38.                 for(@$p){
    
39.                         if(ref $_){
    
40.                                 md($p->{$_},$base+1);
    
41.                         }
    
42.                         else{
    
43.                                 if(defined $_){
    
44.                                         output($base+1,"\'$_\',\n");
    
45.                                 }
    
46.                                 else{
    
47.                                         output($base+1,"undef,\n");
    
48.                                 }
    
49.                         }
    
50.                 }
    
51.                 output($base-1,"],\n");
    
52.                 return;
    
53.         }
    
54. 
    
55.         if($type eq 'HASH'){
    
56.                 my @key=sort keys %$p;
    
57.                 my $key_len=0;
    
58.                 for(@key){
    
59.                         if($key_len<length){
    
60.                                 $key_len=length;
    
61.                         }
    
62.                 }
    
63.                 output(0,"{\n");
    
64. 
    
65.                 for(@key){
    
66.                         output($base,sprintf("%-${key_len}s => ",$_));
    
67.                         if(ref $p->{$_}){
    
68.                                 md($p->{$_},$base+$key_len+5);
    
69.                         }
    
70.                         else{
    
71.                                 if(defined $p->{$_}){
    
72.                                         output(0,"\'$p->{$_}\',\n");
    
73.                                 }
    
74.                                 else{
    
75.                                         output(0,"undef,\n");
    
76.                                 }
    
77.                         }
    
78.                 }
    
79.                 output($base-1,"},\n");
    
80.                 return;
    
81.         }
    
82. 
    
83.         if($type eq 'CODE'){
    
84.                 output(0,"sub{ DUMMY },\n");
    
85.                 return;
    
86.         }
    
87. 
    
88.         if($type eq 'GLOB'){
    
89.                 my $name=*$p;
    
90.                 output(0,"\\$name,\n");
    
91.                 return;
    
92.         }
    
93. 
    
94.         if($type eq 'IO::Handle'){
    
95.                 output(0,'bless( , \'IO::Handle\' ),'."\n");
    
96.                 return;
    
97.         }
    
98. }
    
99. 1;
    
100. 
     
101. 
     
102. #use MyDumper;
     
103. my $bb="222";
     
104. my $foo=\$bb;
     
105. print ref $foo;
     
106. sub handler{
     
107. }
     
108. my $cc={
     
109.         aa=>1,
     
110.         bb=>{d=>{aaaaaaa=>1,bbb=>2}},
     
111.         cc=>[1,2,3,4],
     
112.         ff=>sub{},
     
113.         ee=>\*STDIN,
     
114.         ii=>\$foo,
     
115. 
     
116.         scalarref => *foo{SCALAR},
     
117.         arrayref  => *ARGV{ARRAY},
     
118.         hashref   => *ENV{HASH},
     
119.         coderef   => *handler{CODE},
     
120.         ioref     => *STDIN{IO},
     
121.         globref   => *foo{GLOB},
     
122. };
     
123. 
     
124. MyDumper::Dumper($cc);
     

复制代码

feilong_36

顺便请教一下 perlref文档里的 $scalarref = *foo{SCALAR}; 为什么是undef?
我的perl版本5.8.8

黑色阳光_cu

顺便请教一下 perlref文档里的 $scalarref = *foo{SCALAR}; 为什么是undef?
我的perl版本5.8.8
feilong_36 发表于 2010-08-15 12:58

$foo需要用our声明，不能用my

feilong_36

谢谢
我明白了，typeglob只能用在包的全局变量上，在包外面能访问到的变量.