[PERL] 지정한 경로의 디렉토리 or 파일 검증.

ITWeb/개발일반 2009. 7. 13. 20:08

아주 초보적인 스크립트죠.

#!/usr/bi/perl

@files = </home/계정/*>;

foreach $file (@files) {
    if ( -f $file ) {
        print "This is a file (" . $file . ")\n";
    }

    if ( -d $file ) {
        print "This is a directory (" . $file . ")\n";
    }
}

사실 제가 만들고 싶은걸 작성 하기 전에 이 기초적인 것 부터.. 기록해 두려고.. 글 등록 합니다.
내가 만들고 싶은거..

1. 특정 디렉토리를 recursive 하게 search 를 한다.
2. inode 가 변경 된 최신 파일을 대상으로 file size 가 특정 용량을 넘는지 검사를 한다.
    - daily 로 검사 하면 된다.
    - 근데 파일은 매일 매일 증가를 할 텐데 추가된 거나 inode 만 변경 된 걸로 increase 하게 검색 할 수 있을까?
    - 파일 올릴때 어디 기록을 해야 하나..ㅡ.ㅡ;
3. 특정 용량이 넘으면 alert mail 을 발송 또는 통계를 작성 하여 메일 발송 한다.

암튼.. 지금은 배도 무지 고프고 머리도 멍 하고..
대충 이정 도만 정리를 하자..
뭐.. 보니 recursive function 하나 만들어서 잘 돌리면 몇 줄 안짜고 쉽게 만들수도 있을 것 같다.
근데.. 고민은.. 2번 이다..ㅡ.ㅡ;;
파일은 무한정 늘어 날텐데... 흠..

: