Re: Excel File Problem

The error message, if any, would be helpful. Have you considered passing the $worksheet into getData()?

$mw->Button(-text => "Extract",
            -command => sub { getData( $worksheet ) })-> ...
[download]

My criteria for good software:

Does it work?
Can someone else come in, make a change, and be reasonably certain no bugs were introduced?

Comment on Re: Excel File Problem Download Code

Replies are listed 'Best First'.
Re^2: Excel File Problem by joelnackman (Beadle) on May 20, 2006 at 15:53 UTC
Yes, I've tried to pass `$worksheet` to `getData()`, but it dosen't work. Also, there is unfortunately no error message except for the die. In case it's helpful, this is what it prints out: `Tk::Error: Write row failed: main::getData at person_list.pl line 57 main::__ANON__ at person_list.pl line 32 Tk callback for .button Tk::__ANON__ at /Library/Perl/5.8.6/darwin-thread-multi-2level/Tk.pm +line 247 Tk::Button::butUp at /Library/Perl/5.8.6/darwin-thread-multi-2level/T +k/Button.pm line 111 <ButtonRelease-1> (command bound to event)` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Excel File Problem
by joelnackman (Beadle) on May 20, 2006 at 15:53 UTC

$worksheet

getData()

Tk::Error: Write row failed: 
 main::getData at person_list.pl line 57
 main::__ANON__ at person_list.pl line 32
 Tk callback for .button
 Tk::__ANON__ at /Library/Perl/5.8.6/darwin-thread-multi-2level/Tk.pm 
+line 247
 Tk::Button::butUp at /Library/Perl/5.8.6/darwin-thread-multi-2level/T
+k/Button.pm line 111
 <ButtonRelease-1>
 (command bound to event)
[download]

[reply]
[d/l]
[select]