4.3.2 PerlによるCGIアプリケーションの例

Interstage Application Server Webサーバ運用ガイド(InfoProvider Pro編)

目次索引

4.3.2 PerlによるCGIアプリケーションの例

　この例は、CGI変数にアクセスする例です。

#!perl

/* MIME header を出力 *
/print "Content-type: text/html\n\n";

/* CGI環境変数を表示 */
print "<html><body><pre>\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 "</pre><body><html>\n";

■Perlスクリプトを実行するためのバッチファイルの作成

　Perlスクリプトを実行するためには、PerlインタプリタプログラムにPerlスクリプトを渡して起動させなければなりません。そのため、Perlスクリプトを実行するためのバッチファイルを作成します。
　バッチファイルの例を以下に示します。

@ECHO OFF
PERL.EXE　インストールディレクトリ\CGI-BIN\Perlスクリプト

　※パス名には実際にインストールしたディレクトリ名を指定してください。

■HTML文書からのリンクの例

　バッチファイル名は、CGIPERL.BATとします。

<A HREF="/cgi-bin/CGIPERL.BAT">ここ</A>を押すとCGIアプリケーションを実行します。

　なお、Perlスクリプトにフォームデータを渡す場合は、GETメソッドの場合、QUERY_STRING変数、POSTメソッドの場合、標準入力(stdin)で受け渡します。

目次索引