2013-12-18 1 views
0

이것은 파일을 처리하는 코드입니다. 내 드라이브에 파일이 있습니다.Perl에서 항상 파일을 찾을 수 없음 오류가 발생했습니다.

하지만 항상 파일을 찾을 수 없습니다. 올바른 경로를 제공해야합니까? 또는 코드가 여기에 새 파일을 생성합니까?

왜이 오류가 발생합니까?

파일을 특정 경로에 저장합니까?

아무 것도 언급하지 않거나 코드에서 무엇을 놓쳤습니까?

#open FH , ">>JEEVA.csv" or die "File not found"; 
#print FH $res1; 
#close FH; 
+5

현재 디렉토리에 쓸 수있는 권한이 있습니까? 또한 오류 메시지를 하드 코딩하지 않으려 고합니다. '$!'변수를 포함 시키길 원할 것입니다 :'또는 die "JEEVA.csv를 추가하기 위해 열 수 없습니다 : $!";'그렇다면 파일은 존재하지 않는다면 생성되어야합니다. – TLP

+0

일반적으로 말하자면, 질문을 게시 한 다음 응답하지 않는 것이 바람직하지 않습니다. 사람들이 귀하의 문제에 참여하는 것을 방해 할뿐만 아니라 귀하의 대답을 덜 질적으로 만듭니다. – TLP

+0

동일한 디렉토리에있는 다른 파일에 액세스 할 수 있습니다. 쓰기 권한이있는 모든 파일 ... –

답변

0

가끔 환경 경로가 제대로 설정되지 않습니다. 그래서 PC를 다시 시작하십시오. 그런 다음 효과가있을 수 있습니다. 이것이 작동하지 않으면 다른 문제를 찾으려고합니다.

+0

예. 나는 코드가 작동하도록했다. 고맙습니다. –

+0

프로그램 실행 중에 파일이 열리는 경우가 있습니다. –

6

프로그램에 현재 디렉토리의 파일에 쓸 수있는 권한이 없을 수 있습니다. 이 파일을 열 수없는 이유가 설명하는 오류 메시지를 출력합니다

open FH, ">>JEEVA.csv" or die "could not write to JEEVA.csv: $!"; 
1
open(my $fh, ">>", "JEEVA.csv") or die "Cannot open JEEVA.csv: $!"; 
print $fh $res1; 
close $fh; 

는 FH에서 확인 이동합니다.

관련 문제