Debugger's dumper on the command line


Don't ask to ask, just ask
	PerlMonks

Debugger's dumper on the command line

by bsb (Priest)

on Mar 25, 2004 at 22:36 UTC ( [id://339899]=CUFP: print w/replies, xml )

Need Help??

The "x" command from the debugger conveniently packaged.

$ perl -MDV -e '$x=%x=@x=(2,3); dv(\*x,[1,undef,3])'
0  GLOB(0x80ffe50)
   -> 
         ${*main::x} = 2
         @{*main::x} = (
            0  2
            1  3
         )
         %{*main::x} = (
            2 => 3
         )
1  ARRAY(0x80f5fc4)
   0  1
   1  undef
   2  3
[download]

package DV;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw($dv dv);
use Dumpvalue;
$dv = Dumpvalue->new(globPrint => 1,
            DumpReused => 0, 
            printUndef => 1, quoteHighBit => 1,
            subdump => 1  );
sub dv { print $dv->dumpValues(@_) };
1;
[download]