Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: Dynamically create a foreach loop within a foreach loop?

by educated_foo (Vicar)
on Dec 11, 2013 at 15:28 UTC ( #1066635=note: print w/replies, xml ) Need Help??

in reply to Dynamically create a foreach loop within a foreach loop?

As mentioned elsewhere, you can use recursion:
sub foo { my ($hash, @path) = @_; while (my ($k, $v) = each %$hash) { if (ref $v eq 'HASH') { foo($v, @path, $k); } else { # whatever } } }
You can also use "eval" to build up the loops (hand-waving a bit):
$depth = compute_hash_depth; $code = '...'; for (reverse 1..$depth) { my $prev = $_-1; $code = "while (my (\$k$_, \$v$_) = each \$v$prev) { $code }"; } eval $code;
In general, when you want nested loops and don't know how many beforehand, recursion is easiest.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (6)
As of 2016-10-01 01:30 GMT
Find Nodes?
    Voting Booth?
    Extraterrestrials haven't visited the Earth yet because:

    Results (574 votes). Check out past polls.