Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re^4: Parsing multiple excel files in perl

by reaper9187 (Scribe)
on Oct 15, 2012 at 10:49 UTC ( #999068=note: print w/ replies, xml ) Need Help??


in reply to Re^3: Parsing multiple excel files in perl
in thread Parsing multiple excel files in perl

I'm not particularly proud of this code but this is as far as i could get using multiple file handles

sub push_button4 { sub push_button1(); $txt->insert('end',"Opened $filename1\n"); sub push_button2(); $txt->insert('end',"Opened $filename2\n"); sub push_button3(); $txt->insert('end',"Opened $filename3\n"); open($filename1,$filename2); my $parser = Spreadsheet::ParseExcel->new(); my $workbook1 = $parser->Parse($filename1) or die $parser->error; my $workbook2 = $parser->Parse($filename2) or die $parser->error; foreach $worksheet($workbook1->worksheet(2),$workbook2->worksheet(2)) { my ( $row_min, $row_max ) = $worksheet->row_range(); my ( $col_min, $col_max ) = $worksheet->col_range(); for my $row ( 0..10 ) { for my $col ( $col_min .. $col_max ) { $txt->insert('end',"$worksheet->{Cells}[$row][1]->{Val +} \n") } } } }
Please suggest improvements


Comment on Re^4: Parsing multiple excel files in perl
Download Code
Re^5: Parsing multiple excel files in perl
by Athanasius (Monsignor) on Oct 15, 2012 at 12:09 UTC
    Please suggest improvements

    Just a quick observation: In this part of the code:

    sub push_button4 { sub push_button1(); $txt->insert('end',"Opened $filename1\n"); sub push_button2(); $txt->insert('end',"Opened $filename2\n"); sub push_button3(); $txt->insert('end',"Opened $filename3\n"); ...

    I’m guessing you meant to call subroutines push_button1, push_button2, and push_button3, in which case you need to remove the three occurrences of sub. In its current form, the code is simply declaring that each of these subroutines is prototyped to take no arguments (which is probably wrong, and is certainly unnecessary) — but it isn’t calling (i.e., invoking) them.

    Hope that helps,

    Athanasius <°(((><contra mundum

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (15)
As of 2014-10-24 16:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (132 votes), past polls