länge eines mehrdimensionalen Array auselesen

[LanX²]

Hallo

was roger sucht perldoc perllol

leider aber ohne folgendes konkretes Beispiel:

  
  
# assign to our array, an array of array references  
my @AoA = (  
    [ "fred", "barney" ],  
    [ "george", "jane", "elroy" ],  
    [ "homer", "marge", "bart" ],  
    );  
  
  
for my $i ( @AoA ) {  
 for my $j ( @$i ) {  
  print $j,"\t";  
 }  
 print "\n";  
}  
  
  
  
# assign a reference to array of array references  
my  $AoA_ref = [  
 [ "fred", "barney", "pebbles", "bambam", "dino", ],  
 [ "homer", "bart", "marge", "maggie", ],  
 [ "george", "jane", "elroy", "judy", ],  
    ];  
  
  
for my $i ( @$AoA_ref ) {  
 for my $j ( @$i ) {  
  print $j,"\t";  
 }  
 print "\n";  
}  

Im übrigen bin ich der Meinung [1] dass man Perlanfängern in Tutorials erst das dereferenzieren beibringen sollte d.h. @$A_ref  , bevor sie lernen dass man auch  @A schreiben kann.

Gruß
  LanX

[1] Wie sagt man "Cheatah bitte übersetzen sie..." auf Latein ???