Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Appending new column data to CSV file?

by Laurent_R (Monsignor)
on Aug 04, 2013 at 19:06 UTC ( #1047817=note: print w/ replies, xml ) Need Help??


in reply to Appending new column data to CSV file?

Instead of printing your hash values divided by $sum, change directly your hash and push a reference to it into a global array of hashes. Once you have readd all your files, use that data structure to print your data structure in the required format.

$_ = $_/$sum foreach (values %hash); push @AoH, \%hash;

It would probably be better to declare your hash within the "foreach my file (@ARGV)" loop to make sure you get a brand new and empty hash each time, but, on the other side, @AoH needs to be declared at the top of your program.

At the end, you just need to go through the @AoH structure to print your output. (Of course, this is just one possibility, there are quite a few others.)


Comment on Re: Appending new column data to CSV file?
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (15)
As of 2015-07-28 23:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (260 votes), past polls