Perl 제대로배우기 - 13장(File and Directory handle)

13. File and Directory handle

파일 제거

unlink 함수를 사용 한다.

** 하드링크를 별도로 만들지 않았다면

unlink 함수의 리턴형은 삭제된 파일 수

여러 파일 삭제

예)

unlink (“cow”,”boy”); #두 파일 삭제

unlink <*.o>; #쉘에서 rm *.o와 동일

foreach $file (<*.o>){

 unlink($file) || warn “having trouble deleting $file: $!”;

}

foreach (<*.o>){

 unlink || warn “having trouble deleting $_: $!”;

}

파일 이름 변경

rename 함수를 사용 , 리턴값은 성공 - true(not zero), 실패 - false (0)

rename (“huni”,”yuni”) || die “Can’t rename huni to yuni : $!”;

rename (“yuni”,”dana/yuni”) || die “Can’t rename yuni to dana/yuni : $!”;

mv와 틀리게 반드시 dana라는 디렉토리가 존재해야 한다.

파일에 대한 다른 이름 생성: 링킹

링킹이란 : 한 파일에 대한 다른 이름을 만드는 연산

링킹의 두가지 유형 : 하드링크 와 심볼릭(소프트)링크

하드링크와 소프트링크에 대해

OS(POSIX) 특정 시간(임의의)에 하드 링크에 대한 계수(count)를 유지 한다. 처음 생성되면 하나의 링크를 생긴다.

** 하드링크는 디렉토리에는 제한 됩니다. (생성불가)

심볼릭링크 : 경로명을 데이터로 담고 있는 특별한 종류의 파일

Perl로 하드링크와 소프트링크 생성하기

하드링크 생성 명령 : ln file link_name

심볼릭링크 생성 명려어 : ln -s file link_name

link ("huni","huni_hLink") || die "can't link huni to huni_hLink:$!";

symlink ("huni","huni_sLink") || die "can't symlink huni to huni_sLink:$!";

정보 읽기 (심볼릭링크만 읽을수 있다.)

if(defined($x = readlink(“huni_sLink”))){

 print “huni_sLink points(symlink) at ‘$x’\n”;

}

디렉토리 생성과 제거

mkdir 함수 : 디렉토리 생성

예) mkdir(“huni_dir”,0777) || die “can’t mkdir huni_dir:$!”;

rmdir 함수 : 디렉토리 삭제

예) rmdir(“huni_dir) || die “can’t rmdir huni_dir:$!”;

** 지울 디렉토리에 파일 존재하면 디렉토리 삭제 불가

허가권 변경

chmod 함수 : 권한 변경

foreach $file(“fred”,”barney”){

 unless (chmod (0666,$file)){

   warn “couldn’t chmod $file:$!”;

 }

}

소유권 변경

chown 함수 : 소유권 변경

chown(1234,25,”huni”,”yuni”); # 1234 - UID, 35 - GID , ”huni”,”yuni” :: 파일명

시간표시 변경

utime 함수 : 시간표시 변경

time 함수 : 현재 시간 (단위 초단위)

** 시간은 1970/1/1 부터 경과한 초단위

$atime = $mtime = time() - 20 * 60; 현재 부터 20분전에 시간으로 변경해요

utime ($atime ,$mtime ,”huni”);

$atime : access time (1)

$mtime : modify time (2)

** 마지막 inode 수정 시간 : 설정 방법이 없다.