while( readdir $dir ){} , while( readline $file ){}.
perl -MO=Deparse -e'while( readline $f ){}'
while (defined($_ = <$f>)) {
();
}
<$f> readline $f
Perl v5.11.2 while( readdir $dir ){}
perl-5.10 -MO=Deparse -e'while( readdir $d ){}'
while (readdir $d) {
();
}
, , 0. , .
5.11.2 Perl , while( readline $file ){...}.
perl-5.12.0 -MO=Deparse -e'while( readdir $d ){}'
while (defined($_ = readdir $d)) {
();
}
, I , . , - Perl. , , Perl.