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