시작페이지로 즐겨찾기추가
로그인
회원가입 l 출석체크 l 마이페이지 l CGIMALL
자료실 사이트등록 랭킹100 프로그램리뷰 관리자추천자료 초보가이드
커뮤니티
전체 펼쳐보기
퀵메뉴링크 jquery , CSS , PHP , Javascript , 무료폰트 , ASP
상세검색
> 커뮤니티 > 골드팁 상세보기
커뮤니티 구인구직
사이트등록
현재접속자 새로고침
게시판타이틀 골드팁 / 상세보기
트위터로 보내기 미투데이로 보내기 싸이월드 공감
추천수 413 | 조회수 6,036 | 등록일 2005-05-16 16:42:00

닉네임

HappyCGI

제목

[perl] 현재 구동되는 파일명 구하기
내용

해피CGI 입니다.

php경우 $PHPSELF로 간단히 자신이 실행되는 파일을 불러오죠?

perl의 경우 약간은 잔머리를 굴려야 합니다. ^^

환경변수를 일단 사용하죠.


[프로그램코드]

$ENV{'SCRIPT_NAME'}



위 처럼 호출을 하게 되면 현재 구동되는 도메인을 제외한 부분의 디렉토리 및 파일명이 출력됩니다.

마지막 파일명을 추출해볼까요?


[프로그램코드]
@get_file_name = split(/\//,$ENV{'SCRIPT_NAME'});  #몽창  /로 잘라서 배열에 담습니다.
print "$get_file_name[$#get_file_name]"; #배열의 맨끝 녀석을 출력합니다



perl 참으로 매력있는 언어죠? ^^

추천스크랩소스보기 목록
이전게시글 [mysql] 현재날짜에서 이전달 구하기 2005-05-13 18:46:40
다음게시글 [perl] 구동되는 프로그램의 실제속도 측정하기 2005-05-18 11:54:13