examples/ddumper.pl

   1 #!/pro/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use DDumper;
   7
   8 my %hash = (
   9     foo => "bar\x{0a}baz",
  10     bar => [ 1, "mars", \@ARGV ],
  11     );
  12
  13 print "DDumper (\\%hash)\n";
  14 print DDumper \%hash;
  15
  16 print "\$str = DDump (%hash)\n";
  17 my $str = DDump \%hash;
  18 print $str;
  19 print "\%hsh = DDump (%hash)\n";
  20 my %hsh = DDump \%hash;
  21 print DDumper \%hsh;
  22
  23 print "DDump \\%hash\n";
  24 DDump \%hash;
  25
  26 print "\$str = DDump (%hash, 5)\n";
  27 my $str = DDump (\%hash, 1);
  28 print $str;
  29 print "\%hsh = DDump (%hash, 5)\n";
  30 my %hsh = DDump (\%hash, 1);
  31 print DDumper \%hsh;
  32
  33 print "DDump \\%hash, 5\n";
  34 DDump (\%hash, 1);