zurückInhaltvorwärts Perl Einführung: Arbeiten mit Verzeichnissen

10.2 Arbeiten mit Verzeichnissen

Auch hier beginnen wir mit einem kleinen Perl Skript:

opendir(PFAD, "c:\\winnt") || die "Konnte Verzeichnis nicht öffnen.";
@inhalt=readdir(PFAD);
closedir(PFAD) || die "Konnte Verzeichnis nicht schließen.";

foreach $element (@inhalt) {
  print "$element\n";
}

Dieses Skript gibt den Verzeichnisinhalt des Laufwerks c:\winnt aus. Wie schon beim Umgang mit den Dateien muß auch ein Verzeichnis zunächst geöffnet werden, damit darauf über ein Handle (im Beispiel PFAD) zugegriffen werden kann. Der Verzeichnisinhalt wird über die Funktion readdir ausgelesen und im Beispiel in das Array @inhalt geschrieben. Die Ausgabe des Arrays muß hier wohl nicht weiter besprochen werden.

Man kann aus einem Perl Skript heraus, genau wie audf der Kommandozeile, natürlich auch das Arbeitsverzeichnis wechseln. Hierzu dient der Befehl chdir, der als Argument einen Pfad oder einen Verzeichnisnamen erwartet.
Beispiele:

chdir("c:\\winnt");      # Setzt das Arbeitsverzeichnis auf c:\winnt
chdir("system32");       # wechselt in das Unterverzeichnis system32
                         # Arbeitsverzeichnis ist jetzt also
                         # C:\winnt\system32
Perl Einführung: Arbeiten mit Verzeichnissen zurückInhaltvorwärts