DB<1> l 1-5 1==> my %phone; 2: while (<>) { 3: my ($k, $v) = split; 4: $phone{$k} = $v; 5 } DB<2> W $phone{’555-1212′} DB<3> c Watchpoint 0: $phone{’555-1212′} changed: old value: undef new value: ‘Information’ main::(foo:2): while (<>) { DB<3> n main::(foo:3): my ($k, $v) = split; DB<3> p 555-1234 Weather Delete all watchpoints with a blank W command. 7.2.8 Trace: t The debugger’s t command provides a trace mode for those instances that require a complete trace of program execution. Running the program with an active trace mode: % perl -wd debug.pl main::(debug.pl:4): my @parole = qw(Salutations Hello Hey); DB<1> t Trace = on DB<1> n main::(debug.pl:6): print_line(@parole); DB<1> n main::print_line(debug.pl:13): main::print_line(debug.pl:14): main::print_line(debug.pl:15): main::print_line(debug.pl:16): Salutations Perl World main::print_line(debug.pl:14): main::print_line(debug.pl:15): main::print_line(debug.pl:16): Hello Perl World main::print_line(debug.pl:14): main::print_line(debug.pl:15): main::print_line(debug.pl:16): Hey Perl World main::print_line(debug.pl:14): main::print_line(debug.pl:15): my @parole = @_; foreach (@parole) { print “$_ Perl Worldn”; foreach (@parole) { print “$_ Perl Worldn”; foreach (@parole) { print “$_ Perl Worldn”; foreach (@parole) { main::(debug.pl:7): print “Donen”;
Note: If you are looking for good and high quality web space to host and run your java application check Vision java hosting services