Sahanya

Um eine vorher erstellte Datei einzulesen gibt man folgenden Code ein:

#!/usr/local/bin/perl -w

open (DATEILESEN,"test.txt") || die "geht nicht"; #öffnet dieses Datei oder Fehlermeldung
while (defined ($i = <DATEILESEN>)) { #gibt solange etwas aus bis kein Text mehr da ist
print $i }
close (DATEILESEN); #schließt die Datei wieder

Möchte man, dass der Text der test.txt in eine ander Datei (hier test1.txt) kopiert wird, geht das so:

#!/usr/bin/perl -w

open (DATEILESEN,"test.txt") || die "einlesen geht nicht";
open (DATEISCHREIBEN, "> test1.txt") || die "schreiben funktioniert nicht";
while (defined ($i = <DATEILESEN>)) {
print DATEISCHREIBEN $i } #schreibt das gefundene in die neue Datei
close (DATEILESEN);
close (DATEISCHREIBEN) || die "Fehler beim Schließen\n";

Möchte man, dass der Text in einer Datei nicht überschrieben wird, sondern drangehängt wird, muss man dem Dateinamen zwei > voranstellen.

Andere Perl-Themen