while(readdir $dir){}
şimdi çok daha while(readline $file){}
gibi çalışır.
while (defined($_ = <$f>)) {
();
}
<$f>
perl -MO=Deparse -e'while(readline $f){}'
nasıl Perl versiyonları önce v5.11.2 için işleme edilmiş
readline $f
Bu aynıdır while(readdir $dir){}
perl-5.10 -MO=Deparse -e'while(readdir $d){}'
while (readdir $d) {
();
}
Yukarıda 0
adıyla bir dosya ya da dizin varsa düzgün çalışması için başarısız olur dikkati çekiyor. Bu kadar önemli değil, çünkü zaten işe yarar bir şey yapmıyor.
Perl sürümü 5.11.2 yılında bir yama daha
while(readline $file){...}
işlenmesi ile uyumlu hale getirdi belirtti yoktu.
perl-5.12.0 -MO=Deparse -e'while(readdir $d){}'
while (defined($_ = readdir $d)) {
();
}
beno yamayı sağlanan biri olduğunu belirtmek istiyorum
. Perl çekirdeğinde düzeltmeye çalıştığım ilk şey buydu. Bu yüzden yazdığım ilk yazıydı ve bu da Perl'e dönüştü.
Bu, topluluk wiki'si olmalıdır – Quentin
http://stackoverflow.com/questions/1512047/is-there-anything-exciting-in-perl-5-11 sayfasının olası kopyası – Ether
David Donward: Haklısınız. – hillu