スクリプトまでのアドレスを取得するには？

質問

お世話になります。

http://hogehoge.com/aiu/eoka/hoge.cgi

hoge.cgiから見た、「http://hogehoge.com/aiu/eoka/」を取得する方法はありますでしょうか。

「http://hogehoge.com/」から「hoge.cgi」までの間には、ディレクトリは２だけではなく３つや４つと、複数入る場合があります。

例えば$urlpathに、hoge.cgiまでのアドレスを取得するようにするには、どうすれば良いでしょうか。

ご教授をお願いします。

回答No.3

reeya0915

use File::Basename;

my $url = "ttp://hogehoge.com/aiu/eoka/hoge.cgi";

print basename($url), "<br />";
print dirname($url);

↓結果
hoge.cgi
ttp://hogehoge.com/aiu/eoka

携帯では確認してないですが、多分いけると思います。

回答No.2

Tacosan

「実行スクリプト名を除く」んだったら, 「最後の / 以下を消す」だけですよね?
s#/[^/]*$##;
でいいんじゃないかな.

回答No.1

plantarum

環境変数$SERVER_NAMEにhogehoge.comが、
環境変数$SCRIPT_NAMEに/aiu/eoka/hoge.cgi
が入ります。

お礼

ご回答ありがとうございます。

$SCRIPT_NAMEでは、実行スクリプト名（hoge.cgi）まで含まれてしまいますが、これを省く方法はありますでしょうか？

あと、携帯専用のCGIの中に記述するつもりですが、環境変数は携帯からのアクセスでも問題なく取得できるのでしょうか。

ご教授をお願い致します。