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

회원가입

출석체크

마이페이지

CGIMALL

jquery , CSS , PHP , Javascript , 무료폰트 , ASP

홈 > 커뮤니티 > 골드팁 상세보기

클라우드태그

Javascript

PHP

ASP

CSS

HTML

MYSQL

jquery

image

Mobile

API

slide

게시판

메뉴

현재접속자 명

686

9,702

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