Détecter répertoire vide avec Perl

Ce qui est une manière simple de tester si un dossier est vide en perl? -s,- z ne sont pas de travail.

Exemple:

#Ensure Apps directory exists on the test PC.
if ( ! -s $gAppsDir )
{ 
    die "\n$gAppsDir is not accessible or does not exist.\n"; 
}

#Ensure Apps directory exists on the test PC.
if ( ! -z $gAppsDir )
{ 
    die "\n$gAppsDir is not accessible or does not exist.\n"; 
}

Ces ci-dessus, ne fonctionnent pas correctement pour me dire que le dossier est vide. Merci!

Merci à tous! J'ai fini par utiliser:

sub is_folder_empty { my $dirname = shift; opendir(my $dh, $dirname) or die "Not a directory"; 
return scalar(grep { $_ ne "." && $_ ne ".." } readdir($dh)) == 0; }

OriginalL'auteur Christopher Peterson | 2010-12-20

  1. 22

    Un peu détaillées pour plus de clarté, mais:

    sub is_folder_empty {
    my $dirname = shift;
    opendir(my $dh, $dirname) or die "Not a directory";
    return scalar(grep { $_ ne "." && $_ ne ".." } readdir($dh)) == 0;
}

    Alors vous pouvez faire:

    if (is_folder_empty($your_dir)) {
    ....
}
    re "n'est Pas un répertoire": ou n'existe pas ou n'avez pas la permission, etc. que diriez - or die "$dirname: $!"
    Vous semblez confondre la "clarté" et la "brièveté" de. Aussi, touch dir/.... imbéciles de votre expression régulière.
    La clarté et la concision est bon. Cette solution permet de lire tous les noms de fichier dans le répertoire, alors qu'au plus trois entrées sont nécessaires ('.' et '..' probablement apparaître en premier, et le nom suivant indique que le répertoire n'est pas vide. La fixation de la défaites de clarté, bien que.
    Ne pas le répertoire de manipuler être fermé? closedir($dh)
    perl va fermer le descripteur de fichier une fois $dh est hors de portée, c'est à dire quand is_folder_empty retourne.

    OriginalL'auteur Brad Fitzpatrick

  2. 5

    À l'aide de grep { ! /^[.][.]?\z/} readdir $dir_h peut être problématique pour la performance dans le cas où la vérification est effectuée plusieurs fois, et à certains répertoires peuvent avoir de nombreux fichiers.

    Il serait préférable de court-circuit entre le moment où une entrée de répertoire autre que . ou .. est trouvé.

    Sur Windows XP avec ActiveState perl 5.10.1, ce qui semble être deux fois plus rapide que la grep approche sur mon $HOME avec 100 entrées:

    sub is_dir_empty {
    my ($dir) = @_;

    opendir my $h, $dir
        or die "Cannot open directory: '$dir': $!";

    while ( defined (my $entry = readdir $h) ) {
        return unless $entry =~ /^[.][.]?\z/;
    }

    return 1;
}
    J'ai été en espérant que quelqu'un post un List::Util::première réponse...
    défini List::Util::première { $_ !~ /^[.][.]?\z/ } readdir $h; l'inconvénient de cette solution est que l'on va lire l'ensemble des entrées du répertoire à la liste de la première. Cela peut être long pour les répertoires avec de nombreux membres.

    OriginalL'auteur Sinan Ünür

  3. 2

    Ou sans grepping ou des expressions régulières - ce qui exclut toute possibilité d'étranges noms de fichiers accidentellement obtenir bien que. Plus légèrement plus rapide est de mes tests.

    #!/usr/bin/perl
use strict;
use warnings;

sub is_dir_empty {
    return -1 if not -e $_[0];   # does not exist
    return -2 if not -d $_[0];   # in not a directory
    opendir my $dir, $_[0] or    # likely a permissions issue
        die "Can't opendir '".$_[0]."', because: $!\n";
    readdir $dir;
    readdir $dir;
    return 0 if( readdir $dir ); # 3rd times a charm
    return 1;
}

