環境変数の取り出し[Perl] 環境変数は連想配列%ENVに格納されています。 値を取り出すには $ENV{'環境変数名'}とします。 [例] #!/usr/bin/perl print "Content-type: text/html\n\n"; foreach (sort keys (%ENV)){ print "$_: $ENV{$_}<BR>\n"; } [実行結果] DOCUMENT_ROOT: /var/www/vhosts/server.ksknet.net/html GATEWAY_INTERFACE: CGI/1.1 HTTP_ACCEPT: application/x-shockwave-flash,text/xml,application/xml,application/xhtml+xml,text/html HTTP_ACCEPT_CHARSET: shift_jis, utf-8,
