Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: can you help with Spreadsheet::WriteExcel module?

by poj (Prior)
on Jun 06, 2012 at 07:18 UTC ( #974663=note: print w/replies, xml ) Need Help??


in reply to can you help with Spreadsheet::WriteExcel module?

Why do you have a loop within the elsif block. ?
For every non-match it will write out all the records
for my $row (1..$row_max){ my $valA = $sheet->{Cells}[$row][0]->{Val}; my $valB = $sheet->{Cells}[$row][1]->{Val}; # ... $worksheet1->write ($write_row, 0, "$valA"); $worksheet1->write ($write_row, 1, "$valB"); $write_row++; # ... }
Try
my $write_row = 1; for my $row (1..$row_max){ my $valA = $sheet->{Cells}[$row][0]->{Val}; my $valB = $sheet->{Cells}[$row][1]->{Val}; # does this value exist in Col D if (exists $colD{$valA}) { my $xlrow = $row+1; print FILE "price change [A$xlrow]=[D$colD{$valA}] Value=$valB\n"; } else { # ... $worksheet1->write ($write_row, 0, "$valA"); $worksheet1->write ($write_row, 1, "$valB"); $write_row++; # ... } }
poj

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://974663]
help
Chatterbox?
[marto]: Discipulus concerned partys should report things. as tye mentioned in his post (linked in the other thread from yesterday) there is an approach and strategy for such things
[Discipulus]: which node yesterday?
[Discipulus]: i cannot see any link to tye post..

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (9)
As of 2017-06-23 08:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (538 votes). Check out past polls.