Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Invoking the debugger on yourself

by grinder (Bishop)
on Dec 22, 2003 at 10:00 UTC ( #316353=snippet: print w/ replies, xml ) Need Help??

Description:

I needed to run the debugger on a long-running process, and the conditional breakpoint required was too hairy for my poor brain to figure out. After a bit of spelunking in perldoc perldebug and perldoc DB I came up with the code below.

There are a few things to be aware of:

  1. Note the -d switch on the shebang line. This will run the program under the debugger.
  2. Using -d will by default stop execution at the first executable statement. To start the program immediately without have to wait for a person to hit the 'r' key and press enter, the environment variable PERLDB_OPTS should be set to nonstop. Hence, in a Bournish shell, the program should be run with PERLDB_OPTS=nonstop myprogram myarg1 myarg2...
  3. Setting $DB::single to 1 will cause the debugger to take over control at the beginning of the next statement. The documentation warns that this variable should be considered read-only, but setting it doesn't appear to have any ill effects that I could see.

In my real-life example, the setting of $DB::single involved opening sockets to remote machine and database lookups, but in essence was doing nothing more than the example below. It might make more sense to say $DB::single = maybe_breakpoint($foo, $bar, $rat,...) and encapsulate the mess in a subroutine.

Also note that XML::SAX::PurePerl is really, really slow under the debugger. Do not adjust your terminal, it will respond... eventually :)

#! /usr/bin/perl -wd

use strict;

for my $step( 0..9 ) {
        print "$step\n";
        $DB::single = 1 if $step == 5;
}
Comment on Invoking the debugger on yourself
Download Code
Re: Invoking the debugger on yourself
by fizbin (Chaplain) on Jan 02, 2004 at 19:30 UTC
    I'm not sure I would have modified my script to include -d on the shebang line. That's the kind of thing I'd forget to take out. Is there some reason you didn't want to start your script with:
    PERLDB_OPTS=nonstop perl -wd myprogram myarg1 myarg2...
    ? Or even:
    PERLDB_OPTS=nonstop PERL5OPT=-wd myprogram myarg1 myarg2...

Back to Snippets Section

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: snippet [id://316353]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (3)
As of 2014-09-30 22:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (385 votes), past polls