my $r_addr     = $ENV{'REMOTE_ADDR'};
			#アクセス元のIPアドレス
my $user_agent = $ENV{'HTTP_USER_AGENT'};
			#使用ブラウザ名とバージョン

my @option;
$option[0] = $ENV{'HTTP_REFERER'};
			#リンク元のURL
$option[1] = $ENV{'REQUEST_URI'};
			#要求した頁のアドレス

	#############################
	#以下は空の情報も多いですが

$option[2] = $ENV{'AUTH_TYPE'};
			#認証方式
$option[3] = $ENV{'CONTENT_LENGTH'};
			#標準入力の場合のバイト数
$option[4] = $ENV{'CONTENT_TYPE'};
			#MIME形式の情報
$option[5] = $ENV{'DATE_GMT'};
			#GMT時刻
$option[6] = $ENV{'DATE_LOCAL'};
			#LOCAL時刻
$option[7] = $ENV{'DOCUMENT_NAME'};
			#当該ページのファイル名
$option[8] = $ENV{'DOCUMENT_PATH'};
		#当該ページのファイルパス
$option[9] = $ENV{'DOCUMENT_ROOT'};
		#HTMLファイルの基準パス
$option[10] = $ENV{'DOCUMENT_URI'};
 #HTMLファイルのDOCUMENT_ROOTからの相対パス
$option[11] = $ENV{'GATEWAY_INTERFACE'};
			#CGIのバージョン
$option[12] = $ENV{'HTTP_ACCEPT'};
			#サーバーが許可したデータ形式
$option[13] = $ENV{'HTTP_ACCEPT_CHARSET'};
			#サーバーが許可した言語セット
$option[14] = $ENV{'HTTP_ACCEPT_LANGUAGE'};
			#サーバーが許可した言語
$option[15] = $ENV{'HTTP_COOKIE'};
			#クッキー情報
$option[16] = $ENV{'HTTP_HOST'};
			#サーバーのホスト名 (何時も空)
$option[17] = $ENV{'HTTP_USER_PATH'};
			#使われている様子が無い
$option[18] = $ENV{'LAST_MODIFIED'};
			#ファイルの最終更新時間
$option[19] = $ENV{'PATH_INFO'};
			#パスの情報（CGIに文字列を送れる)
$option[20] = $ENV{'PATH_TRANSLATED'};
			#絶対パスの情報
$option[21] = $ENV{'QUERY_STRING'};
			#GET時にFormからCGIに送る文字列
$option[22] = $ENV{'REMOTE_HOST'};
			#アクセス元のホスト名 (何時も空)
$option[23] = $ENV{'REMOTE_IDENT'};
			#サーバーが取得したユーザー名
$option[24] = $ENV{'REMOTE_PORT'};
			#クライアント側のポート番号
$option[25] = $ENV{'REMOTE_USER'};
			#認証機能で得たユーザー名
$option[26] = $ENV{'REQUEST_METHOD'};
			#サーバーへの要求方法(POST,GET)
$option[27] = $ENV{'SCRIPT_FILENAME'};
			#CGIスクリプト名のフルパス表示
$option[28] = $ENV{'SCRIPT_NAME'};
			#実行されているCGIスクリプトの名前
$option[29] = $ENV{'SCRIPT_URI'};
			#スクリプトのURI
$option[30] = $ENV{'SERVER_ADMIN'};
			#サーバー管理者
$option[31] = $ENV{'SERVER_NAME'};
			#サーバーのホスト名
$option[32] = $ENV{'SERVER_PORT'};
			#サーバーのポート番号
$option[33] = $ENV{'SERVER_PROTOCOL'};
			#サーバーのプロトコル
$option[34] = $ENV{'SERVER_SOFTWARE'};
			#サーバーのソフトの情報
$option[35] = $ENV{'USER_NAME'};
			#サーバーのユーザー名

#############################
#プロキシ経由のアクセスに対する情報は以下です。
#	(通常のアクセスでは空です)

$option[36] = $ENV{'HTTP_FORWARDED'};
			#プロキシサーバーの情報や生IP
$option[37] = $ENV{'HTTP_X_FORWARDED_FOR'};
			#プロキシサーバー経由の生IP
$option[38] = $ENV{'HTTP_VIA'};
			#プロキシの種類・バージョン等
$option[39] = $ENV{'HTTP_PROXY_CONNECTION'};
			#プロキシ関係の情報
$option[40] = $ENV{'HTTP_CACHE_INFO'};
			#プロキシサーバーのキャッシュ情報
$option[41] = $ENV{'HTTP_CACHE_CONTROL'};
		#プロキシサーバーへのコントロール情報
$option[42] = $ENV{'HTTP_X_LOCKING'};
		#プロキシ使用時の生IP、
			#またはリファラーなどの情報
$option[43] = $ENV{'HTTP_FROM'};
		#プロキシ使用時の生IPなどの情報
$option[44] = $ENV{'HTTP_SP_HOST'};	
		#プロキシ使用時の生ホスト
$option[45] = $ENV{'HTTP_CLIENT_IP'};
		#プロキシ使用時の生IP


############################
#初心者用のログデータは以下の通りでした。
############################

my $log_data = "$r_addr,$user_agent,0\n";
			#来訪者毎のログ内容(1行)

############################
#プロキシ以外の全情報を得る場合の
	ログデータは以下の通りに変更して下さい。
############################
my $log_data = "$r_addr,$option[0],$option[1],
$option[2],$option[3],$option[4],$option[5],
$option[6],$option[7],$option[8],$option[9],
$option[10],$option[11],$option[12],$option[13],
$option[14],$option[15],$option[16],$option[17],
$option[18],$option[19],$option[20],$option[21],
$option[22],$option[23],$option[24],$option[25],
$option[26],$option[27],$option[28],$option[29],
$option[30],$option[31],$option[32],$option[33],
$option[34],$option[35],$user_agent,0\n";
          #来訪者毎のログ内容(1行)

############################
#プロキシを含んだ全情報を得る場合の
	ログデータは以下の通りに変更して下さい。
############################
my $log_data = "$r_addr,$option[0],$option[1],
$option[2],$option[3],$option[4],$option[5],
$option[6],$option[7],$option[8],$option[9],
$option[10],$option[11],$option[12],$option[13],
$option[14],$option[15],$option[16],$option[17],
$option[18],$option[19],$option[20],$option[21],
$option[22],$option[23],$option[24],$option[25],
$option[26],$option[27],$option[28],$option[29],
$option[30],$option[31],$option[32],$option[33],
$option[34],$option[35],$option[36],$option[37],
$option[38],$option[39],$option[40],$option[41],
$option[42],$option[43],$option[44],$option[45],
$user_agent,0\n";
          #来訪者毎のログ内容(1行)