SAK 図書館

SAK Streets メインストリート 図書館・カフェ 一覧 SAK Streets 検索
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | フリーソフト |

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 編資料
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | フリーソフト |

SAK Streets メインストリート 図書館・カフェ 一覧 SAK Streets 検索



Copyright (C) 1999-2024 Y.SAK