Saturday, December 02, 2006
Perl/펄] 현재 디렉토리 변경; 디렉토리 이동 Change Directory Function
chdir 이라는 펄의 기본 함수로, "현재 디렉토리"를 변경할 수 있습니다. 즉, 다른 디렉토리(폴더)로 이동하는 것입니다.
다만 펄 프로그램을 종료하면, 변경 사항이 반영되지 않고, 처음에 펄 스크립트를 실행했던 디렉토리로 돌아가서 종료됩니다.
윈도우에서, "D:\Y" 라는 디렉토리로 이동하는 예제입니다.
현재 디렉토리명을 얻는 getcwd 함수를 사용하기 위해
use Cwd;
이렇게 Cwd 모듈을 로딩했습니다.
실행 결과 화면:
위의 결과 화면과 같이, 다시 원래의 D:\Z 디렉토리로 돌아와서 종료되었습니다.
뒤에 아무 옵션을 주지 않고 그냥
chdir or die "디렉토리 변경 에러: $!\n";
이렇게 하면, "현재 로그인한 사용자의 홈 디렉토리(~)"로 이동합니다.
MS윈도우에서도 HOME 이라는 환경변수를, 예를 들어
HOME=D:\myhome
이런 식으로 설정해 놓으면, 펄이 홈디렉토리를 인식합니다. (▶▶ '환경변수'란 무엇인가요? 환경변수 변경/추가/삭제하는 법은? - Environment Variable 참고)
만약 "D:\Documents and Settings\Administrator" 라는, 윈도우 디렉토리로 이동하려면
chdir "D:/Documents and Settings/Administrator" or die "디렉토리 변경 에러: $!\n";
이렇게 하면 됩니다.
▶▶ Perl/펄] 현재 디렉토리 명 구하기; 디렉터리 위치; Cwd, pwd, Current Working Directory Name
다만 펄 프로그램을 종료하면, 변경 사항이 반영되지 않고, 처음에 펄 스크립트를 실행했던 디렉토리로 돌아가서 종료됩니다.
chdir 함수: 디렉토리 변경 예제 소스
윈도우에서, "D:\Y" 라는 디렉토리로 이동하는 예제입니다.
#!/usr/bin/perl
use strict; use warnings;
use Cwd;
# 현재 디렉토리명 출력
print "현재 디렉토리 = ", getcwd, "\n";
# 디렉토리 변경
chdir "D:/Y" or die "디렉토리 변경 에러: $!\n";
# 변경 후의 디렉토리명 출력
print "변경 후의 현재 디렉토리 = ", getcwd, "\n";
use strict; use warnings;
use Cwd;
# 현재 디렉토리명 출력
print "현재 디렉토리 = ", getcwd, "\n";
# 디렉토리 변경
chdir "D:/Y" or die "디렉토리 변경 에러: $!\n";
# 변경 후의 디렉토리명 출력
print "변경 후의 현재 디렉토리 = ", getcwd, "\n";
현재 디렉토리명을 얻는 getcwd 함수를 사용하기 위해
use Cwd;
이렇게 Cwd 모듈을 로딩했습니다.
실행 결과 화면:
D:\Z>0.pl
현재 디렉토리 = D:/Z
변경 후의 현재 디렉토리 = D:/Y
D:\Z>
현재 디렉토리 = D:/Z
변경 후의 현재 디렉토리 = D:/Y
D:\Z>
위의 결과 화면과 같이, 다시 원래의 D:\Z 디렉토리로 돌아와서 종료되었습니다.
뒤에 아무 옵션을 주지 않고 그냥
chdir or die "디렉토리 변경 에러: $!\n";
이렇게 하면, "현재 로그인한 사용자의 홈 디렉토리(~)"로 이동합니다.
MS윈도우에서도 HOME 이라는 환경변수를, 예를 들어
HOME=D:\myhome
이런 식으로 설정해 놓으면, 펄이 홈디렉토리를 인식합니다. (▶▶ '환경변수'란 무엇인가요? 환경변수 변경/추가/삭제하는 법은? - Environment Variable 참고)
만약 "D:\Documents and Settings\Administrator" 라는, 윈도우 디렉토리로 이동하려면
chdir "D:/Documents and Settings/Administrator" or die "디렉토리 변경 에러: $!\n";
이렇게 하면 됩니다.
▶▶ Perl/펄] 현재 디렉토리 명 구하기; 디렉터리 위치; Cwd, pwd, Current Working Directory Name
tag: perl
Perl | 펄
<< Home