Ｐｅｒｌ１１

[もくじへ｜トップページへ｜前ページへ｜次ページへ]

に更新

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　12．環境変数

　環境変数という特殊な変数を使うと、サーバやブラウザのいろんな情報を得る

　ことができます。すでにフォームメールやアクセスカウンタなどで少し出てき

　ました。REMOTE_ADDR や REQUEST_METHOD です。ここでは、ＣＧＩでよく使わ

　れる環境変数を紹介します。　

　まずは、完成品をご覧ください。

　　　環境変数

プログラム

　次のようなプログラム（env.cgi）を作成しました。コメントを入れてあります

　ので、スクロールボタンを操作しながら解読してください。

#!/usr/bin/perl ################################################################## # Program : env.cgi(Perl) # Date_written : 1999,11,01 # Author : 良寛 ################################################################## print "Content-type: text/html\n\n"; print "<HTML>\n"; print "<TITLE>環境変数</TITLE>\n"; print "<BODY>\n"; print "HTTP_ACCEPT = [ $ENV{'HTTP_ACCEPT'} ] \n"; # ------------------------------------------------------------ # プログラムを呼び出したマシンのブラウザが直接表示できる # Content-typeの一覧 # ------------------------------------------------------------ print "HTTP_ACCEPT_LANGUAGE = [ $ENV{'HTTP_ACCEPT_LANGUAGE'} ] \n"; # ------------------------------------------------------------ # プログラムを呼び出したマシンのブラウザが理解できる各国語 # ------------------------------------------------------------ print "HTTP_REFERER = [ $ENV{'HTTP_REFERER'} ] \n"; # ------------------------------------------------------------ # プログラムを呼び出したリンク元のＵＲＬ # ------------------------------------------------------------ print "HTTP_USER_AGENT = [ $ENV{'HTTP_USER_AGENT'} ] \n"; # ------------------------------------------------------------ # プログラムを呼び出したマシンのブラウザ名、バージョン # ------------------------------------------------------------ print "REMOTE_ADDR = [ $ENV{'REMOTE_ADDR'} ] \n"; # ------------------------------------------------------------ # プログラムを呼び出したマシンのＩＰアドレス。ダイアルアップ # 接続の場合、その時接続されているプロバイダ側のサーバ名 # ------------------------------------------------------------ print "REMOTE_HOST = [ $ENV{'REMOTE_HOST'} ] \n"; # ------------------------------------------------------------ # プログラムを呼び出したマシンのホスト名。ダイアルアップ接続 # の場合、その時接続されているプロバイダ側のサーバ名 # ------------------------------------------------------------ print "SCRIPT_FILENAME = [ $ENV{'SCRIPT_FILENAME'} ] \n"; # ------------------------------------------------------------ # プログラムを呼び出したスクリプトの名前 # ルートディレクトリからのフルパスが得られます。 # ------------------------------------------------------------ print "SCRIPT_NAME = [ $ENV{'SCRIPT_NAME'} ] \n"; # ------------------------------------------------------------ # プログラムを呼び出したスクリプトの名前 # SERVER_NAMEと組み合わせて使います。 # ------------------------------------------------------------ print "SERVER_NAME = [ $ENV{'SERVER_NAME'} ] \n"; # ------------------------------------------------------------ # サーバのホスト名 # ------------------------------------------------------------ print "SERVER_PORT = [ $ENV{'SERVER_PORT'} ] \n"; # ------------------------------------------------------------ # サーバのポート番号 # ------------------------------------------------------------ print "SERVER_PROTOCOL = [ $ENV{'SERVER_PROTOCOL'} ] \n"; # ------------------------------------------------------------ # サーバプロトコルの名前およびバージョン # ------------------------------------------------------------ print "SERVER_SOFTWARE = [ $ENV{'SERVER_SOFTWARE'} ] \n"; # ------------------------------------------------------------ # Apacheのバージョン # ------------------------------------------------------------ print "GATEWAY_INTERFACE = [ $ENV{'GATEWAY_INTERFACE'} ] \n"; # ------------------------------------------------------------ # サーバが実行しているＣＧＩのバージョン # ------------------------------------------------------------ print "TZ = [ $ENV{'TZ'} ] \n"; # ------------------------------------------------------------ # サーバにセットされているタイムゾーン（地方時間帯） # ------------------------------------------------------------ print "</BODY>\n"; print "</HTML>\n";

　プログラム自体は、各変数の値を表示しているだけです。

　　　　------------------------------------------------------------
　　　　　開始

　　　　　先頭行にはＰｅｒｌへのパスを書きます。
　　　　　先頭行の「#」はコメントにはなりません。
　　　　------------------------------------------------------------

　　　　　　　　　　　　　　↓

　　　　------------------------------------------------------------
　　　　　各環境変数の値を表示
　　　　------------------------------------------------------------

　　　　　　　　　　　　　　↓

　　　　------------------------------------------------------------
　　　　　終了
　　　　------------------------------------------------------------

　プログラムを自分でカスタマイズして使う場合は、次をクリックして表示させ

　env.cgi という名前で保存してください。（　）内はパーミッションです。

　　　env.txt　　　→　env.cgi（７５５）

　必ずテキストモード（アスキーモード）でアップロードしてください。

　次回は環境変数のいくつかをアクセスカウンタの中に追加し、１日分のアクセ

　スログをメールで送るプログラムを作成します。

　　動かないときは、サポート掲示板へどうぞ。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

[もくじへ｜トップページへ｜前ページへ｜次ページへ]