3.1 フォームデータを変数に格納する
3.2 複数選択フォームデータを配列に格納する
3.3 nameリストを取り出す
4.1 標準HTTPヘッダの出力
4.2 リダイレクションヘッダの出力
5.1 HTMLドキュメントヘッダ
5.2 HTMLドキュメントの締めくくり
5.3 見出し
5.4 中央揃え（<CENTER>）
5.5 箇条書きリスト(<UL>, <LI>）
5.6 ハイパーリンク（<A>）
5.7 水平罫線（<HR>）
5.8 強調（<STRONG>）
5.9 改行（<BR>）
5.10 サンプル
CGI.pmでは、主に以下の二つの目的に役立ちます。
上に示したことをPerlスクリプトで作成することは、非常に面倒なことです。CGI.pmを使うことによって、簡単に目的を達成することができます。ほかにもいろいろな機能がありますが、ここでは割愛いたします。
CGI.pm は、Perl5には標準で組み込まれており、ほとんどのプロバイダーで利用可能です。詳細な情報は、オリジナルサイト（http://stein.cshl.org/WWW/software/CGI/cgi_docs.html）をご覧下さい。（英文です）
CGI.pm を利用するためには、Perlスクリプト上で、CGI.pm を呼び出さなければいけません。
| use CGI; |
CGI.pm を使う場合には、必ずこれを書き込んでください。次に、問い合わせオブジェクトの作成をしなければいけません。
| $q = new CGI; |
変数名は、$q である必要はありません。ご自由に決めてください。ここでは、すべて $q で統一して説明します。
フォームに入力・選択された値を取得する方法を、以下のフォームを例にしたがって説明します。
| <form method="POST" action="/cgi-bin/lecture/form/posttest.cgi"> <p>お名前<input type="text" name="namae" size="20"></p> <p>OS<br> <input type="radio" value="win" name="OS" checked>Windows<br> <input type="radio" value="mac" name="OS">Machintosh<br> <input type="radio" value="unix" name="OS">Unix</p> <p><input type="submit" value="送信" name="submit"></p> |
フォームの値を取り出すのは、非常に簡単です。「お名前」の欄（テキストフィールド）の入力データは、
| $Name = $q->param('namae'); |
で取り出せます。入力データは、スカラー変数「$Name」に格納されます。
同様に、「OS」の選択項目（ラジオボタン）を取り出すには、
| $SelectedOS = $q->param('OS'); |
で取り出せます。$SelectedOS に格納されるデータは、フォームHTMLで、valueで指定された値です。たとえば、Windowsを選択したのであれば、$SelectedOS には、「win」という文字列が格納されます。
ポップアップメニュー（プルダウンメニュー）、テキストエリアにおいても、まったく同様に取得することができます。
では、複数選択可能なフォームである「チェックボックス」や「スクローリングリスト」の場合は、どのように取得するのでしょう。以下の例で説明します。
| <form method="POST" action="/cgi-bin/lecture/form/posttest.cgi"> <p>OS<br> <input type="checkbox" name="OS" value="win" checked>Windows<br> <input type="checkbox" name="OS" value="mac">Machintosh<br> <input type="checkbox" name="OS" value="unix" checked>Unix</p> <p>PC Maker<br> <select size="6" name="MAKER" multiple> <option value="fujitsu" selected>富士通</option> <option value="toshiba">東芝</option> <option value="nec" selected>日本電気</option> <option value="dell">デル</option> <option value="compaq" selected>コンパック</option> <option value="gateway">ゲートウェイ</option> </select></p> <p><input type="submit" value="送信" name="submit"></p> </form> |
複数選択可能なフォームの場合には、以下のように配列変数を用意することで受ける取ることができます。
| @OsList = $q->param('OS'); @MakerList = $q->param('MAKER'); |
フォーム例では、OSに「Windows」「Unix」が選択されていますので、配列「@OsList」には、「win」「unix」の２つの要素が格納されます。同様に PC Maker には「富士通」「日本電気」「コンパック」が選択されていますので、配列「@MakerList」には、「fujitsu」「nec」「compaq」の３つの要素が格納されます。
フォームHTMLで指定された name の値のリストを取り出すことができます。
| <form method="POST" action="/cgi-bin/lecture/form/posttest.cgi"> <p>お名前<input type="text" name="namae" size="20"></p> <p>OS<br> <input type="radio" value="win" name="OS" checked>Windows<br> <input type="radio" value="mac" name="OS">Machintosh<br> <input type="radio" value="unix" name="OS">Unix</p> <p><input type="submit" value="送信" name="submit"></p> |
| @names = $q->param; |
配列 @names には、「OS」「namae」という２つの要素が格納されます。
CGIでページを出力する際には、必ず標準HTTPヘッダを出力しなければいけません。各ヘッダを以下のとおりに出力することができます。（\n は改行を表します。）
記述例 出力内容 print $q->header; Content-Type: text/html
print $q->header('image/gif'); Content-Type: image/gif
print $q->header('text/html','204 No response'); Status: 204 No response
Content-Type: text/html
print $q->header(-type=>'image/gif',
-nph=>1,
-status=>'402 Payment required',
-expires=>'+3d',
-cookie=>$cookie,
-charset=>'utf-7',
-attachment=>'foo.gif',
-Cost=>'$2.00');
HTTP/1.0 402 Payment required
Status: 402 Payment required
Set-Cookie:
Expires: Tue, 06 Mar 2001 09:26:31 GMT
Date: Sat, 03 Mar 2001 09:26:31 GMT
Attachment: foo.gif
Charset: utf-7
Cost: $2.00
Content-Type: image/gif
リダイレクションヘッダーを出力することによって、指定のURLへリダイレクトさせることができます。
記述例 出力内容 print $q->redirect('http://www.futomi.com/'); Status: 302 Moved
Location: http://www.futomi.com/
print $q->redirect(-uri=>'http://www.futomi.com/', -nph=>1); HTTP/1.0 302 Moved
Status: 302 Moved
Location: http://www.futomi.com/
start_html関数で、<HTML>, <HEAD>, <TITLE>, <BODY>タグを出力します。
記述例 出力内容 print $q->start_html; <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML><HEAD><TITLE>Untitled Document</TITLE>
</HEAD><BODY>print $q->start_html(-title=>'futomi\'s CGI Cafe'); <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML><HEAD><TITLE>futomi's CGI Cafe</TITLE>
</HEAD><BODY>print $q->start_html(-title=>'futomi\'s CGI Cafe', -BGCOLOR=>'#FFFFFF'); <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML><HEAD><TITLE>futomi's CGI Cafe</TITLE>
</HEAD><BODY BGCOLOR="#FFFFFF">１つ目の例は、一番シンプルなパターンです。ただ、<TITLE>には「Untitled Document」が自動的に挿入されてしまいますので、注意が必要です。最低限、２番目の例のように、-title を指定したほうがよろしいかと思います。
もし、-title で指定する文字列に「'」が含まれる場合には、手前に「\」を入れてください。もしくは「"」で囲んでください。
３つ目の例は、BODYタグ内でのBGCOLORを指定しています。-BGCOLOR を指定しないと、BGCOLORは何も指定されません。Netscapeの場合には、BGCOLORが指定されない場合、バックがグレーになってしまいます。
記述例 出力内容 print $q->end_html; </BODY></HTML> CGIでHTMLを出力するときには、最後にこれを入れましょう。
記述例 出力内容 print $q->h1('futomi\'s CGI Cafe にようこそ！'); <H1>futomi's CGI Cafe にようこそ！</H1> print $q->h2('futomi\'s CGI Cafe にようこそ！'); <H2>futomi's CGI Cafe にようこそ！</H2>
記述例 出力内容 print $q->center($q->h1('futomi\'s CGI Cafe にようこそ！')); <CENTER><H1>futomi's CGI Cafe にようこそ！</H1></CENTER>
記述例 出力内容 print $q->ul( $q->li('高機能アクセスカウンター'), $q->li('RevoCounter') );<UL><LI>高機能アクセスカウンター</LI> <LI>RevoCounter</LI></UL>
記述例 出力内容 print $q->a( {href=>"http://www.futomi.com/"}, "トップページ" );<A HREF="http://www.futomi.com/">トップページ</A>
記述例 出力内容 <HR>
記述例 出力内容 print $q->strong("強調文字");<STRONG>強調文字</STRONG>
記述例 出力内容 <BR>
これまで紹介したものの例を示します。-> サンプルを表示する
サンプルで使っているCGIのソースは以下の通りです。
#!/usr/local/bin/perl use CGI; $q = new CGI; print $q->header; print $q->start_html(-title=>"futomi\'s CGI Cafe", -BGCOLOR=>'#FFFFFF'), $q->center($q->h1('futomi\'s CGI Cafe にようこそ！')), $q->hr, $q->ul( $q->li('高機能アクセスカウンター'), $q->li('RevoCounter') ), $q->br, $q->br, $q->a({href=>"http://www.futomi.com/"}, "トップページ"), $q->br, $q->br, $q->strong("強調文字"), $q->end_html; exit;