4 ms·
Try 'x' instead of 'print': ddiederi@lomin:~/t$ cat p1 #!/usr/bin/perl my $a = 'hi'; $a = { hi => 'there' }; print "Done\n"; ddiederi@lomin:~/t$ perl -d p1 L
by Diederich 10y ago
Try 'x' instead of 'print':
ddiederi@lomin:~/t$ cat p1
#!/usr/bin/perl
my $a = 'hi';
$a = { hi => 'there' };
print "Done\n";
ddiederi@lomin:~/t$ perl -d p1
Loading DB routines from perl5db.pl version 1.49
Editor support available.
Enter h or 'h h' for help, or 'man perldebug' for more help.
main::(p1:3): my $a = 'hi';
DB<1> n
main::(p1:4): $a = { hi => 'there' };
DB<1> x $a
0 'hi'
DB<2> n
main::(p1:5): print "Done\n";
DB<2> x $a
0 HASH(0x29e6eb8)
'hi' => 'there'
DB<3> n
Done
Debugged program terminated. Use q to quit or R to restart,
use o inhibit_exit to avoid stopping after program
termination,
h q, h R or h o to get additional info.
DB<3> exit
ddiederi@lomin:~/t$