my @folders = qw( ./ ./empty ./hasonefile ./hastwofiles ./doesnotexist ./afile );
for my $folder ( @folders ) {
    print "Folder '$folder' ";
    my $rc = is_dir_empty( $folder );
    if( $rc == -1 ) {
        print "does not exist\n";
    } elsif( $rc == -2 ) {
        print "is not a directory\n";
    } elsif( !$rc ) {
        print "is not empty\n";
    } else {
        print "is empty\n";
    }
}

    Assez simple. Si vous obtenez trois réponses valides à partir d'un appel à readdir, alors vous savez il doit y avoir un fichier. Quel que soit le nom que le fichier a peut-être - ou l'ordre dans lequel les fichiers sont en cours de traitement. Aurait préféré quelque chose appelé "is_dir_used' que personnellement je n'aime pas le double négatif nom de la fonction et de la valeur de retour.

    Cela devrait être la solution retenue. C'est la seule solution qui n'a pas lu tout le contenu du répertoire et également ne s'applique pas regexes qui ne sont pas nécessaires (comme le prouve cette solution). Je suppose que les gens pourraient s'inquiéter, car ce bout de code est plus long que les autres, mais c'est seulement parce que cette solution montre aussi la bonne gestion des erreurs avec est un autre avantage, à mon avis.
    non, les tests pour les noms d'ignorer sont nécessaires. Pas tous les systèmes de fichiers ont un .. dans chaque répertoire, par exemple.
    N'est-ce pas le .. entrée d'une propriété de l'OS et non pas du système de fichiers? Ceux qui n'en ont pas?
    Une norme ISO est conforme ou compatible OS, doivent prendre en charge le '.' et '..' pour tout le montage du système de fichiers, et qui couvre à peu près tous les OS modernes, il est. J'ai vu et utilisé des systèmes qui ne prennent pas en charge ces - peut-être 25 ans, et aucun de ces systèmes de prise en charge Perl - de sorte que cette solution devrait être OK aujourd'hui.

    OriginalL'auteur Jim Black

  4. 1

    Il est également File::List sur le cpan. C'est exagéré ici, mais peut être pratique pour un peu plus complexe demandes aime bien tester si un répertoire est vide avec le sens qu'il contient uniquement les répertoires vides (c'est à dire: pas de fichiers).

    OriginalL'auteur kriss

  5. -1
    opendir(DIR,"DIR PATH") or die "Unable to open directory \"DIR PATH\" \n";
my @drList = readdir(DIR);
close(DIR);
if( grep(/\w/,@drList) ){ print "Not Empty\n" }
else { print "Empty\n" }
    Ceci ne fonctionnera pas sur les répertoires qui ne sont pas vides, mais contiennent des fichiers qui ne correspondent pas /\w/.

    OriginalL'auteur user1424034

  6. -1
      sub is_folder_empty {
        my $dirname = shift;
        my @files = File::Find::Rule->file()->name('*')->maxdepth(1)->in("$dirname");
        return $#files < 0;
    }
    Ceci ne fonctionnera pas pour les non vide des répertoires contenant des fichiers qui ne correspondent pas à *. Par exemple les fichiers qui commencent par un point.

    OriginalL'auteur Menaka Sankar

  7. -2

    Crédit à DevShed

    if (scalar <directory/*>) {print qq|File Exists\n|}

    Modifier

    Pour inclure les fichiers cachés: 

    @arr = <directory/* directory/.*>;
@arr = grep {!/^directory/[.]{1,2}$/} @arr;
if (@arr) { print qq|File or Directory Exists\n| }

    Lisez les commentaires car il y a eu de bons points. Malgré les points négatifs de cette réponse est reçue, elle est toujours correcte.

    bad bad. ne jamais utiliser glob dans un contexte scalaire, sauf si vous savez vraiment ce que vous faites. cette ligne, si elle est appelée à plusieurs reprises, sera de retour sur le cas une fois pour chaque chose dans le répertoire, puis retournera false une fois, puis recommencer.
    Je ne pense pas que c'est vrai. Je pense qu'il va s'arrêter au premier fichier trouvé, comme mentionné dans le forum, il est semblable à -e et équivalent à l'appel de w/o scalar, les deux vont s'arrêter au premier fichier trouvé. never use glob in scalar context unless you really know what you are doing à cet égard, il est parfaitement sûr. Ne pas faire quelque chose pour le bien de ne pas le faire est de mauvais conseils.
    essayez-la. le suivant va imprimer le Fichier Existe deux fois, pas trois fois: mkdir directory; touch directory/a; touch directory/b; perl -we'for(1..3){if (scalar <directory/*>) {print qq|File Exists\n|}}'
    une bonne façon de le faire serait if (()=<directory/*>) mais souffre encore le défaut de ne pas l'avoir remarqué comme les fichiers du répertoire/.foo
    ysth: c'est vrai et je ne l'ai jamais nié. Je suis d'accord aussi, vous devez savoir ce que vous faites, mais c'est un parfait moyen valable pour tester si un répertoire est vide (il ne vérifie pas les fichiers cachés comme vous l'avez mentionné). - votre exemple est pour une boucle, mais si vous n'avez $x=<directory/*>;$y=<directory/*>; puis $x et $y seraient tous les deux la même chose, la poignée est rappelé, dans le cas contraire (dans une boucle) la poignée est laissé ouvert et récupère la prochaine chose, donc au lieu de for de son mieux pour utiliser while - une fin de fichier sera atteint.

    OriginalL'auteur vol7ron