sandbox/test-dd.pl

   1 #!/pro/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Data::Dumper;
   7
   8 sub DDumper
   9 {
  10     my ($f, @a) = @_;
  11
  12 #   $Data::Dumper::Sortkeys  = $_sortkeys;
  13     $Data::Dumper::Indent    = $f & 0x01;
  14     $Data::Dumper::Quotekeys = $f & 0x02;
  15 #   $Data::Dumper::Deparse   = $f & 0x04;
  16     $Data::Dumper::Terse     = $f & 0x08;
  17 #   $Data::Dumper::Useqq     = $f & 0x10;
  18
  19     printf "0x%02x\n", $f;
  20     my $s = Data::Dumper::Dumper @_;
  21     return $s;
  22     } # DDumper
  23
  24 my %hash = (
  25     SV  => 1,
  26     GLB => *STDERR,
  27     IO  => *{$::{STDERR}}{IO},
  28     FMT => *{$::{STDOUT}}{FORMAT},
  29     );
  30
  31 DDumper $_, \%hash for 0 .. 0x1f;