Perl의 -f 명령이 내 시스템에서 작동하지 않습니다.

Question

저는 Windows 7을 가지고 있는데, 디렉토리를 열고 디렉토리의 모든 파일 이름을 인쇄하려고하지만 시스템에서 -f 명령이 작동하지 않습니다. 프로그램은 다음과 같습니다 :

enter code here 

$directory = '\Users'; 
opendir(DIR, $directory) or die $!; 
while ($file = readdir(DIR)){ 
    if(-f $file){ 
     print "$file\n"; 
    } 
} 
closedir(DIR); 

아무도 나에게 무엇이 잘못 됐는지 말해 줄 수 있습니까? 미리 감사드립니다.

Answer 1

파일의 경로가 누락되었습니다.

if(-f "$directory/$file") { 

Answer 2

당신은 전체 경로 이름으로 테스트해야합니다 :

그것은이 같은해야한다. $file에는 파일 이름 만 들어 있습니다.

if (-f "$directory\\$file"){ 
    print "$file\n"; 
}