自分のサイトのURLを取得する PERL
プログラムの中に埋め込んでしまったら可搬性が悪い。
けど、環境変数には HTTP_REFERER ぐらいしか見当たらない。
けど、ブックマークで飛んでくると HTTP_REFERER は、NULLになってる。
これは着眼点が狭いってことで HTTP_HOST と REQUEST_URI を組み合わせることで解決する。
$myurl_str = "http://".$ENV{'HTTP_HOST'}.$ENV{'REQUEST_URI'};
サブドメインでも問題なし。
です。
スポンサーリンク