perl이 파일 내용을 열 수 없습니다.

Question

디렉토리의 파일 내용을 열고 읽으려고했습니다. 내가 디렉토리에 액세스하고 내가 열고 file.please 도움

#usr/bin/perl 
    my $dir='d:\task'; 
    opendir DIR,$dir or die "cannot open directory"; 
    while (my $file = readdir(DIR)) 
    { 

    next if ($file =~ m/^\./); 
    print " $file \n"; 
    open(my $fh,'<',$file) or die "unable to open the $file "; 
    while(my $row=<$fh>) 
    { 
    chomp $row; 
    print "$row"; 
     } 
    } 

Answer 1

당신은 디렉토리의 맥락에서 파일 이름을보고있는 내부의 내용을 읽을 수 없습니다와 같은 오류를 얻고있다 files.but의 목록을 얻을 수 있습니다, 다른 디렉토리에서 코드를 실행하고있는 것입니다.

는 디렉토리 경로 씁니다 파일을 열려면

open (my $in, '<', "$dir/$file") or die "Cannot open file for input: $!\n";