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

[Joopi]

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