[Perl] File Test Operator für Dateien und Ordner

[Perl] - File Test Operator für Dateien und Ordner - 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] - File Test Operator für Dateien und Ordner (/showthread.php?tid=1328)

File Test Operator für Dateien und Ordner - Joopi - 16-11-2024

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

Code:
-e

Existiert die Datei?

Code:
-f

Ist es eine reguläre Datei?

Code:
-d

Ist es ein Verzeichnis?

Code:
-r

Ist die Datei lesbar?

Code:
-w

Ist die Datei schreibbar?

Code:
-x

Ist die Datei ausführbar?

Code:
-z

Ist die Datei leer?

Code:
-s

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

}