Re: Parsing CSV into a hash

You might like to replace you inner while loop with:

$data->{$user}{$_} = shift @userdata for (@fields);
[download]

Perl is Huffman encoded by design.

Comment on Re: Parsing CSV into a hash Download Code

Replies are listed 'Best First'.
Re^2: Parsing CSV into a hash by McDarren (Abbot) on Sep 19, 2005 at 22:05 UTC
Okay, that's one part of my problem solved, thanks :) Let me just work through that to make sure I have it.... It works from right to left, yes? We iterate through each item in @fields, grabbing the associated item from @userdata, then assigning it to the hash, yes?	[reply]
Re^3: Parsing CSV into a hash by GrandFather (Saint) on Sep 19, 2005 at 22:30 UTC
That's right. Note also that if there are too few fields in a line this simply assigns `undef` rather than generating an invalid access as your original code did. If you are sure that the first line contains the header line then you can simply: `$_ = <DATA> or die "Empty file"; chomp; # Throw away the first two fields (#, username) in the header (undef, undef, @fields) = (split /\t/);` [download] before the loop. Perl is Huffman encoded by design.	[reply] [d/l] [select]