[Perl] Eine leere Textdatei erstellen

[Perl] - Eine leere Textdatei erstellen - Druckversion

+- Joopi (https://forum.hermann-splitthoff.de)
+-- Forum: Wissenswertes (https://forum.hermann-splitthoff.de/forumdisplay.php?fid=1)
+--- Forum: Programmieren (https://forum.hermann-splitthoff.de/forumdisplay.php?fid=6)
+--- Thema: [Perl] - Eine leere Textdatei erstellen (/showthread.php?tid=1330)

Eine leere Textdatei erstellen - Joopi - 16-11-2024

Wie wird in Perl eine leere Textdatei erstellt?

Code:
my $datei = "leere_datei.txt";

# Datei im Schreibmodus öffnen

open(my $fh, '>', $datei) or die "Kann die Datei nicht erstellen: $!";

# Datei schließen

close($fh);

print "Die Datei '$datei' wurde erstellt.\n";

Erklärung:

Code:
open(my $fh, '>', $datei):

Öffnet die Datei $datei im Schreibmodus (>).
Wenn die Datei nicht existiert, wird sie erstellt.
Wenn die Datei existiert, wird ihr Inhalt gelöscht.

Code:
close($fh):

Schließt den Datei-Handle, um sicherzustellen, dass die Datei korrekt gespeichert wird.
or die "...":

Gibt eine Fehlermeldung aus und beendet das Skript, falls das Öffnen der Datei fehlschlägt (z. B. aufgrund von fehlenden Schreibrechten).

Alternative Methode: Mit touch
Falls du das Modul File::Touch verwenden möchtest, kannst du eine leere Datei ähnlich wie mit dem Linux-Befehl touch erstellen:

Code:
use File::Touch;

my $datei = "leere_datei.txt";

touch($datei);

print "Die Datei '$datei' wurde erstellt.\n";

Installation von File::Touch:
Falls das Modul noch nicht installiert ist, kannst du es über CPAN installieren:

Code:
cpan File::Touch