http://www.perlmonks.org?node_id=339899
Description: 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
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;
Replies are listed 'Best First'.
Re: Debugger's dumper on the command line
by pemungkah (Priest) on Sep 06, 2007 at 04:03 UTC
    Oh nice. I will be using this. Thanks.