perl의 파일다루기

perl의 파일다루기는 매우 좋다. ( c언어의 경우 이것이 파일인지 디렉토리인지 int86x, fstat같은 시스템 같은 의존적인 함수를 이용해야한다)

문법: -X FILEHANDLE 또는 -X FILE_OR_DIR_NAME

-e  파일이 존재하는가 ? (참이면 1, 거짓이면 0을 리턴합니다.)
-z  파일 크기가 0인가 ?
-s  파일이 0 아닌 크기를 갖는가 ? (파일의 크기를 리턴합니다.)
-f  파일이 평범한 파일인가 ?
-d  파일이름이 디렉토리인가 ?
-T  파일이 텍스트 파일인가 ?
-B  파일이 이진 파일인가 ?
-M  파일이 생성된지 몇일이 되었는가 ? ( 0부터 시작 )

$filename="hello.pl"; #문자열

if( -d $filename) #파일이 디렉토리인지 검사

{die "$filename is a directory\n";} #출력후 프로그램을 종료시키는 die함수

-e $filename || die "$filename is not exitst"; #파일이 존재 하지않으면 die실행

-T $filename || die "$filename is not a text file"; #파일이 존재 하지않으면 die실행

open( filehandle, $filename ) || die "can not open $filename.\n";

#파일 오픈 파일 핸들은 변수지정이 붙지 않는다.

@allLines=<filehandle> #모든 문자열이 배열로 들어간다

while($line=<filehandle>){

# 한 라인씩 읽는다???????????<filehandle>이 부분이 지워져 있어서 정확히는 모르겠다.....................;;;

print $line;

}

close(filehandle)