[Perl] Eine leere Textdatei erstellen

[Joopi]

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