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

당신은 readdir을 만 경로없이 파일 이름을 반환로 파일이나 디렉토리가 있는지 확인하기 전에 $ 파일 이름에 $ 경로를 추가해야합니다. "ELSIF"에 관한

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