In einem Projekt von mir war es notwendig, eine leere Textdatei zur Laufzeit des Skripts zu erstellen. Ich habe für diese Aufgabe zwei mögliche Varianten gelernt.

Variante 1

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"; 

Die open-Anweisung öffnet die Datei über die Variable $datei im Schreibmodus (>).
Der Schreibmodus wird durch die spitze Klammer hergestellt.
Wenn die Datei nicht existiert, wird sie erstellt.
Wenn die Datei existiert, wird ihr Inhalt gelöscht.

Variante 2

use File::Touch;

my $datei = "leere_datei.txt";
touch($datei);

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

Die zweite Variante ist etwas überschaubarer gestaltet, erfordert aber ein zusätzliches Modul. Sofern das Modul nicht vorhanden ist, kann es über CPAN nachinstalliert werden.

cpan File::Touch 

Wie CPAN auf einem Linux-Betriebssystem installiert wird, wird an anderer Stelle gezeigt.