【Perl】掲示板を使ろう！ (502ﾚｽ)
【Perl】掲示板を使ろう！ http://medaka.5ch.net/test/read.cgi/php/988890976/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
33: 名無しさん＠お腹いっぱい。 [sage] 2001/06/07(木) 16:28 ID:??? いつぞやの七行BBS #!/usr/local/bin/perl %f=map{tr/+/ /;s/%(..)/pack("H2",$1)/eg;s/</&</;s/>/&>/;$_}split/[&=]/, $ENV{QUERY_STRING};$f{n}||="名無し";open F,"+<bbs.dat";flock F,2;$e= "$f{n} &>$f{m}<BR>\n"if($f{m});@e=($e,<F>)[0..20];seek F,0,0;print F @e; print"content-type: text/html\n\n<title>BBS</title><h1>BBS</h1><form action='bbs.cgi'><p>名前<input name=n value='$f{n}'><br>記事<input name=m size=50><br><input type=submit></p></form><hr><p>@e</p><hr>"; __END__ >>32 シンプルだぞ(笑) http://medaka.5ch.net/test/read.cgi/php/988890976/33
34: 名無しさん＠お腹いっぱい。 [sage] 2001/06/07(木) 20:12 ID:??? >>33 そのスクリプトすごい好き。７行なのに名無し機能まである。 http://medaka.5ch.net/test/read.cgi/php/988890976/34
35: 名無しさん＠お腹いっぱい。 [sage] 2001/06/07(木) 21:20 ID:??? >>33 元スレの25だけど、無駄なファイルアクセス避けるためには、 $e="$f{n} &>$f{m}<BR>\n"if($f{m});@e=($e,<F>)[0..20];seek F,0,0;print F @e; は、下みたいにしたほうがいいかもね。 @e=<F>;if($f{m}){seek F,0,0;print F @e=("$f{n} &>$f{m}<BR>\n",@e)[0..20]} http://medaka.5ch.net/test/read.cgi/php/988890976/35
36: 33 [sage] 2001/06/07(木) 21:53 ID:??? >>35 なるほど。発言があったときのみ書き込むわけですね。 ぢつは33=元スレの20だけど、こりゃ20原案25作成ですね。 フォームの解析なんてホント目から鱗でした。 マジ勉強になります。 http://medaka.5ch.net/test/read.cgi/php/988890976/36
37: 32 [0] 2001/06/07(木) 22:44 ID:??? >>33 それ、ｽｺﾞｰｸ好きなんだけど、もうちょっと何か…(;´ー`)y-~~ でも勉強になりました。 http://medaka.5ch.net/test/read.cgi/php/988890976/37
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.033s