Perl-中的-readdir

具体可查看 perlfunc 中的内容.

在列表上下文中返回目录下的全部内容, 在标量上下文可以通过 while 循环来获取全部内容:

while (my $content = readdir $dh) {
    print $content;
}