Re: Looping through an anonymous array of arrays

[Gunnar Hjalmarsson]

Rodrick Brown wrote:
my $arrayRef = [ 1, 2, 3, ['a', 'b', 'c', ["Hello"] ]];
I have no problem returning single elements but how would one walk this list
of elements with say a for loop?

One way:

    my $level = 0;
    breakdown( $arrayRef );

    sub breakdown {
        my $ref = shift;
        foreach my $elem ( @$ref ) {
            if ( ref($elem) eq 'ARRAY' ) {
                $level++;
                breakdown( $elem );
                $level--;
            } else {
                print "\t" x $level, "$elem\n";
            }
        }
    }

But as usual when we are dealing with nested data structures, 
Data::Dumper comes in handy:

    use Data::Dumper;
    print Dumper $arrayRef;

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/