Datei vorhanden?

[myuser123]

Hallo zusammen,

ich möchte überprüfen ob in das Verzeichnis C:\temp
.TIF-Dateien oder .PDF-Dateien vorhanden sind.
Mit diesem Code geht leider nicht.


# !/bin/perl -w


$dir = "C:\\temp";

if ((-e "$dir\\*.tif") || (-e "$dir\\*.pdf))
{
print "Tif-files or Pdf-files available\n";
exit;
}else{
print "Tif-files or Pdf-files not available\n";
exit;
}

Kann mir bitte jemand helfen?
Danke in Voraus.

[jan61]

Moin,

das geht deshalb nicht, weil Perl nicht automatisch c:\temp\*.tif expandiert, das ist eine Shell-Eigenschaft (Dateinamen-Globbing). Außerdem funktioniert eine Abfrage -e "Ausdruck" nur dann, wenn da tatsächlich genau eine Datei in Ausdruck steht.

Du kannst so vorgehen (ungetestet):


my @tiffs = glob "$dir\\*.tif"
my @pdfs = glob "$dir\\*.pdf"
if ($#tiffs >= 0 || $#pdfs >= 0); then
print "TIFF or PDF files are available\n";
}
else {
print "no TIFF or PDF files are available\n";
}
Jan