【Perl】掲示板を使ろう! at PHP【Perl】掲示板を使ろう! - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このスレッドのURL■項目テキスト111:103 01/07/21 10:50 #!/usr/local/bin/perl use CGI $a=new CGI;print$a->header,"<form><input name=b><br><input name=c>"; ($b,$c)=($a->param('b'),$a->param('c'));if($c){$c=~s/<|>|:/*/g;if(!$b){$b="名無し";} open(A,">>d");print A"<hr>$b:$c\n";}open(A,"d");@e=<A>;@f=reverse(@e);print @f; <form action=n.cgi> => <form> #actionはデフォルトで自分自身らしい。 名無しさん => 名無し #これはどうでもいいか・・・。 これで横に長いが何とか4行 112:JAPU 01/07/21 16:18 どうでもよい話かもしれないが、actionは#REQUIREDです。 113:名無しさん@お腹いっぱい。 01/07/21 17:04 >>112 DOCTYPE宣言がない以上ほんとにどうでもよい話ですね。 114:103 01/07/21 20:30 #!/usr/local/bin/perl use CGI $a=new CGI;print$a->header,"<form><input name=b>";$b=$a->param('b'); if($b){$b=~s/</</g;open(A,">>c");print A"$b";}open(A,"c");print<A>; これ以上はむりかな。 だんだん飽きてきた。 つーかこんなのは掲示板じゃない。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch