【Perl】掲示板を使ろう! at PHP【Perl】掲示板を使ろう! - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このスレッドのURL■項目テキスト104:103 01/07/20 01:29 AwYw1thE 一時間で書いたから最低なソースだ。 素人丸出し。 でも一応動く。 動けばいいよね。 だめ? 105:名無しさん@お腹いっぱい。 01/07/20 01:32 WE74UShE ? 106:名無しさん@お腹いっぱい。 01/07/20 01:34 WE74UShE あっ 掲示板か ゴメ 107:わ、 01/07/20 03:36 O.8zSDuM age 108:103 01/07/20 21:47 AwYw1thE #!/usr/local/bin/perl use CGI $a=new CGI;print$a->header,"<form action=n.cgi><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; 少しだけ短くなったかな? 109:103 = 108 01/07/20 22:30 AwYw1thE なんかアドバイスきぼーん。 もっと短くしたいです。 110:名無しさん@お腹いっぱい。 01/07/20 22:33 CGI.pmをつかって「もっと短く」と言われてもなぁ…と思ってしまう。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch