해피CGI 입니다.

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

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

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

[프로그램코드]

$ENV{'SCRIPT_NAME'}

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

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

[프로그램코드]

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

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