[ CnUnix ] in KIDS
글 쓴 이(By): Jarre (자르..)
날 짜 (Date): 2002년 4월  9일 화요일 오후 08시 49분 23초
제 목(Title): Perl로 directory만들기?


Perl보드가 없어 여기 붙입니다.


Perl에서

여러 단계의 디렉토리를 한번에 만드려고 하는데,

mkdir로는 잘 안되더군요.

system으로 만들기는 만들었는데,

system을 사용하지 않는 방법 뭐 없나요?

이걸 가능하게 하는 모듈이라던지...

그러니까 c:\mmmm에서 

c:\jjjjj\kkkkk\ooooo

를 만드려고 합니다.

windows에서.


[ CnUnix ] in KIDS
글 쓴 이(By): nike (승리의여신)
날 짜 (Date): 2002년 4월  9일 화요일 오후 11시 23분 04초
제 목(Title): Re: Perl로 directory만들기?


    mkdir과 chdir을 같이 이용하시면 되지 않을까 합니다.


                          도움이 되시길... "승리의여신"


[ CnUnix ] in KIDS
글 쓴 이(By): homer (simpson)
날 짜 (Date): 2002년 4월 10일 수요일 오전 08시 43분 47초
제 목(Title): Re: Perl로 directory만들기?


그냥 shell에서

        mkdirhier /aaa/bbb/ccc/ddd/eee/

이러면 그냥 한방에 만들어집니다.


[ CnUnix ] in KIDS
글 쓴 이(By): terzeron (microkid)
날 짜 (Date): 2002년 4월 10일 수요일 오전 09시 39분 10초
제 목(Title): Re: Perl로 directory만들기?


Windows에 mkdirhier가 있을 리가 없으니(이건 X용 유틸입니다.)
mkdirhier.pl을 만드시면 되겠습니다.

$directory = "";
for $i (split /\\|\//, $ARGV[0]) {
    $i =~ s/ /\ /g;
    $directory .= "$i";
    mkdir "$directory";
    $directory .= "\\";
}

mkdirhier.pl로 저장하신 다음에 
perl mkdirhier.pl로 실행시키시든가 아니면 pl확장자에 대해서
perl을 연결프로그램으로 지정하시고 mkdirhier.pl하시면 되겠네요.

/와 \을 같이 사용할 수 있으며 공백이 들어간 디렉토리명도
가능합니다.


[ CnUnix ] in KIDS
글 쓴 이(By): Jarre (자르..)
날 짜 (Date): 2002년 4월 10일 수요일 오전 09시 56분 18초
제 목(Title): Re: Perl로 directory만들기?


여러 답변 정말 감사합니다.

다른 분의 조언으로 

File::Path

mkpath로 만들었습니다.

촙오