Assoziative Arrays

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]

lookup.pl
#!/usr/local/bin/perl -w

$addressbook = "addressbook";
open(BOOK, "<$addressbook") ||
   die "Cannot open $addressbook\n";
%address = ();
while(<BOOK>) {
   chomp;
   ($name, $address) = split /:/;
   $address{$name} = $address;
}
close(BOOK);

while (defined($name = <STDIN>)) {
   chomp($name);
   if (exists $address{$name}) {
      print $address{$name}, "\n";
   } else {
      print "Unbekannt!\n";
   }
}

*Assoziative Arrays sind Arrays, die als Index beliebige skalare Werte akzeptieren (Zeiger sind jedoch nur mit Vorsicht zu verwenden).
 
*Dem Variablennamen eines assoziativen Arrays geht (wenn nicht ein einzelnes Element indiziert wird) ein % voraus.
 
*Der Index wird in geschweifte Klammern gefasst.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 2000 Ingo Melzer, in HTML konvertiert am 10.11.2000