#!/usr/local/bin/perl asp
Server 変数 / CGI 環境変数 |
<% for(sort keys %{$Request->ServerVariables()}) {
# 私のデモサーバについて多くを閲覧しようとしないでください。
# すべての %ENV を見たいなら、この行をコメントアウトしてください。
# next unless ($_ =~ /^(HTTP_)/);
# 【訳者注】というわけで、上の行はコメントアウトしましたが、
# セキュリティ上から、閲覧できるサーバ情報は最小限にとどめて下さい。
%>
<%=$_%> |
<%=$Request->ServerVariables($_)%> |
<% } %>