#!/usr/bin/perl -w use CGI qw(:standard); # CGI.pmモジュールを使う。コードを見やすくするために、 # qw(:standard)で標準CGI関数の名前用スペースを # インポートする。この操作は、スクリプト全体を通して使われる # CGIオブジェクトが1つだけの場合に限り行える。 $mycgi = new CGI; # CGIオブジェクトを作成する。 # フォームデータの出入口となる。 @fields = $mycgi->param; # 入力されたフォームフィールド。 # すべての名前を取得する。 print header, start_html('CGI.pm test'); # hederメソッドと # start_htmlメソッドが、 # HTMLのショートカットとしてCGI.pmによって # 提供されている。 # headerで要求されたHTTPヘッダを出力し、start_html # で特定のタイトルを持つHTMLヘッダを # タグとともに出力する。 print "

Form information:
"; foreach (@fields) { print $_, ":", $mycgi->param($_), "
"; } # 各フィールドについて、フィールド名と値 # $mycgi->param('fieldname')で取得した値を出力する。 print end_html; # 終了タグで出力するためのショートカット。