|
my $addressbook = "addressbook"; my $book = new IO::File $addressbook or die "Cannot open $addressbook: $!\n"; my %address = (); while(<$book>) { chomp; my ($name, $address) = split /:/; $address{$name} = $address; } $book->close; while (defined(my $name = <>)) { chomp($name); if (exists $address{$name}) { print $address{$name}, "\n"; } else { print $name, "\n"; } } |
Assoziative Arrays akzeptieren als Index beliebige
skalare Werte.
| |
Dem Variablennamen eines assoziativen Arrays
geht (wenn nicht ein einzelnes Element indiziert wird)
ein % voraus.
| |
Der Index wird in geschweifte Klammern gefaßt.
| |
Ein assoziatives Array wird auch (bei Perl) als
Hash bezeichnet.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |