Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re^2: Excel Win32::OLE - copy data problem

by imrags (Monk)
on Dec 04, 2009 at 06:42 UTC ( #811025=note: print w/replies, xml ) Need Help??

in reply to Re: Excel Win32::OLE - copy data problem
in thread Excel Win32::OLE - copy data problem

Well, I did more research on that.. The problem seems to come from this line in the code
my ($last2_row,$last2_col) = sub_find_last($New_Sheet);
This line does not seem to work..Strange, as a similar command works 2 line above :(

Replies are listed 'Best First'.
Re^3: Excel Win32::OLE - copy data problem
by roboticus (Chancellor) on Dec 08, 2009 at 15:20 UTC

    I doubt it's that line, as that line doesn't attempt to treat anything as a hash reference.

    Run your program with the debugger, it's not hard, and you'll find the problem pretty easily. First, invoke your program under the debugger:

    $ perl -d Loading DB routines from version 1.3 Editor support available. Enter h or `h h' for help, or `man perldebug' for more help. main::( my $t; DB<1>

    At this point, perl is waiting to execute the first statement of your program, "my $t;" in this case. Since you have a suspicious line, you can tell perl to execute your program until it enters the sub_find_last subroutine by first setting a breakpoint in the subroutine, and then telling perl to run as normal, like this:

    DB<1> b sub_find_last DB<2> r main::sub_find_last( my $X = shift; DB<2>

    Now the debugger is in the sub_find_last routine, ready to execute the first line. You can execute that line (with the 'n' (next) command, and then see what was loaded into $X with the 'p' (print) command, like so:

    DB<2> n main::sub_find_last( return if !defined $X; DB<2> p $X Use of uninitialized value $X in print at (eval 5)[/usr/lib/perl5/5.10 +/] line 2. at (eval 5)[/usr/lib/perl5/5.10/] line 2 eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package main; $ +^D = $^D | $DB::db_stop; print {$DB::OUT} $X; ;' called at /usr/lib/perl5/5.10/ line 638 DB::eval called at /usr/lib/perl5/5.10/ line 3436 DB::DB called at line 32 main::sub_find_last(undef) called at line 8 DB<3>

    Any time you want, you can use the 'h' command to get a brief overview of the commands available in the debugger interface. If you spend a little time learning how to use the debugger, you'll greatly increase your development speed. Why is that? First, you'll be able to see exactly what's happening, rather than guessing and hoping. Second, when you have a data problem, you can immediately repair the data item and continue execution rather than edit the program restart and work through all the inputs to get back to the same spot. Third (and most importantly, IMHO), you'll start getting a better "feel" for the language, which will help you avoid making many mistakes in the first place.

    So go on, give it a go. If you get stuck on something, we'll be glad to help out. I'd first set a breakpoint (the 'b' command) on the line:

    if($select_sheet->Range("A1")->{Value} =~ /Step/i)

    Then, since you know the first two sheets process normally (I think, based on the output you showed in the OP), you can let perl process the first two sheets normally by using the run ('r') command twice. The first time, it'll process the first sheet, go back to the beginning of the loop, and break. The second 'r' will process the second sheet, go back to the top of the loop and break again. Then you can single-step through the program and find out what beaks. Once you get used to the debugger, you'll be able to find and repair your programs pretty quickly.

    Be sure to use the help ('h') command to see how to use the common commands, and read (perldoc perldebug) for more details and information on the less-common commands.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://811025]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (15)
As of 2017-01-20 19:40 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (176 votes). Check out past polls.