SAK 図書館
SAK 図書館
CGI-Perl 応用実地編 - 簡易伝言板作成1 (投稿フォーム表示)
■CGI-Perl 応用実地編
・簡易な伝言板プログラムを作ってみましょう。
・実習が簡単にできるように出来るだけシンプルな仕様とします。
■Perl 開始記述
・普通のサイトでは「#!/usr/local/bin/perl」が多いのですが、サイトに
よっては、「#!/usr/bin/perl」など、違う場合があります。
Perl 開始記述がサイトの仕様に合っていないと CGI の実行ができません。
■伝言入力フォーム表示
・まず、伝言入力フォームを表示するところまで作ってみましょう。
ハンドルとメッセージを入力できるフォームをデザインします。
・実行するとフォームが表示され、投稿もできますが、投稿内容の処理が
ないので、単にフォームが再表示されるだけです。
・「<INPUT TYPE="hidden" NAME="md" VALUE="1">」は、投稿時の処理
と通常の表示処理との判定用にフォームに付けてあります。
つまり、投稿ボタンを押したときだけ、md = 1 が投稿内容と一緒にパラメ
タとして渡されます。この項目は非表示になっています。
#!/usr/local/bin/perl
#//=====================================================================
#// test1.cgi 簡易伝言板
#//=====================================================================
#// 準備
$title = '簡易伝言板';
$callcgi = 'test1.cgi';
print << "END_OF_HTML";
Content-type: text/html
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<TITLE>$title</TITLE>
</HEAD>
<BODY>
<CENTER>
<P><B>◆ 簡易伝言板 ◆</B></P>
<FORM action="$callcgi" id=FORM1 method=post name=FORM1>
<INPUT TYPE="hidden" NAME="md" VALUE="1">
<TABLE bgcolor=#b0b0b0 border=0 cellPadding=3 cellSpacing=2>
<TBODY>
<TR bgcolor=#f0f0f0>
<TD nowrap><FONT size=-1>ハンドル</FONT></TD>
<TD nowrap><INPUT id=hd name=hd size="22" maxlength="40"></TD>
</TR>
<TR bgcolor=#f0f0f0>
<TD nowrap><FONT size=-1>メッセージ</FONT></TD>
<TD nowrap><INPUT id=ms name=ms size="62" maxlength="200"></TD>
</TR>
</TBODY>
</TABLE>
<BR>
<TABLE bgcolor=#b0b0b0 border=0 cellPadding=3 cellSpacing=2>
<TBODY>
<TR bgcolor=#f0f0f0>
<TD nowrap><INPUT id=submit1 name=submit1 type=submit value=" 投稿 "></TD>
<TD nowrap><INPUT id=reset1 name=reset1 type=reset value="リセット"></TD>
</TR>
</TBODY>
</TABLE>
</FORM>
</CENTER>
</BODY>
</HTML>
END_OF_HTML
#// 終了
exit(0);
■CGI-Perl 応用実地編資料
■CGI-Perl 基礎編資料
■CGI-Perl 基礎実地編資料
■PHP 基礎編資料
■PHP + MySQL 編資料
Copyright (C) 1999-2024 Y.SAK