|
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 akzeptieren als Index beliebige
skalare Werte (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 gefaßt.
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |