Beefy Boxes and Bandwidth Generously Provided by pair Networks DiBona
Perl Monk, Perl Meditation
 
PerlMonks  

Re: hoh or hoa data structure

by eff_i_g (Curate)
on Jan 11, 2011 at 00:29 UTC ( #881565=note: print w/ replies, xml ) Need Help??


in reply to hoh or hoa data structure

I agree with Generoso: use SQL when possible.

P.S. Here's your structure:

use warnings; use strict; use Data::Dump qw(pp); my %hash; while (<DATA>) { chomp; next if /\A\s*\z/; my @pieces = split ',' => $_; for my $idx (3..4) { push @{ $hash {$pieces[0]} {$pieces[1]} {$pieces[2]} [$idx-3] }, $pieces[$idx]; } } pp %hash; __DATA__ Joe,A,1,85,90 Joe,A,1,80,99 Joe,A,2,50,70 Joe,A,2,60,65 Joe,A,2,87,89 Joe,B,1,82,92 Joe,B,3,30,51 Rob,A,1,64,77 Rob,B,2,20,32
( "Joe", { A => { 1 => [[85, 80], [90, 99]], 2 => [[50, 60, 87], [70, 65, 89] +] }, B => { 1 => [[82], [92]], 3 => [[30], [51]] }, }, "Rob", { A => { 1 => [[64], [77]] }, B => { 2 => [[20], [32]] } }, )


Comment on Re: hoh or hoa data structure
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (15)
As of 2014-04-16 20:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (434 votes), past polls