[WarrenFaith]

Dieses Tutorial wurde geschrieben von: WarrenFaith

Dateizugriffe in Perl

Bemerkung:
Die verwendete Syntax in Pfadangaben und die Headerzeile sind im Unix-Format. Für Windows ist die erste Zeile ohne Interesse. Vorraussetzung für die Nutzung von Perl unter Windows ist der installierte IIS oder ein anderer Webserver wie z.B. XAMPP. Eine Anleitung zur Installation des IIS wird hier (englisch) gegeben. Stört euch nicht daran, dass es ein ASP-Tutorial ist. Das XAMPP-System ist hier zu finden.


Dateien einlesen

Auf Dateien kann in Perl sehr einfach zugegriffen werden.
Die Grundlage dafür bietet der die Funktion open(NAME, $pfad) und close(NAME). Die Parameter bestehen aus einem Namen, der zur Verdeutlichung und leichteren Lesbarkeit komplett groß geschrieben werden sollte sowie dem dazugehörigen Pfad.

#!/usr/bin/perl -w
use strict;
 
# Definition der Variablen
my $zeile;
my $pfad = "./daten.txt";
 
# Die Datei wird geöffnet, der Dateistream EINLESEN wird erstellt
open(EINLESEN, $pfad);
# Der Inhalt der Datei wird in ein Array geschrieben
# jede Zeile ist ein Element im Array
@inhalt=<EINLESEN>;
# Der Dateistream EINLESEN wird geschlossen
close(EINLESEN);
 
# Nun wird das Array durchlaufen und auf der Konsole ausgegeben
foreach $zeile (@inhalt) {
    print $zeile;
}

Wichtig zu wissen ist, dass bei relativen Pfadangaben die Pfadbasis der Ort im Dateisystem ist, von dem das Skript aufgerufen wird. Befindet man sich z.B. im /root Ordner und ruft mit folgendem Befehl

perl /home/skript.pl

das Skript auf, so wird die Datei im Verzeichnis /root gesucht und nicht in /home.
Dementsprechend sollte das Script den Pfad immer schon oben definieren und einen absoluten Pfad verwenden. Damit das ganze dynamisch ist, kann der Pfad dazu auch als Parameter beim Aufruf des Skripts mitgeliefert werden.


Dateien schreiben

In Dateien schreiben ist genauso leicht wie einlesen und von der Syntax her nahezu identisch.

#!/usr/bin/perl -w
use strict;
 
# Definition der Variablen
my $pfad = ">./ausgabe.txt";
 
# Die Datei wird geöffnet, der Dateistream SCHREIBEN wird erstellt
open(SCHREIBEN, $pfad);
# Wir übermitteln dem Dateistream einen String, welcher in die Datei
# geschrieben wird
print SCHREIBEN "Dies ist eine Testausgabe.\n";
# Der Dateistream SCHREIBEN wird geschlossen
close(SCHREIBEN);

Mit diesem Skript wurde nun eine Datei namens "ausgabe.txt" erstellt und Inhalt dieser ist "Dies ist eine Testausgabe". Mit jedem Aufruf des Skripts wird der Inhalt der Datei überschrieben. Da dies nicht immer wünschenswert ist (z.B. bei Logdateien), kann durch eine kleine Veränderung bewirkt werden, dass neue Daten hinten angehängt werden.

#!/usr/bin/perl -w
use strict;
 
# Definition der Variablen
# Ein > bedeutet, dass die Datei überschrieben wird
# Zwei > (also >>) hängt neue Daten hinter die vorhandenen
my $pfad = ">>./ausgabe.txt";
 
# Die Datei wird geöffnet, der Dateistream SCHREIBEN wird erstellt
open(SCHREIBEN, $pfad);
# Wir übermitteln dem Dateistream einen String, welcher in die Datei
# geschrieben wird
print SCHREIBEN "Dies ist eine Testausgabe.\n";
# Der Dateistream SCHREIBEN wird geschlossen
close(SCHREIBEN);