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

$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];
とするのと全く同じ。
必要性が低いせいか、あまり見かけないので書いておく。

2017/08/30(水)
フエダイ釣れました(54センチ・2キロ)
2017/08/29(火)
パッとしない
2017/08/25(金)
変なの釣れたw
Keyword : Perl,CGI,スクリプト名,$ENV{"SCRIPT_NAME"},ファイル名,取得

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