Abrufen der Liste der Unterverzeichnisse (nur oberste Ebene) in einem Verzeichnis mit Perl

7

Ich möchte ein Perl-Skript ausführen, um nur die Unterverzeichnisse in einem Verzeichnis zu finden. Ich möchte nicht das "." Und kehrte zurück.

Das Programm, das ich verwenden möchte, sieht so aus:

%Vor%

Die Ausgabe von diesem hat jedoch das "." und "..". Wie schließe ich sie von der Liste aus?

    
Sundar 22.04.2011, 02:55
quelle

4 Antworten

12

Wenn Sie die Verzeichnisse in einem Array sammeln möchten:

%Vor%

Wenn Sie wirklich nur die Verzeichnisse drucken möchten, können Sie Folgendes tun:

%Vor%     
Sam Choukri 22.04.2011 03:17
quelle
8
%Vor%

Auch das Modul File :: Find :: Rule macht eine sehr nette Schnittstelle für diese Art von Sache.

%Vor%     
SymKat 22.04.2011 06:36
quelle
4

Ändern Sie einfach Ihre Prüfung, um zu sehen, wenn $ name gleich 'ist. oder '..' und überspringe den Eintrag.

    
ewh 22.04.2011 03:00
quelle
1

File :: Slurp read_dir schließt automatisch die speziellen Punktverzeichnisse (. und ..) aus. für dich. Du musst sie nicht explizit loswerden. Es führt auch eine Überprüfung beim Öffnen Ihres Verzeichnisses durch:

%Vor%     
toolic 22.04.2011 13:17
quelle

Tags und Links