- 201 名前：nobodyさん mailto:sage [03/12/06 00:29 ID:???]
- >>200
特にヒネりもなく縮め。
#!/usr/bin/perl
use CGI":all";*P=*param;-e($F='log.dat')||open F,">$F";if(P(n)&&P(h)){open F,
"+<$F";flock F,2;@b=<F>;@t=localtime;seek F,0,0;print F++$t[4],"/$t[3]:",P(n),
'<BR>',P(h),"<HR>\n",@b}open F;$I='<INPUT TYPE';print"Content-Type: text/html\n
一行掲示板<FORM METHOD=POST ACTION=\"$0\">名前$I=TEXT SIZE=20 NAME=n><BR>本文",
"$I=TEXT SIZE=60 NAME=h><BR>$I=SUBMIT VALUE=\"送信\"></FORM><HR>",<F>
過去の作品に出てくるテクや Perl の言語仕様をしっかり研究してから
次回作を作って見せて欲しいな。
ところで 7blosxom と 7thread と 7ch (>>128〜) 、参加作という事で
cm.xrea.cc/ に載せていいですか? ＞オリジナル作者各位
と言っても実際に載せるのは年越してからになると思いますが(苦)。
|
 |
