フォーム内容を表示する - CGI(Perl)の基本と掲示板作成
目次
フォーム内容を表示
掲示板作成への準備段階として、フォームの内容を表示するというプログラムを作成します。フォームとは、掲示板で名前を書いたり内容を書いたりする部分のことです。インターネットを使っている人なら一度は見たことがあると思います。フォーム処理の流れは以下のようになります。
- フォームの入ったHTMLが表示される。
- フォーム内容を入力して送信(submit)ボタンを押す。
- フォーム内容がCGIに渡される。
- CGIでフォーム内容を加工して結果をHTMLとして出力する。
フォームのHTML
まず最初にフォームの入ったHTMLファイルを作成します。以下のHTMLをテキストエディタで入力してください。
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<title>フォーム</title>
</head>
<body>
<form method="post" action="form1.cgi">
アナタの名前を教えてクダサイ：
<input type="text" name="namae">
<input type="submit" value="送信">
</form>
</body>
</html>
入力が終わったら、「form1.html」という名前でサーバにアップロードし、ブラウザで確認してみてください。テキストの書けるエリア（テキスト入力フィールドと言います）と送信ボタンが現れたと思います。仮にテキスト入力フィールドに名前を入れて送信ボタンを押してみてください。エラーが出ますが、これは送信された内容を処理するCGIがまだ存在しないからです。
HTMLの説明
<form method="post" action="form1.cgi">
ここから</form>までの部分がフォーム本体で、複数のフォーム部品が入ります。method属性はCGIにデータをどのように送信するかを指定します。送信方法にはGETとPOSTの２種類がありますが、その違いについては今回は気にする必要はありません。action属性は送信されたデータを処理するCGIプログラムのファイル名です。
<input type="text" name="namae">
フォーム部品を配置します。フォーム部品には、テキスト入力フィールド・ラジオボタン・チェックボックスなどがありますが、その種類を指定するのがtype属性です。「text」はテキスト入力フィールドを表します。name属性はフォーム部品の名前を指定します。複数のフォーム部品を使う場合、送られたデータがどのフォーム部品のデータなのかを判別するものがname属性です。今回のテキスト入力フィールドには「namae」という名前を付けました。
<input type="submit" value="送信">
type属性が「submit」のフォーム部品は送信ボタンの役割を持ちます。このボタンが押されたときに実際にフォームのaction属性で書かれたCGIプログラムにフォームの内容が渡されます。value属性はボタンに書かれるテキストを指定します。cgi-libライブラリ
次に、フォームの内容を処理するCGIを作るのですが、フォームで送られる内容は特殊な形式になるので、それをプログラムで使える形にするには変換処理が必要になります。その処理は全て自分で行なっても構わないのですが、少し面倒なので既存のライブラリ（プログラムの部品のこと）を使います。ライブラリ名はcgi-lib.plと言い、http://cgi-lib.berkeley.edu/からダウンロードできます。これを今回作るプログラムと同じディレクトリにコピーしておいてください。フォームを処理するプログラム
準備ができたところで、以下のプログラムをテキストエディタで入力してください。
#!/usr/bin/perl
# フォームの内容を表示する
require "cgi-lib.pl"; # cgi-libを使用する
print "Content-type: text/html; charset=Shift_JIS\n\n";
&ReadParse(*form);
print <<EOL;
<html>
<body>
<p>
コンニチハ、 $form{"namae"} サン。
</p>
</body>
</html>
EOL
入力が終わったら、「form1.cgi」という名前でサーバにアップロードし、パーミッションを755にしてください。その後、もういちどform1.htmlをブラウザで呼び出し、名前を入力して送信ボタンを押してください。名前が表示されれば成功です。
プログラムの説明
require "cgi-lib.pl"; # cgi-libを使用する
cgi-libライブラリをこのプログラム中で使用しますよ、という宣言をしている部分です。この宣言をしないとcgi-libライブラリが使えません。
&ReadParse(*form);
フォームで送られてきた内容をプログラムで使える形に変換する部分です。ReadParseはcgi-libの機能のひとつで、サブルーチンと言います。サブルーチンとは、機能のひとかたまりを表わすものです。Perlではサブルーチン呼び出しには先頭に＆を付ける必要があります。ここでは、フォームで送られてきた内容を解釈して、「form」という連想配列に格納しています。連想配列については後述しますが、ここでは $form{"name属性の値"} という変数にそのname属性に対応したフォーム部品の値が入る、と覚えておいてください。
コンニチハ、 $form{"namae"} サン。
ここでテキスト入力フィールドの値を表示しています。$form{"namae"} にはform1.htmlでテキスト入力フィールドに入力した値が入ります。
ツイート
そっか0