一个对调试很有用的模块

dumperSimple.pl

一个对调试很有用的模块，它改良了Dumper的功能。

看看下面的代码就知道了

use Data::Dumper;

my $s = "scalar";

my @a = ( "red", ["green", {yellow=>"blue"}]);

my %h = (name=>"wti", loveColor=>"blue");

print STDERR Dumper($s, \%h, \@a);

print STDERR Dumper($s, %h, @a);

#------------------------------------------------------

# The output are:

#

# $VAR1 = 'scalar';

# $VAR2 = {

# 'name' => 'wti',

# 'loveColor' => 'blue'

# };

# $VAR3 = [

# 'red',

# [

# 'green',

# {

# 'yellow' => 'blue'

# }

# ]

# ];

# $VAR1 = 'scalar';

# $VAR2 = 'name';

# $VAR3 = 'wti';

# $VAR4 = 'loveColor';

# $VAR5 = 'blue';

# $VAR6 = 'red';

# $VAR7 = [

# 'green',

# {

# 'yellow' => 'blue'

# }

# ];

#------------------------------------------------------

use Data::Dumper::Simple;

print STDERR Dumper($s, \%h, \@a);

#------------------------------------------------------

# The output are:

#

# $s = 'scalar';

# $h = {

# 'name' => 'wti',

# 'loveColor' => 'blue'

# };

# $a = [

# 'red',

# [

# 'green',

# {

# 'yellow' => 'blue'

# }

# ]

# ];

#------------------------------------------------------

print STDERR Dumper($s, %h, @a);

#------------------------------------------------------

# Outputs are same as Dumper($s, \%h, \@a)

#------------------------------------------------------