Re: Looping through an anonymous array of arrays

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