フォームからのデータの取得　getform.pl

　次にフォームからの入力された内容の表示です。単純に表示された内容を表示するだけです。　　下記スクリプトをコピーして試して見てください。　面倒な場合はここからダウンロードして解凍してください。

getform.html （入力フォームHTML）

<HTML><HEAD><TITLE>getform.html</TITLE></HEAD>
<BODY>
<FORM ACTION="getform.pl" METHOD="POST">
<INPUT NAME="data001" TYPE="TEXT" VALUE="初期値１">
<INPUT NAME="data002" TYPE="TEXT" VALUE="初期値２">
<INPUT NAME="data003" TYPE="TEXT" VALUE="初期値３">
<INPUT NAME="data004" TYPE="TEXT" VALUE="初期値４">

<INPUT NAME="" TYPE="SUBMIT" VALUE="送信">
</FORM>
<BODY>

getform.pl （受取用CGIスクリプト）

#!/usr/bin/perl

use CGI;
my $q = new CGI;

my $data1 = $q->param('data001');
my $data2 = $q->param('data002');
my $data3 = $q->param('data003');
my $data4 = $q->param('data004');

print "Content-type: text/html\n\n";
print "<HTML>";
print "<HEAD><TITLE>Getform CGI by Jihei</TITLE><HEAD>";
print "<BODY>";
print "$data1<BR>";
print "$data2<BR>";
print "$data3<BR>";
print "$data4<BR>";

print "<A HREF=\"./getform.html\">戻る</A>";

print "</BODY></HTML>";

解説

　入力フォームHTML

<HTML><HEAD><TITLE>getform.html</TITLE></HEAD>
<BODY>
<FORM ACTION="getform.pl" METHOD="POST">　　　　　　　　　　　フォームの宣言、スクリプトの指定
<INPUT NAME="data001" TYPE="TEXT" VALUE="初期値１">　　　テキスト入力欄の設定
<INPUT NAME="data002" TYPE="TEXT" VALUE="初期値２">
<INPUT NAME="data003" TYPE="TEXT" VALUE="初期値３">
<INPUT NAME="data004" TYPE="TEXT" VALUE="初期値４">

<INPUT NAME="" TYPE="SUBMIT" VALUE="送信">　　　　　　　　　送信ボタンの設定
</FORM>
<BODY>

受取スクリプト

#!/usr/bin/perl

use CGI;　　　　　　　　　　　　　　フォーム受取を容易にするモジュールの読み込み
my $q = new CGI;

my $data1 = $q->param('data001');　　　　　　フォームからのデータの読み込み
my $data2 = $q->param('data002');
my $data3 = $q->param('data003');
my $data4 = $q->param('data004');

print "Content-type: text/html\n\n";
print "<HTML>";
print "<HEAD><TITLE>Getform CGI by Jihei</TITLE><HEAD>";
print "<BODY>";
print "$data1<BR>";
print "$data2<BR>";
print "$data3<BR>";
print "$data4<BR>";

print "<A HREF=\"./getform.html\">戻る</A>";　　　　　　受取フォームへ戻るリンク（サンプル、必須では無い）

print "</BODY></HTML>";

戻る