Eine Liste von Listen

sortaddr4.pl

#!/usr/local/bin/perl use strict; use warnings; use IO::File; my $addressbook = "addressbook"; my $book = new IO::File $addressbook    or die "Cannot open $addressbook: $!\n"; my @addresses; while (<$book>) {    chomp;    push(@addresses, [split /:/]); } $book->close; foreach my $address       (sort { $a->[0] cmp $b->[0] } @addresses) {    printf "%-20s | %s\n", $address->[0], $address->[1]; }

	Wenn eine Liste in [...] statt in (...) eingeklammert ist, wird ein Zeiger auf die neu im Speicher angelegte Liste zurückgeliefert.
	Entsprechend kann auf die Verwendung einer lokalen Variablen @fields zur Zwischenspeicherung in diesem Beispiel verzichtet werden.

Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003