【Perl】掲示板を使ろう！ (502ﾚｽ)

【Perl】掲示板を使ろう！ http://medaka.5ch.net/test/read.cgi/php/988890976/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

32: 名無しさん＠お腹いっぱい。 [sage] 2001/06/07(木) 16:01 ID:??? 特に2ch型とかにしなくてもいいから、とりあえず基本中の基本、 みたいなシンプルなヤツを誰か書いてくれんだろうか… Perl上手い人ほど、わざわざシンプルなのって書かないんだよね。 http://medaka.5ch.net/test/read.cgi/php/988890976/32

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

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.794s*