Wie lese ich alle Dateinamen eines Verzeichnisses aus?

        $dirname = ".";
        opendir (DIR, $dirname);
        @dir = readdir(DIR);
        closedir;
        

        $dirname= ".";
        opendir (DIR, $dirname);
        while ($file = readdir (DIR)){
        #einzelne Dateiverarbeitung
        }
        closedir;
        

1. Das Öffnen des Zielverzeichnisses könnte unmöglich sein (nicht existent, nicht die nötigen Rechte etc.) dies ließe sich über den Verbund mit or die lösen.

           opendir(DH, $dname) or die "Kann Verzeichnis $dname nicht oeffnen";
           

2. Jedoch läßt sich an Hand dieser Fehlermeldung unter Umständen das Problem nur schwer analysieren da als Verzeichnis angaben auf relative Pfad angaben zulässig sind. Hierbei hilft der Einsatz der Funktion cwd des Moduls Cwd. Diese Funktion liefer uns das aktuelle Verzeichnis zurück von dem aus alle relativen Pfadangaben bei opendir betrachtet werden müssen.

3. Kann readdir einen Fehler liefern?
   Eigentlich nicht, da jedes Verzeichnis mindesten die Verzeichniseinträge "." und ".." enthält.

4. Kann closedir ein Fehler liefern?
   Da wir in diesem Fall nur lesend aktiv sind, sind hier keine Fehler zu erwarten .

        #fuer Funktion cwd
        use Cwd;

        #aktuelles Arbeitsverzeichnis
        my $curdir = cwd;
        #zu durchsuchendes Verzeichnis (auch relative Pfadangaben sind moeglich)
        my $dname = ".";

        #Oeffnen des Verzeichnisses ueber DirectoryHandle
        opendir(DH, $dname) or die "Kann Verzeichnis $dname nicht oeffnen (aktuelles Verzeichnis ist $curdir): $!\n";
        #Einlesen des kompletten Verzeichnisinhaltes in Array
        my @dir = readdir(DH);
        #Schliessen des Verzeichnisses
        closedir(DH);

        #zeilenweises Ausgeben des Verzeichnisinhaltes
        print join("\n", @dir);
        

Ergänzungen, Kommentare

       ---### Main.??? - 14 Jul 2003 - Betreff