« ローカル変数 my と local | メイン | shift 関数 unshift関数 »
2005年10月13日
環境変数
$ENV{'環境変数名'}; で環境変数がとれる
CONTENT_LENGTH 標準入力に格納された、POSTによるフォームデータのバイト数を格納している。
GATEWAY_INTERFACE Webサーバーが実行しているCGIのバージョンを格納している。大抵はCGI/1.1である。
HTTP_ACCEPT Webブラウザが直接扱えるContent-typeの一覧。
HTTP_COOKIE クッキー情報を格納している。
HTTP_HOST ドメイン名を格納している。
HTTP_REFERER CGIを起動したWebページのURLを格納している。
HTTP_USER_AGENT CGIのページを要求したWebブラウザの情報。WebブラウザとOSを特定できるような情報を格納している。
PATH パスを格納している。
QUERY_STRINGS GETにおけるWebサーバーに送られる情報が格納されている。URlにおける「?」の後ろの部分を格納している。
REMOTE_ADDR 訪問者のIPアドレスを格納している。
REMOTE_HOST 訪問者のホスト名を格納している。ただし、ホスト名が分からない場合は、IPアドレスを格納している。
REQUEST_METHOD スクリプトへのデータの受け渡し方法が格納されている。GETかPOST
SCRIPT_NAME CGIスクリプト名(URL)を格納している。
SERVER_ADMIN Webサーバーの管理者に関する情報を格納している。
SERVER_NAME CGIスクリプトを実行しているマシンのホスト名、またはIPアドレスを格納している。
SERVER_PROTOCOL Webサーバーが実行しているHTTPプロトコルのバージョンを格納している。大抵はHTTP/1.0である。
SERVER_PORT Webサーバーが使用しているTCP/IPのポート番号を格納している。大抵は80である。
SERVER_SOFTWARE CGIスクリプトを起動したWebサーバーの名称が格納されている。
$ENV{"HTTP_COOKIE"} で実際どんな値が取れるのか？
１、クッキーのセット
-------------------------------------------------------------------------------
print 'Set-Cookie: CookieTest1=%83e%83X%83g; expires=Tue, 01-May-2001 11:32:58 GMT;';
print 'Set-Cookie: CookieTest2=%83e%83X%83g; expires=Tue, 01-May-2001 11:32:58 GMT;'
print 'Content-Type: text/html',"\n";
print "\n";
print "以下、ＨＴＭＬが続く\n";
----------------------------------------------------------------------
セットの形式は
Set-Cookie: クッキー名=クッキー値; expires=有効期限; domain=ドメイン名（サーバ名）; path=パス; secure
んでもって $cookie=$ENV{"HTTP_COOKIE"}
の値は
CookieTest1=%83e%83X%83g%82P; CookieTest2=%83e%83X%83g%82Q
と;刻みのもの
値はURLエンコードされている 以下エンコードスクリプト
-----------------------------------------------------------------------------
$CookieValue = 'テスト';
$CookieValue =~ s/([^\w\=\& ])/'%' . unpack("H2", $1)/eg;
$CookieValue =~ tr/ /+/;
-----------------------------------------------------------------------
以下デコードスクリプト
-----------------------------------------------------------------------------
$CookieValue =~ s/\+/ /g;
$CookieValue =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg;
-------------------------------------------------------------------------------
まぁ これは◎覚えというかそういうもんだと思うしか・・・・
投稿者 muuming : 2005年10月13日 10:30