|
while (<$book>) { chomp; my ($fullname, $address) = split /:/; my ($firstname, $lastname) = $fullname =~ m{(.*)\s(.*)}; push(@addresses, { firstname => $firstname, lastname => $lastname, address => $address, }); } |
Genauso wie mit [...] bei Listen können assoziative
Arrays in {...} eingeklammert werden, um einen entsprechenden
Zeiger auf eine neu allokierte Datenstruktur zu erhalten.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |