Kết quả "0" từ readdir() không sai trong điều kiện thời gian như thế nào?

Question

Xem thêm: Where in the documentation does it say that while tests readdir for definedness?. (Không phải là một bản sao, chỉ cần liên quan chặt chẽ.)

---

Nhiều người đối xử với các vòng lặp bên dưới là thành ngữ:

while (defined(my $file = readdir($dir)) { 
    ... 
} 

thay vì:

while (my $file = readdir($dir)) { 
    ... 
} 

vì cho là với cái sau phiên bản nếu tên tập tin chỉ là "0" (số không) nó sẽ chấm dứt vòng lặp, trong khi nó trả về 'undef' khi không có tệp nào khác.

Tuy nhiên, tại một số điểm trong quá khứ thử nghiệm này cho defined() dừng là cần thiết - dường như có mã trường hợp đặc biệt cho phép phiên bản thứ hai hoạt động bất kể.

Tôi muốn biết cách hoạt động của tính năng này?

Tò mò, nếu tôi thay thế các cuộc gọi đến readdir() với một cuộc gọi đến foo() thay vì:

sub foo 
{ 
    my ($dir) = @_; 
    return readdir($dir); 
} 

while (my $file = foo($dir)) { 
    ... 
} 

sau đó mã không làm những gì tôi mong đợi, và chấm dứt vòng lặp khi một tập tin có tên là "0 " được tìm thấy.

(được kiểm tra bằng Perl 5.8.9 trên MacOS X 10.5.6)

Answer 1

Đó là điều kỳ diệu. Cụ thể trong khi phép thuật (được ghi trong perlsyn, perlop và có thể là những nơi khác mà tôi không nhớ). Perl cho phép bạn ký hiệu viết tắt nhất định. Nếu bạn muốn xem những gì Perl đang làm đằng sau lưng bạn, bạn có thể sử dụng B::Deparse. Đây là một tập tin có sử dụng vòng lặp tốc ký:

#!/usr/bin/perl 

use strict; 
use warnings; 

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

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

Nếu bạn chạy perl -MO=Deparse filename.pl bạn lấy mã Perl thấy:

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