CGI Einführung - Lernen Sie Perl

CGI 9 - Dateien

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 enthalten.

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 alte 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.