自分のサイトのURLを取得する PERL


スポンサーリンク

PERLでCGIを作っていると自分のURLを知りたかったりするよね?

プログラムの中に埋め込んでしまったら可搬性が悪い。

けど、環境変数には HTTP_REFERER ぐらいしか見当たらない。

けど、ブックマークで飛んでくると HTTP_REFERER は、NULLになってる。

これは着眼点が狭いってことで HTTP_HOST と REQUEST_URI を組み合わせることで解決する。

	$myurl_str = "http://".$ENV{'HTTP_HOST'}.$ENV{'REQUEST_URI'};

サブドメインでも問題なし。

です。



スポンサーリンク