Nachfolgend sind einige der Standardfunktionen zum Bearbeiten von Verzeichnissen aufgeführt:
opendir DIRHANDLE, EXPR # Öffnen Sie das Verzeichnis. readdir DIRHANDLE # Lesen Sie das Verzeichnis. rewinddir DIRHANDLE # Positionieren Sie den Zeiger an den Anfang. telldir DIRHANDLE # Gibt die aktuelle Position des Verzeichnisses zurück. seendir DIRHANDLE, POS # Suchen Sie die für das Verzeichnis angegebene POS-Position. closeir DIRHANDLE # Schließen das Verzeichnis
Alle Dateien anzeigen
Alle Dateien im Verzeichnis anzeigen Im folgenden Beispiel wird der Glob-Operator verwendet, wie unten gezeigt:
Beispiel
#!/usr/bin/perl # Alle Dateien im Verzeichnis /tmp anzeigen $dir = " /tmp/* " ; my @files = glob ( $dir ) ; foreach ( @files ) { drucken $_ . " n " ; # Alle Dateien mit der Endung .c im Verzeichnis /tmp anzeigen $dir = " /tmp/*.c " ; @files = glob ( $dir ) ; foreach ( @files ) { drucken $_ . " n " ; # Alle versteckten Dateien anzeigen $dir = " /tmp/.* " ; @files = glob ( $dir ) ; foreach ( @files ) { drucken $_ . " n " ; # Alle Dateien in den Verzeichnissen /tmp und /home anzeigen $dir = " /tmp/* /home/* " ; @files = glob ( $dir ) ; foreach ( @files ) { drucken $_ . " n " ; Das folgende Beispiel listet alle Dateien im aktuellen Verzeichnis auf:
Beispiel
#!/usr/bin/perl opendir ( DIR , ' . ' ) oder sterben „ Verzeichnis kann nicht geöffnet
werden , $! “ ; ( $file = readdir DIR ) { drucken " $file n " ; geschlossenir DIR ; Wenn Sie alle Dateien mit der Endung .c im Verzeichnis /tmp anzeigen möchten, können Sie den folgenden Code verwenden:
Beispiel
#!/usr/bin/perl opendir ( DIR , ' . ' ) oder sterben „ Verzeichnis kann nicht geöffnet
werden , $! “ ; ( sort grep ( /^.*. c $/, readdir ( DIR ) ) ) { drucken " $_ n " ; geschlossenir DIR ; Erstellen Sie ein neues Verzeichnis
Wir können die mkdir -Funktion verwenden, um ein neues Verzeichnis zu erstellen. Sie müssen über ausreichende Berechtigungen zum Erstellen des Verzeichnisses verfügen, bevor Sie Folgendes ausführen:
Beispiel
#!/usr/bin/perl $dir = " /tmp/perl " ; # Erstellen Sie ein Perl-Verzeichnis unter dem /tmp-Verzeichnis mkdir ( $dir ) oder sterben „ $dir -Verzeichnis
kann nicht erstellt werden , $ ! “ ; „ Verzeichnis erfolgreich erstellt n “ ; Verzeichnis löschen
Wir können die Funktion rmdir verwenden, um ein Verzeichnis zu löschen. Für diesen Vorgang sind ausreichende Berechtigungen erforderlich. Außerdem muss das zu löschende Verzeichnis ein leeres Verzeichnis sein:
Beispiel
#!/usr/bin/perl $dir = " /tmp/perl " ; # Löschen Sie das Perl-Verzeichnis unter dem /tmp-Verzeichnis rmdir ( $dir ) oder sterben „ $dir -Verzeichnis
kann nicht gelöscht werden , $ ! “ ; „ Verzeichnis erfolgreich gelöscht n “ ; Verzeichnis wechseln
Wir können die Funktion chdir verwenden, um das aktuelle Verzeichnis zu wechseln. Für diesen Vorgang sind ausreichende Berechtigungen erforderlich. Beispiele sind wie folgt:
Beispiel
#!/usr/bin/perl $dir = " /home " ; # Verschieben Sie das aktuelle Verzeichnis in das /home-Verzeichnis chdir ( $dir ) oder sterben „ Verzeichnis kann nicht zu $dir , $! gewechselt werden
“ ; drucken „ Das Verzeichnis, in dem Sie sich derzeit befinden, ist $dir n “ ; Wenn Sie das obige Programm ausführen, lautet das Ausgabeergebnis:
Das Verzeichnis, in dem Sie sich derzeit befinden, ist /home
