为什么目录列表在我的 Windows 系统上不起作用？

Question

为什么下面的代码不起作用？

-d 和 -f 在我的 Windows 机器上不起作用。

use strict;
use warnings;

use Data::Dump qw/pp/;

my $path="C:/perl/workspace";
opendir ( DIR, $path ) || die "Error in opening dir $path\n";

my (@file,@dir);

while (my $filename=readdir(DIR)) {
    next if ($filename =~ m/^\./);
    if (-f $filename) {
        push(@file,$filename);
    } elsif (-d $filename){
        push(@dir,$filename);
    }
}

#pp \@file,\@dir;
print "@dir";

Answer 1

检查带有路径的文件，

if (-f "$path/$filename")

Answer 2

您应该在检查它是文件还是目录之前将 $path 添加到 $filename，因为 readdir 只返回没有路径的文件名。

 ...
 if (-f $path."/".$filename) {
    push(@file,$filename);
  } elsif (-d $path."/".$filename){
    push(@dir,$filename);
  }
 ...