| Hallo, Gast |
Du musst dich registrieren bevor du auf unserer Seite Beiträge schreiben kannst.
|
| Foren-Statistiken |
» Mitglieder: 1
» Neuestes Mitglied: Joopi
» Foren-Themen: 528
» Foren-Beiträge: 759
Komplettstatistiken
|
| Benutzer Online |
Momentan sind 11 Benutzer online
» 0 Mitglieder
» 5 Gäste
AhrefsBot, Bing, Crawl, DotBot, Owler, bot
|
| Aktive Themen |
Tuesday - 09:00 CDT: Not ...
Forum: Wetter in Little Rock
Letzter Beitrag: Joopi
09-09-2025, 05:53
» Antworten: 0
» Ansichten: 20
|
Thursday - 13:00 CDT: Not...
Forum: Wetter in Little Rock
Letzter Beitrag: Joopi
04-09-2025, 09:51
» Antworten: 0
» Ansichten: 37
|
Friday - 10:00 CDT: Not a...
Forum: Wetter in Little Rock
Letzter Beitrag: Joopi
29-08-2025, 06:21
» Antworten: 0
» Ansichten: 48
|
Thursday - 13:00 CDT: Thu...
Forum: Wetter in Little Rock
Letzter Beitrag: Joopi
28-08-2025, 09:59
» Antworten: 0
» Ansichten: 45
|
Wednesday - 19:00 CDT: No...
Forum: Wetter in Little Rock
Letzter Beitrag: Joopi
28-08-2025, 04:25
» Antworten: 0
» Ansichten: 48
|
Wednesday - 08:00 CDT: No...
Forum: Wetter in Little Rock
Letzter Beitrag: Joopi
27-08-2025, 05:23
» Antworten: 0
» Ansichten: 45
|
Tuesday - 01:00 CDT: Not ...
Forum: Wetter in Little Rock
Letzter Beitrag: Joopi
26-08-2025, 09:45
» Antworten: 0
» Ansichten: 46
|
Monday - 00:00 CDT: Not a...
Forum: Wetter in Little Rock
Letzter Beitrag: Joopi
25-08-2025, 08:40
» Antworten: 0
» Ansichten: 48
|
Saturday - 21:00 CDT: Not...
Forum: Wetter in Little Rock
Letzter Beitrag: Joopi
24-08-2025, 06:07
» Antworten: 0
» Ansichten: 52
|
Sunday - 10:00 CDT: Not a...
Forum: Wetter in Little Rock
Letzter Beitrag: Joopi
17-08-2025, 06:43
» Antworten: 0
» Ansichten: 60
|
|
|
Eine leere Textdatei erstellen |
|
Geschrieben von: Joopi - 16-11-2024, 11:29 - Forum: Programmieren
- Keine Antworten
|
 |
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.
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:
|
|
|
|
File Test Operator für Dateien und Ordner |
|
Geschrieben von: Joopi - 16-11-2024, 11:23 - Forum: Programmieren
- Keine Antworten
|
|
Einfache Prüfung, ob eine Datei existiert.
Code: my $datei = "beispiel.txt";
if (-e $datei) {
print "Die Datei '$datei' existiert.\n";
} else {
print "Die Datei '$datei' existiert nicht.\n";
}
Zusätzliche Datei-Prüfungen
Perl bietet viele weitere File Test Operators, um Dateien und Verzeichnisse zu überprüfen. Hier sind einige nützliche Operatoren:
Operator
Beschreibung
Existiert die Datei?
Ist es eine reguläre Datei?
Ist es ein Verzeichnis?
Ist die Datei lesbar?
Ist die Datei schreibbar?
Ist die Datei ausführbar?
Ist die Datei leer?
Gibt die Größe der Datei zurück.
Code: my $datei = "beispiel.txt";
if (-e $datei) {
print "Die Datei '$datei' existiert.\n";
if (-f $datei) {
print "Es ist eine reguläre Datei.\n";
} elsif (-d $datei) {
print "Es ist ein Verzeichnis.\n";
}
print "Die Datei ist " . (-s $datei) . " Bytes groß.\n" if -s $datei;
print "Die Datei ist lesbar.\n" if -r $datei;
print "Die Datei ist schreibbar.\n" if -w $datei;
print "Die Datei ist ausführbar.\n" if -x $datei;
} else {
print "Die Datei '$datei' existiert nicht.\n";
}
|
|
|
|
|
