自分自身のスクリプト名(のみ)を取得

$ENV{"SCRIPT_NAME"} に自身のスクリプト名が格納されている。
このページの $ENV{"SCRIPT_NAME"} を書き出すと、

/perl/index.cgi

となる。(.htaccessでアヘアヘして拡張子はhtmlになってますけどね)

この内、「index.cgi」のみ、つまり自身のファイルの名前のみを取得したい場合は、

$self = (split "/",$ENV{"SCRIPT_NAME"})[$self-1];

とすれば、$self に「index.cgi」が格納される。
これは
@script = split(/\//,$ENV{"SCRIPT_NAME"});
 $self = $script[$#script];
とするのと全く同じ。
必要性が低いせいか、あまり見かけないので書いておく。

2018/04/23(月)
久々にイカGET
2018/04/22(日)
釣らずに大物GET!
2018/04/13(金)
魚っ気はあるんだがなー
Keyword : Perl,CGI,スクリプト名,$ENV{"SCRIPT_NAME"},ファイル名,取得

CopyRight 2004 - 2018 © Nap.st all right reserved.