Help for this page

Select Code to Download


  1. or download this
    $ perl -d dbg.pl

...
Enter h or `h h' for help, or `man perldebug' for more help.
main::(dbg.pl:5):       my $t;
  DB<1>
  2. or download this
      DB<1> b sub_find_last
  DB<2> r
main::sub_find_last(dbg.pl:31):         my $X = shift;
  DB<2>
  3. or download this
      DB<2> n
main::sub_find_last(dbg.pl:32):         return if !defined $X;
...
        main::sub_find_last(undef) called at dbg.pl line 8

  DB<3>
  4. or download this
    if($select_sheet->Range("A1")->{Value} =~ /Step/i)