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

Re: Interactive scripting with DB

by mattk (Pilgrim)
on May 26, 2005 at 02:28 UTC ( #460489=note: print w/ replies, xml ) Need Help??


in reply to Interactive scripting with debugger

While it's not as powerful as using the debugger itself, I use a small block based around eval to achieve mostly the same thing:

while (1) { print "$0> "; chomp(my $input = scalar <STDIN>); last if $input =~ m/^(q|quit)$/; my $res = eval $input; chomp(my $out = $@ ? $@ : $res); print "$out\n"; }


Comment on Re: Interactive scripting with DB
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (4)
As of 2015-07-03 06:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (48 votes), past polls