Code

my $datei = "beispiel.txt";
if (-e $datei) {
    print "Die Datei '$datei' existiert.\n";
} else {
    print "Die Datei '$datei' existiert nicht.\n";
} 

Code

-e 

Code

-f 

Code

-d 

Code

-r 

Code

-w 

Code

-x 

Code

-z 

Code

-s 

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