|
#!/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"; while (<$book>) { chomp; my ($name, $address) = split /:/; printf "%-20s | %s\n", $name, $address; } $book->close; |
IO::File ist ein standardmäßig zu Perl
gehörendes Modul zur Eröffnung von Dateien,
das mit use IO::File; importiert wird.
| |
new IO::File ist ein Konstruktor dieses
Moduls, das einen Dateinamen als ersten Parameter
akzeptiert.
| |
Der Konstruktor liefert ein Objekt (ist ein skalarer Wert
in Perl) zurück, der daraufhin als Referenz auf die geöffnete
Datei verwendet werden kann.
| |
Wenn der Konstruktor 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.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |