Data::Dumper：

上面链接中显示的示例的一个片段。

use Data::Dumper;
 
package Foo;
sub new {bless {'a' => 1,'b' => sub { return "foo" }},$_[0]};
 
package Fuz;                       # a weird REF-REF-SCALAR object
sub new {bless \($_ = \ 'fu\'z'),$_[0]};
 
package main;
$foo = Foo->new;
$fuz = Fuz->new;
$boo = [ 1,[],"abcd",\*foo,{1 => 'a',023 => 'b',0x45 => 'c'},\\"p\q\'r",$foo,$fuz];
 
########
# simple usage
########
 
$bar = eval(Dumper($boo));
print($@) if $@;
print Dumper($boo),Dumper($bar);  # pretty print (no array indices)
 
$Data::Dumper::Terse = 1;          # don't output names where feasible
$Data::Dumper::Indent = 0;         # turn off all pretty print
print Dumper($boo),"\n";
 
$Data::Dumper::Indent = 1;         # mild pretty print
print Dumper($boo);
 
$Data::Dumper::Indent = 3;         # pretty print with array indices
print Dumper($boo);
 
$Data::Dumper::Useqq = 1;          # print strings in double quotes
print Dumper($boo);