|
sortaddr5.pl |
#!/usr/local/bin/perl -w my $addressbook = "addressbook"; open(BOOK, "<$addressbook") || die "Cannot open $addressbook\n"; my @addresses = (); my ($name, $address, $lastname); while (<BOOK>) { chomp; my(@address) = /(.*)\s(\S+):(.*)/; push(@addresses, \@address); } close(BOOK); foreach $address (sort { $a->[1] cmp $b->[1] } @addresses) { ($firstname, $lastname, $address) = @{$address}; printf "%-20s | %s\n", "$firstname $lastname", $address; } |
my erzeugt nicht lokale Variablen im herkömmlichen
Sinn, sondern legt dynamisch Speicher an (analog zu malloc).
| |
In der while-Schleife wird somit @address jedesmal
frisch angelegt.
| |
Der \-Operator ist der Adress-Operator analog
zu & in C.
|
Copyright © 2000 Ingo Melzer, in HTML konvertiert am 10.11.2000 |