[Perl] File 생성,읽기 File 만들기, File Open

Perl에서 파일을 만드는 방법에 대해서 알아보겠습니다.

 

내용 요약

1. 만들어져 있는 파일 Open -> open (File, "file_test.txt") 2. 파일 생성 및 파일 Open -> open (File, ">file_test.txt") 3. 파일 생성 시, 에러메세지 출력 -> open (File, ">file_test.txt") || die ("Error - Can't open file_test.txt")

 

File Open

use strict; use warnings; use Time::Piece; open (File, ">file_test.txt"); printf File"\nfile_test - test!!\n"; close(File);

위에 메세지를 작성한 후, cmd창에서 실행 시, file_test.txt 파일이 생성됩니다.

open (File, ">file_test.txt"); 에서 >가 없으면 파일을 생성하지 못하고, 에러가 나옵니다.

open (File, "file_test.txt"); 로 사용 시, file_test.txt 파일이 생성되어 있지 않으면 에러가 발생합니다.

 

 

아래와 같이 open (File, "file_test.txt"); 로 사용 시, file_test.txt 파일이 생성되어 있지 않으면 에러가 발생합니다.

 

File Open 시 에러메세지 추가

use strict; use warnings; use Time::Piece; open (File, "file_test.txt") || die ("Error - Can't open file_test.txt"); printf File"\nfile_test - test!!\n"; close(File);

위와 같이 작성 시, file open 시 에러가 발생하면 메시지가 나옵니다.

 || die ("Error - Can't open file_test.txt") 의 내용을 추가하여 file open 시 에러의 내용을 파악할 수 있습니다.

위에 이미지에서 발생했던 에러가 || die ("Error - Can't open file_test.txt") 추가 후 아래와 같이 Error 메시지가 나오는 것을 확인할 수 있습니다.