4.4.4　CGIプログラムの例

CGIプログラムのサンプルプログラムと，その実行例を説明します。

サンプルCGIプログラム

Windows版で使用可能なサンプルプログラムのソース例を次に示します。これはPerl言語で書かれたプログラムで，ファイル名をtest-cgi.plとします。

#! c:\bin\perl.exe
 
$argc=$#ARGV+1;
print "Content-Type: text/plain\n";
print "\n";
print "argc is $argc. argv is \"@ARGV\".\n";
print "SERVER_SOFTWARE = $ENV{'SERVER_SOFTWARE'}\n";
print "SERVER_NAME = $ENV{'SERVER_NAME'}\n";
print "GATEWAY_INTERFACE = $ENV{'GATEWAY_INTERFACE'}\n";
print "SERVER_PROTOCOL = $ENV{'SERVER_PROTOCOL'}\n";
print "SERVER_PORT = $ENV{'SERVER_PORT'}\n";
print "REQUEST_METHOD = $ENV{'REQUEST_METHOD'}\n";
print "HTTP_ACCEPT = \"$ENV{'HTTP_ACCEPT'}\"\n";
print "PATH_INFO = \"$ENV{'PATH_INFO'}\"\n";
print "PATH_TRANSLATED = \"$ENV{'PATH_TRANSLATED'}\"\n";
print "SCRIPT_NAME = \"$ENV{'SCRIPT_NAME'}\"\n";
print "QUERY_STRING = \"$ENV{'QUERY_STRING'}\"\n";
print "REMOTE_HOST = $ENV{'REMOTE_HOST'}\n";
print "REMOTE_ADDR = $ENV{'REMOTE_ADDR'}\n";
print "REMOTE_USER = $ENV{'REMOTE_USER'}\n";
print "AUTH_TYPE = $ENV{'AUTH_TYPE'}\n";
print "CONTENT_TYPE = $ENV{'CONTENT_TYPE'}\n";
print "CONTENT_LENGTH = $ENV{'CONTENT_LENGTH'}\n";

CGIプログラムの実行

Webブラウザに次に示すように指定して，サンプルCGIプログラムを呼び出します。

http://www.example.com/cgi-bin/test-cgi.pl/ABC?X=1&Y=2

サンプルプログラムの実行結果

ページの先頭へ