Tjekke om fil eller mappe?

jeg er helt sikker på at File pakken har den ønskede funktionalitet

$navn = 'mappe_eller_filnavn';

if (-d $navn) {
  # mappe
}
else {
  #fil
}

Mvh
Jesper Naur

jesper> Kan ikke hlet få dit eksempel til at virke. Scriptet genkender kun "mapperne" "." og "..", mens alle andre mapper bliver behandlet som filer.

Hvad betyder (-d $var)?

Operationen -d tester om et filnavn er en mappe (-d for directory), så det kan ikke gøres simplere, der er også en -f der tester om det er en fil. Jeg fatter nu ikke hvorfor dit ikke virker, kan du ikke vise din kode der løber igennem @liste?

Her er koden jeg benytter:

opendir(MAPPE, "$dt");
@indhold = readdir (MAPPE);
foreach $linie (@indhold) {
    if (-d $linie) {
          print "Mappe: $linie\n";
    }
    else {
          print "Fil: $linie\n";
    }

}
closedir(MAPPE);

Hvis jeg kører sciptet med"/" som "mappe", virker det fint.

Hvad har du så i $dt når det ikke virker?

f.eks. /tmp/script/

Hvis du alligevel har mappenavnet i variablen $dt er det da unødvendigt med gåseøjne omkring, har du prøvet

opendir(MAPPE, $dt);

?

opendir(MAPPE, $dt); gjorde dessværre ingen forskel.

Hvis du ikke 'står' i den mappe, du gennemløber, er du nødt til at foranstille hvert filnavn med mappenavnet, ellers kan den ikke finde filerne, altså omtrent:

opendir(MAPPE, "$dt");
@indhold = readdir (MAPPE);
foreach $linie (@indhold) {
    $fuldtnavn = $dt . $linie;
    if (-d $fuldtnavn) {
          print "Mappe: $linie\n";
    }
    else {
          print "Fil: $linie\n";
    }

}

Nu virker det. Mange tak for hjælpen