Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Appending new column data to CSV file?

by Laurent_R (Canon)
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.)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1047817]
help
Chatterbox?
[Corion]: marto: Double-:( , hopefully the kid does get well soon!
[Corion]: I somewhat feel I've reinvented a wheel during the weekend by writing HAL::Resource, which isn't all that different from HAL::Tiny or Data::HAL,...
[Corion]: ... but neither of them supports actually fetching another resource, and Data::HAL fails its test suite...
[Corion]: On the upside, I can now remove larger swathes of web scraping from Finance::Bank:: Postbank_de and replace them with JSON-fetching instead, which seems like a plus :)=
[marto]: neat :)
[Corion]: marto: Yeah - more involved will be the ways to automatically trigger money transfers etc. , but I didn't implement that in the old world either, so it's not really a priority for the new world :)

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (8)
As of 2018-07-16 08:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?















    Results (333 votes). Check out past polls.

    Notices?