Eine Liste von assoziativen Arrays

sortaddr6.pl

#!/usr/local/bin/perl -w $addressbook = "addressbook"; open(BOOK, "<$addressbook") || die "Cannot open $addressbook\n"; @addresses = (); while (<BOOK>) { chomp; ($name, $address) = split /:/; ($lastname = $name) =~ s/.*\s//; push(@addresses, { lastname => $lastname, name => $name, address => $address }); } close(BOOK); foreach $address (sort byLastName @addresses) { printf "%-20s | %s\n", $address->{name}, $address->{address}; } sub byLastName { $a->{lastname} cmp $b->{lastname} }