URL取得・表示($ENV{'HTTP_HOST'}, $ENV{'REQUEST_URI'})
#! /usr/local/bin/perl # HTML出力 print "Content-type: text/html\n\n"; print "<html>\n"; print "<head>\n"; print "<title>URLを取得・表示</title>\n"; print "</head>\n"; print "<body>\n"; # URL取得 $url = "https://" . $ENV{'HTTP_HOST'} . $ENV{'REQUEST_URI'}; # URL出力 print "このページのアドレス<br>\n"; print "$url<br>\n"; # HTML出力 print "</body>\n"; print "</html>\n"; exit;
〔 実行する 〕