Où dans la documentation est-il dit que pendant que les tests readdir pour la définition?

Question

Voir aussi: How is "0" result from readdir not false in a while condition?. (pas un doublon, tout étroitement lié.)

---

Où dans la documentation-t-il dire que si les tests READDIR pour définition des modèles? Par exemple, ce code

#!/usr/bin/perl 

use strict; 
use warnings; 

opendir my $dir, "/tmp" or die "$!"; 

while (my $file = readdir($dir)) { 
     print "$file\n"; 
} 
closedir $dir; 

lorsqu'il est exécuté par B::Deparse rendements:

use warnings; 
use strict 'refs'; 
die "$!" unless opendir my $dir, '/tmp'; 
while (defined(my $file = readdir $dir)) { 
    do { 
     print "$file\n" 
    }; 
} 
z.pl syntax OK 

je me attends à ce comportement, mais je ne peux pas trouver où il est spécifié. Dans le I/O Operators section of perlop il dit

Les lignes suivantes sont équivalentes:

        while (defined($_ = <STDIN>)) { print; }
        while ($_ = <STDIN>) { print; }
        while (<STDIN>) { print; }
        for (;<STDIN>;) { print; }
        print while defined($_ = <STDIN>);
        print while ($_ = <STDIN>);
        print while <STDIN>;

Mais il n'y a aucune mention de readdir.

Answer 1

Vous avez raison de dire que ce n'est pas documenté. J'ai regardé plutôt dur, et je ne trouve aucune référence à ce que ce soit spécial non plus. Il est spécial, que vous avez découvert, et comme le démontre:

$ perl -MO=Deparse \ 
     -E'opendir(my $dir, "."); while($_ = readdir($dir)) { say; }' 

BEGIN { 
    $^H{'feature_say'} = q(1); 
    $^H{'feature_state'} = q(1); 
    $^H{'feature_switch'} = q(1); 
} 
opendir my $dir, '.'; 
while (defined($_ = readdir $dir)) { 
    say $_; 
} 
-e syntax OK 

En regardant à travers la source, Perl_newWHILEOP dans op.c a spécifiquement des tests pour readdir, glob, readline et each ... Hmm, faisons creuser, et voir quand readdir a été ajouté.

Un peu de creuser avec git révèle que c'est ainsi depuis au moins 1998, avec Gurusamy Sarathy apportant la modification pertinente dans la validation 55d729e4. Bien que je ne sois pas allé voir ce qui s'est passé, je parierais que ce serait au moins 5.6.0. Je ne trouve aucune mention de cela dans les deltas.

pourrait être être mentionné dans la troisième édition camel book, mais je n'ai pas vérifié pour le savoir.

Je pense qu'un patch ici (ou même juste une note à p5p) serait certainement apprécié.

Paul

Answer 2

Je suis désolé que je ne pensais pas mettre à jour les pages que vous vous attendiez à trouver cette information.

J'ai ajouté une note à la section readdir de perlfunc.

À partir de Perl 5.12, vous pouvez utiliser un readdir nu dans une boucle while, qui mis $_ à chaque itération.

opendir(my $dh, $some_dir) || die; 
while(readdir $dh) { 
    print "$some_dir/$_\n"; 
} 
closedir $dh; 

Il ne dit pas explicitement qu'il vérifie si définition des modèles.

(Je voudrais noter que l'ajout de cette fonctionnalité a été mon premier patch pour le noyau Perl.)