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

$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/05/19(金)
イカは釣れたがヒラマサにバカにされたorz
2017/04/27(木)
うっかりヒラスズキ(83cm/6kg位)釣れてもうたw
2017/04/13(木)
デカいブリ(97cm/9.1kg)釣れました
Keyword : Perl,CGI,スクリプト名,$ENV{"SCRIPT_NAME"},ファイル名,取得

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