Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: Converting HoA into AoH

by pg (Canon)
on Oct 31, 2005 at 01:57 UTC ( #504180=note: print w/replies, xml ) Need Help??

in reply to Converting HoA into AoH

use Data::Dumper; use strict; use warnings; my $HoA = { flintstones => [ "fred", "barney" ], jetsons => [ "george", "jane"], }; my $AoH; for my $flintstone (@{$HoA->{"flintstones"}}) { for my $jetson (@{$HoA->{"jetsons"}}) { push @$AoH, {"flintstones" => $ flintstone, "jetsons" => $jets +on}; } } print Dumper($AoH);

Replies are listed 'Best First'.
Re^2: Converting HoA into AoH
by Moron (Curate) on Nov 01, 2005 at 07:59 UTC
    I am surprised no-one else complained yet, but this addresses only the example using hard coding, which cannot be useful to the OP given that the number of nesting levels of your loops translates to the number of families. It should be obvious that a solution should be generic to handle a variable number of set-of-sets of unpredisclosed group names each containing an unpredisclosed number of members each with unpredisclosed names.

    Update and I should have added that, Algorithm::Loops, which someone has already mentioned, handles precisely the situation where loop nesting level is variable, although I am personally more inclined towards the explicit recursion solutions that were also offered in response.


    Free your mind

      I am surprised no-one else complained yet
      It's out of courtesy, that nobody complained...

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2020-05-31 04:55 GMT
Find Nodes?
    Voting Booth?
    If programming languages were movie genres, Perl would be:

    Results (173 votes). Check out past polls.