|
  
Sie
können nach diesem Kapitel ein interessantes
Feauture beherrschen: Das lesen von Dateien.
Unterkapitelindex
9.1 Komplette Datei einlesen
9.2 Datei zeilenweise einlesen
9.3 Dateien schreiben
9.4 Dateien erweitern
9.5 Dateien löschen
9.6 Dateien umbenennen
|
|
|
9.1
Komplette Datei
einlesen
Um eine komplette Datei in einen String einzulesen
nutzen Sie folgenden Code:
|
01
02
03
04
05
06
07
|
my $daten;
open (DATEI, "test.txt") or die
$!;
while(<DATEI>){
$daten = $daten.$_;
}
close (DATEI);
|
Nun enthält
die Variable $daten die komplette Datei. Das ist
zb. interessant wenn Sie aus Text (*.txt) Dateien
eine HTML Datei machen wollen indem Sie immer denselben
HTML Code vor- und nach dem Text einfügen.
Das öffnen der Datei wird mit dem Befehl "or
die $!" geprüft. Dieser Zusatz weißt
Perl an jegliche auftretende Fehler abzufangen und
auszugeben. Sollte ein Fehler auftreten wird das
Programm mit der Fehlermeldung des jew. Systems
ausgegeben.
Diese Kontrollstruktur ist in allen folgenden Beispielen
enthtitleen. |
|
9.2
Datei zeilenweise
einlesen
Um eine Datei zeilenweise einzulesen können
Sie folgenden Code nutzen:
|
01
02
03
|
open (DATEI, "test.txt")
or die $!;
my @daten = <DATEI>;
close (DATEI);
|
Dadurch wurde jedem Skalar im Array @daten eine
Zeile der Datei zugewiesen. Mit einer foreach Schleife
können Sie die Daten nun ausgeben oder verarbeiten.
|
|
9.3
Dateien schreiben
Um eine Datei zu schreiben können Sie folgenden
Code nutzen:
|
01
02
03
|
open (DATEI, ">test.txt")
or die $!;
print DATEI "Dies
ist ein Test!";
close (DATEI);
|
Falls
die Datei noch nicht vorhanden war, wird eine neue
Datei erzeugt. Der Unterschied in den Methoden liegt
in dem ">" vor dem Dateinamen (sowie
natürlich den folgenden Befehlen).
 Falls
die Datei schon vorhanden war, wird die titlee Datei
überschrieben. |
|
9.4
Dateien erweitern
Um eine Datei zu erweitern können Sie folgenden
Code nutzen:
|
01
02
03
|
open (DATEI, ">>test.txt")
or die $!;
print DATEI "Dies
ist ein Test!";
close (DATEI);
|
Falls die Datei noch nicht vorhanden war, wird Sie
erstellt. War die Datei schon vorhanden wird der
neue Text an die bereits vorhandene Datei angehängt. |
|
9.5
Dateien löschen
Das Löschen von Dateien ist sehr einfach, nutzen
Sie dazu folgenden Code:
|
01
|
unlink ("Dateiname.dat")
or die $!;
|
Dabei wird Dateiname.dat (hier kann auch eine Variable
eingesetzt werden) gelöscht. |
|
9.6
Dateien umbenennen
Auch das Umbenennen von Dateien ist sehr einfach,
nutzen Sie dazu folgenden Code:
|
01
|
rename ("Dateiname.dat",
"Dateiname2.dat") or die $!;
|
Dabei wird Dateiname.dat (hier kann auch eine Variable
eingesetzt werden) nach Dateiname2.dat (auch hier
kann eine Variable eingesetzt werden) umbenannt.
|