|
addresses.pl |
#!/usr/local/bin/perl -w $addressbook = "addressbook"; open(BOOK, "<$addressbook") || die "Cannot open $addressbook\n"; while (<BOOK>) { chomp; ($name, $address) = split /:/; printf "%-20s | %s\n", $name, $address; } close(BOOK); |
Der erste Parameter von open ist der Name der
Dateiverbindung. Per Konvention werden die immer
in Großbuchstaben gesetzt.
| |
Der zweite Parameter orientiert sich an der Syntax
der Bourne-Shell. Hier wird mit < konkret die
Datei addressbook zum Lesen eröffnet.
| |
Wenn open fehlschlägt, wird die aufgerufen,
das nach Ausgabe der angegebenen Meldung die Ausführung
des Programms beendet (mit einem Exit-Code von 2).
| |
Genauso wie im letzten Beispiel wird jeweils eine
Zeile innerhalb der while-Bedingung eingelesen und
an $_ zugewiesen.
| |
Wenn chomp ohne Parameter aufgerufen wird,
entfernt es den Zeilentrenner am Ende von $_.
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |