Dateien eröffnen

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

addresses.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";
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.
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003