Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

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.


Comment on Re: Dynamically create a foreach loop within a foreach loop?
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (8)
As of 2014-08-22 22:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (168 votes), past polls