n5

200X/00/05
ちょこっとｐｅｒｌが解ってきたので？？
基本的には、HTMLからPOSTでCGIに送り、そのHTMLを書き直してからまた表示をさせる方法なのですが・・・書き込みデータをどうやって処理するかが面白いところで（*^^*ゞ
ｏｐｅｎ命令だけで掲示板を作ってみよう・・・(＾。^/)ウフッ
これが書きこみを次々と、下に表示してしまう凄い掲示板になってしまった(*^^*ゞ
明日は、ちゃんと新しいカキコが上に表示されるようにしよう・・・。

まず送るがわのフォームＨＴＭＬの作成、これはHTMLが書ける人なら誰でも書ける？
このような感じのhtmlファイルを書く。

<HTML>
<HEAD><TITLE>TESTBBS</TITLE></HEAD>
<BODY>
<FORM METHOD="POST" ACTION="cgi-bin/****.cgi">
KAKIKO<TEXTAREA NAME="memo" ROWS="4" COLS="60">
</TEXTAREA><P>
<INPUT TYPE="submit" VALUE="submit">
<INPUT TYPE="reset" VALUE="reset">
<HR>
</FORM></HTML>
《これを表示させるとこんな感じ→ 「dbbbs1.html」》

続いてCGIのファイルなのですが・・・

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
read(STDIN, $naka, $ENV{"CONTENT_LENGTH"});
@nakami = split('&', $naka);
foreach(@nakami) {
($hidari, $migi) = split("=");
$migi =~ tr/+/ /;
$migi =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
$kaku{$hidari} = $migi;
}
$memo = $kaku{'memo'};
$dasufile="../****.html";
$nakamifile = "../****.txt";
print <<MAMA;
<META HTTP-EQUIV="Refresh" CONTENT="0;URL=http://127.0.0.1/~*****/****.html">
<BODY>
matenne<p>
MAMA
open(FILE, ">>$nakamifile");
select FILE;
print <<MAMA;
$memo<hr>
MAMA
close(FILE);
open(DASU, ">$dasufile");
select DASU;
print<<MAMA;
<HTML>
<HEAD><TITLE>TESTBBS</TITLE></HEAD>
<BODY>
<FORM METHOD="POST" ACTION="cgi-bin/****.cgi">
message:<TEXTAREA NAME="memo" ROWS="4"COLS="60">
</TEXTAREA><P>
<INPUT TYPE="submit" VALUE="submit">
<INPUT TYPE="reset" VALUE="reset">
<HR>
MAMA
open(KAKI, "$nakamifile");
@kaki = <KAKI>;
print @kaki;
print "</form>";
print "</html>";
close(DASU);
exit;

しかし？？これはログを次々と書き込みを追加してしまうんです(*^^*ゞ
《この掲示板に書き込みするとこんな感じ→ 「dbbbs2.html」》