一个对调试很有用的模块

来源：互联网发布：caj软件安卓版编辑：程序博客网时间：2024/06/03 02:48
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)#------------------------------------------------------