Récupération de la liste des sous-répertoires (haut niveau) dans un répertoire à l'aide de Perl

Je voudrais lancer un script perl pour trouver uniquement les sous-répertoires dans un répertoire. Je ne voudrais pas avoir le "." et ".." est revenu.

Le programme que je suis en train d'utiliser ressemble à ceci:

use warnings;
use strict;

my $root = "mydirectoryname";

opendir my $dh, $root
  or die "$0: opendir: $!";

while (defined(my $name = readdir $dh)) {
  next unless -d "$root/$name";
  print "$name\n";
}

La sortie de cette cependant, est le "." et "..". Comment puis-je exclure de la liste?

OriginalL'auteur Sundar | 2011-04-22