Quelles sont les raisons de préférer glob sur readdir (ou vice-versa) en Perl?

Cette question est un spin-off de cette une. Un peu d'histoire: lorsque j'ai appris Perl, j'ai toujours utilisé glob plutôt que opendir + readdir parce que je l'ai trouvé plus facile. Puis, plus tard divers postes et des lectures suggéré que glob était mauvais, et maintenant j'ai à peu près toujours utiliser readdir.

Après réflexion sur cette dernière question j'ai réalisé que mes raisons pour l'un ou l'autre choix peuvent être superposés. Donc, je vais exposer le pour et le contre, et j'espère que les plus expérimentés Perl gens peuvent carillon et de clarifier. La question en un mot est il existe des raisons impérieuses de préférer glob à readdir ou readdir à glob (dans l'un ou dans tous les cas)?

glob pour:

  1. Pas de fichiers de configuration utilisateur (sauf si vous demandez pour eux)
  2. Ordre des éléments est garanti
  3. Pas besoin de préfixer le nom du répertoire sur les éléments manuellement
  4. Meilleur nom (allez - glob contre readdir est pas un concours, si nous sommes en juger par les noms seuls)

  5. (À partir de ysth réponse; cf. glob contre 4 ci-dessous) Peut retourner inexistante noms de fichiers:

    @deck = glob "{A,K,Q,J,10,9,8,7,6,5,4,3,2}{\x{2660},\x{2665},\x{2666},\x{2663}}";

glob inconvénients:

  1. Les anciennes versions sont tout simplement cassé (mais des "anciens" signifie avant 5.6, je crois, et franchement si vous êtes à l'aide de pré Perl 5.6, vous avez plus de problèmes)
  2. Appels stat à chaque fois (c'est à dire, inutile d'utiliser des stat dans la plupart des cas).
  3. Des problèmes avec les espaces dans les noms de répertoire (est-ce toujours le cas?)

  4. (De brian réponse) Peut retourner les noms de fichiers qui n'existent pas:

    $ perl -le 'print glob "{ab}{cd}"'

readdir pour:

  1. (De brian réponse) opendir renvoie un descripteur de fichier que vous pouvez passer autour dans votre programme (et réutiliser), mais glob retourne simplement une liste
  2. (De brian réponse) readdir est un itérateur et fournit des fonctions de rewinddir, seekdir, telldir
  3. Plus vite? (Pure supposition basée sur certaines glob's caractéristiques à partir de ci-dessus. Je ne suis pas vraiment inquiet à propos de ce niveau d'optimisation de toute façon, mais c'est théorique pro.)
  4. Moins sujettes à bord de cas de bugs que glob?
  5. Lit tout (dotfiles trop) par défaut (c'est aussi un con)
  6. Peut vous convaincre de ne pas le nom d'un fichier 0 (un con aussi - voir sa réponse)
  7. Quelqu'un? Bueller? Bueller?

readdir inconvénients:

  1. Si vous ne vous souvenez pas d'ajouter le nom de répertoire, vous sera obtenir bits lorsque vous essayez de faire filetests ou copier des éléments ou modifier des éléments ou...
  2. Si vous ne vous souvenez pas de grep la . et .. éléments, vous sera obtenir bits lorsque vous comptez les éléments, ou d'essayer de marcher de façon récursive en bas de l'arborescence de fichiers ou de...
  3. Ai-je mentionné les préfixant le nom du répertoire? (Une note, mais mon tout premier post du Perl Débutants de la liste de courrier était le classique, "Pourquoi est-ce code impliquant filetests fonctionne pas de temps en temps?" problème lié à cette chasse aux sorcières. Apparemment, je suis toujours amer.)
  4. Articles sont retournés dans aucun ordre particulier. Cela signifie que vous devrez souvent n'oubliez pas de les trier, d'une certaine manière. (Ce pourrait être un pro si cela signifie plus de vitesse, et si cela signifie que vous avez réellement pense sur la façon et si vous avez besoin de trier les éléments.) Modifier: Terrifiant petit échantillon, mais sur un Mac readdir renvoie les éléments dans l'ordre alphabétique, insensible à la casse. Sur un système Debian et OpenBSD serveur, la commande est tout à fait aléatoire. J'ai testé le Mac avec Apple en Perl (5.8.8) et mon propre compilé 5.10.1. Le système Debian est 5.10.0, comme c'est la machine OpenBSD. Je me demande si c'est un problème de système de fichiers, plutôt que de Perl?
  5. Lit tout (dotfiles trop) par défaut (c'est aussi un pro)
  6. N'est pas forcément bien avec un fichier nommé 0 (voir les pros - voir sa réponse)
  • Sur mon Mac avec Perl 5.10.1, j'ai été en mesure de créer un répertoire avec un espace et glob retourné comme faisant partie de sa liste. J'ai même fait un nom de répertoire avec un saut de ligne dans et cela a fonctionné. 🙂
InformationsquelleAutor |
  1. 43

    Vous avez manqué la plus importante, la plus grande différence entre eux: glob vous donne une liste, mais opendir vous donne un répertoire de la poignée. Vous pouvez passer ce répertoire autour de la poignée pour laisser à d'autres objets ou à des sous-programmes de l'utiliser. Avec l'annuaire de la poignée, la sous-routine ou de l'objet n'est pas de savoir quelque chose au sujet d'où il vient, qui d'autre l'utilise, et ainsi de suite:

     sub use_any_dir_handle {
      my( $dh ) = @_;
      rewinddir $dh;
      ...do some filtering...
      return \@files;
      }

    Avec le dirhandle, vous avez une contrôlable itérateur où vous pouvez vous déplacer avec seekdir, mais avec glob vous venez de passer à l'élément suivant.

    Comme avec tout, les coûts et les avantages n'ont de sens que lorsqu'il est appliqué à un certain contexte. Ils n'existent pas en dehors d'un usage particulier. Vous avez une excellente liste de leurs différences, mais je ne voudrais pas qualifier ces différences sans savoir ce que vous essayez de faire avec eux.

    Quelques autres choses à retenir:

    • Vous pouvez implémenter votre propre glob avec opendir, mais pas l'inverse.

    • glob utilise sa propre syntaxe générique, et c'est tout ce que vous obtenez.

    • glob pouvez retourner les noms de fichiers qui n'existent pas:

      $ perl -le 'print glob "{ab}{cd}"'
    • Merci de m'aider à voir le point sur le descripteur de fichier rapport à la liste.
    • La liste par rapport dir poignée peut être important si le répertoire est large (a beaucoup de fichiers) ou si ça change (fichiers créés et supprimés) alors que le programme s'exécute.
    • +1 pour @Loadmaster -- à propos de la seule fois, j'ai remarqué glob v readdir, c'est quand j'ai beaucoup de fichiers (>10 000 habitants) dans la dir.
    • Il y a un contexte scalaire pour glob trop. Vous auriez le même problème si vous avez utilisé readdir à faire le grand liste de tous à la fois.
    • Ne pouvez-vous pas de surcharge glob() et lui donner une autre syntaxe générique (démontré en perldoc quelque part)?
    • Bien sûr, vous pouvez surcharge glob, mais pourquoi le feriez-vous? Si vous ne voulez pas l'utiliser, il suffit de faire votre propre sous-routine pour faire exactement ce dont vous avez besoin, tout en laissant le haut-seul.

    InformationsquelleAutor brian d foy
  2. 8

    glob avantages: Peut renvoyer "les noms de fichiers" qui n'existent pas:

    my @deck = List::Util::shuffle glob "{A,K,Q,J,10,9,8,7,6,5,4,3,2}{\x{2660},\x{2665},\x{2666},\x{2663}}";
while (my @hand = splice @deck,0,13) {
    say join ",", @hand;
}
__END__
6♥,8♠,7♠,Q♠,K♣,Q♦,A♣,3♦,6♦,5♥,10♣,Q♣,2♠
2♥,2♣,K♥,A♥,8♦,6♠,8♣,10♠,10♥,5♣,3♥,Q♥,K♦
5♠,5♦,J♣,J♥,J♦,9♠,2♦,8♥,9♣,4♥,10♦,6♣,3♠
3♣,A♦,K♠,4♦,7♣,4♣,A♠,4♠,7♥,J♠,9♥,7♦,9♦
    • Je vois que comme un con dans l'ensemble. C'est une manière très intelligente pour créer un jeu de cartes, mais je vais avoir un moment difficile penser à des cas plus graves où je voudrais pseudo-noms de fichiers (mais je peux imaginer beaucoup de cas où je ne veux pas d'un nom de fichier retourné qui n'existait pas).
    • il est à la fois un pro et con. Chaque fois que vous utilisez le {} syntaxe et souhaitez uniquement les fichiers existants, vous avez besoin de filtrer les résultats, mais c'est bien la peine de l'OMI. (Je sais je fais les choses comme cp -a dirname{,.orig} régulièrement.)
    • Il peut parfois être utile lorsque vous voulez créer les noms de fichiers. L'utilisation typique est le cas de la création d'une hiérarchie de répertoires. Par exemple, dans le shell que vous pourriez faire mkdir -p /home/{alice,bob,charlie}/{public_html,mail,docs}
    InformationsquelleAutor ysth
  3. 6

    Ici est un désavantage pour opendir et readdir.

    {
  open my $file, '>', 0;
  print {$file} 'Breaks while( readdir ){ ... }'
}
opendir my $dir, '.';

my $a = 0;
++$a for readdir $dir;
print $a, "\n";

rewinddir $dir;

my $b = 0;
++$b while readdir $dir;
print $b, "\n";

    Vous vous attendriez à ce code affiche le même nombre deux fois, mais ce n'est pas parce qu'il y a un fichier avec le nom de 0. Sur mon ordinateur, il imprime 251, et 188, testé avec Perl v5.10.0 et v5.10.1

    Ce problème également fait en sorte que cela imprime juste un tas de lignes vides, indépendamment de l'existence du fichier 0:

    use 5.10.0;
opendir my $dir, '.';

say while readdir $dir;

    Où, comme toujours, cela fonctionne très bien:

    use 5.10.0;
my $a = 0;
++$a for glob '*';
say $a;

my $b = 0;
++$b while glob '*';
say $b;

say for glob '*';
say while glob '*';

    Je fixe ces questions, et envoyé dans un patch qui fait en Perl v5.11.2, de sorte que cela fonctionne correctement avec Perl v5.12.0 d'où elle sort.

    Mon fix convertit ce:

    while( readdir $dir ){ ... }

    dans cette:

    while( defined( $_ = readdir $dir ){ ...}

    Qui fait que cela fonctionne de la même manière que read a travaillé sur les fichiers. En fait c'est le même bout de code, j'ai juste ajouté un autre élément à la correspondante if consolidés.

    • C'est un bon cas de bord pour en être conscient, mais je ne suis pas sûr de savoir comment beaucoup de sympathie que j'ai pour les gens qui créer des noms de fichiers comme 0. Une fois que vous allez dans cette voie, c'est un petit pas pour un fichier nommé " avez-vous vu les deux espaces au début de cette file?.txt. Still, I'll note it in the readdir` cons.
    • La même solution est d'aller dans 5.18 pour each.
    InformationsquelleAutor Brad Gilbert
  4. 5

    glob le rend facile à lire tous les sous-répertoires d'un donné fixe profondeur, comme dans glob "*/*/*". J'ai trouvé cette pratique à plusieurs reprises.

    InformationsquelleAutor itub
  5. 4

    Bien, vous avez assez bien le couvrir. Tout ce que la prise en compte, j'aurais tendance à utiliser glob quand je suis en jetant un rapide one-off script et son comportement est exactement ce que je veux, et l'utilisation opendir et readdir dans la continuité de la production de code ou de bibliothèques où je peux prendre mon temps et plus claire, plus propre code est utile.

    InformationsquelleAutor chaos
  6. 3

    Pour les petits, des choses simples, je préfère glob. Juste l'autre jour, je l'ai utilisé et à une vingtaine de ligne de script perl pour modifier le balisage d'une grande partie de ma bibliothèque de musique. glob, cependant, a un joli nom étrange. Glob? Ce n'est pas du tout intuitif, dans la mesure où le nom va.

    Mon plus grand raccrocher avec readdir est qu'il traite d'un répertoire dans un sens, c'est un peu étrange pour la plupart des gens. Généralement, les programmeurs ne pense pas que d'un répertoire sous forme d'un flux, qu'ils pensent comme d'un outil, ou une liste, qui glob fournit. Le nom est mieux, la fonctionnalité est mieux, mais l'interface laisse encore à désirer.

    • Les goûts varient, mais j'ai trouver readdir un peu bouché (comme un nom) et glob juste au sujet de droit. Puis de nouveau, j'aime Ruby splat opérateur (un nom et un autre) donc je suppose que je suis bizarre.
    • Je suis certainement d'accord que glob est un grand nom pour lui...je souhaite juste qu'il était plus intuitif 🙂
    InformationsquelleAutor Robert P
  7. 2

    Qui a une liste assez complète. readdir (et readdir + grep) a moins de frais généraux que glob et ce qui est un plus pour readdir si vous avez besoin d'analyser des tas et des tas de répertoires.

    InformationsquelleAutor mob
  8. 2

    glob pour:

    3) Pas besoin d'ajouter le nom du répertoire sur les éléments manuellement

    Exception:

    say for glob "*";

--output:--
1perl.pl
2perl.pl
2perl.pl.bak
3perl.pl
3perl.pl.bak
4perl.pl
data.txt
data1.txt
data2.txt
data2.txt.out

    Aussi loin que je peux dire, la règle pour glob est: vous devez fournir un chemin d'accès complet au répertoire afin d'obtenir le meilleur des chemins. Le Perl docs semblent ne pas mentionner que, ni l'un des postes ici.

    Qui signifie que glob peut être utilisé à la place de readdir quand vous voulez juste les noms de fichiers (plutôt que par des chemins), et vous ne voulez pas les fichiers cachés retourné, c'est à dire celles commençant par un '.'. Par exemple, 

    chdir ("../..");  
say for glob("*");
    InformationsquelleAutor
  9. 2

    Sur une note similaire, File::Slurp a une fonction appelée read_dir.

    Depuis que j'utilise File::Slurp's d'autres fonctions beaucoup dans mes scripts, read_dir est également devenu une habitude.

    Il a également des options suivantes: err_mode, prefix, et keep_dot_dot.

    InformationsquelleAutor
  10. 1

    Tout d'abord, faire un peu de lecture. Chapitre 9.6. de la Perl Livre De Recettes décrit le point que je veux obtenir de bien, un peu moins de la discussion tête de.

    Deuxièmement, de faire une recherche pour glob et dosglob dans votre répertoire Perl. Alors que de nombreuses sources différentes (les moyens d'obtenir la liste des fichiers) peuvent être utilisés, la raison pour laquelle je vous dosglob est que si vous arrive d'être sur une plate-forme Windows (et à l'aide de la dosglob solution), il est fait à l'aide opendir/readdir/closedir. D'autres versions en utilisant les commandes du shell ou précompilés OS des exécutables spécifiques.

    Si vous savez que vous êtes cibler une plate-forme spécifique, vous pouvez utiliser cette information à votre avantage. Juste pour la référence, j'ai cherché dans cette sur Strawberry Perl Portable edition 5.12.2, donc les choses peuvent être légèrement différents sur les nouveaux ou originaux versions de Perl.

    InformationsquelleAutor