mehrdimensionales Array abfragen

[Horst]

Hi,

schau mal hier:

  
# Anonyme Arrays  
###########################################################################  
use strict;  
  
# Es soll ein Array erstellt werden in welchem  
# verschiedene Werte abgelegt sind, dies wird ein anonymes Array:  
  
my @names;  
push @names, ['Rolle', 'Rops', 'Karlsruhe'];  
push @names, ['Erwin', 'Blubbermann', 'Unterlandhausen'];  
push @names, ['Fips', 'Fuzziheinrich', 'Kunkelfriedbach'];  
  
# Die Werte einzeln wieder ausgeben:  
print $names[0]->[0], "\n"; # Rolle  
print $names[0]->[1], "\n"; # Rops  
print $names[0]->[2], "\n"; # Karlsruhe  
print $names[1]->[0], "\n"; # Erwin  
print "\n------------------------------\n";  
  
# Oder alles in einer Schleife ausgeben:  
# Vorher den Nachnamen von Fips ändern  
$names[2]->[1] = 'Fuzziblubber';  
foreach my $name(@names){  
 print "Vorname: $name->[0], Nachname: $name->[1] wohnt in $name->[2]\n";  
}  
  
# Vorname: Rolle, Nachname: Rops wohnt in Karlsruhe  
# Vorname: Erwin, Nachname: Blubbermann wohnt in Unterlandhausen  
# Vorname: Fips, Nachname: Fuzziblubber wohnt in Kunkelfriedbach