Dateien öffnen

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 diese 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 $_.

	Der erste Parameter von `open` ist der Name der Dateiverbindung. Per Konvention werden diese 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 `$_`.