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

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

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

---

30: 名無しさん＠お腹いっぱい。 [age] 2001/06/07(木) 14:41 ID:??? >>29 age http://medaka.5ch.io/test/read.cgi/php/988890976/30

31: 名無しさん＠お腹いっぱい。 [sage] 2001/06/07(木) 15:35 ID:??? 気を取り直して =======================再開============================ http://medaka.5ch.io/test/read.cgi/php/988890976/31

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

34: 名無しさん＠お腹いっぱい。 [sage] 2001/06/07(木) 20:12 ID:??? >>33　そのスクリプトすごい好き。７行なのに名無し機能まである。 http://medaka.5ch.io/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.io/test/read.cgi/php/988890976/35

36: 33 [sage] 2001/06/07(木) 21:53 ID:??? >>35 なるほど。発言があったときのみ書き込むわけですね。 ぢつは33=元スレの20だけど、こりゃ20原案25作成ですね。 フォームの解析なんてホント目から鱗でした。 マジ勉強になります。 http://medaka.5ch.io/test/read.cgi/php/988890976/36

37: 32 [0] 2001/06/07(木) 22:44 ID:??? >>33 それ、ｽｺﾞｰｸ好きなんだけど、もうちょっと何か…(;´ー`)y-~~ でも勉強になりました。 http://medaka.5ch.io/test/read.cgi/php/988890976/37

38: 名無しさん＠お腹いっぱい。 [sage] 2001/06/07(木) 23:32 ID:??? Tiny BBSでいいじゃん？ http://yasu.asuka.net/soft/tinybbs.html http://medaka.5ch.io/test/read.cgi/php/988890976/38

39: 名無しさん＠お腹いっぱい。 [sage] 2001/06/09(土) 00:41 ID:??? なんか7行見て引いちゃったんだけどさ 漏れみたいな素人がminibbsパクッタのでもいいかい？ http://medaka.5ch.io/test/read.cgi/php/988890976/39

40: 名無しさん＠お腹いっぱい。 [0] 2001/06/09(土) 08:33 ID:??? >>38 誰か、Tiny BBSのソース上げておくれ。 http://medaka.5ch.io/test/read.cgi/php/988890976/40

41: 名無しさん＠お腹いっぱい。 [sage] 2001/06/09(土) 09:49 ID:??? >>40 なんで？落とせないか？ http://medaka.5ch.io/test/read.cgi/php/988890976/41

42: 名無しさん＠お腹いっぱい。 [sage] 2001/06/09(土) 14:42 ID:??? mx使って認証してるのか？ @以下のアドレスを@geocities.co.jpとかでDLしろよ http://medaka.5ch.io/test/read.cgi/php/988890976/42

43: 名無しさん＠お腹いっぱい。 [sage] 2001/06/09(土) 16:10 ID:??? FTP ソフトで入れ。 http://medaka.5ch.io/test/read.cgi/php/988890976/43

44: 名無しさん＠お腹いっぱい。 [妖怪シタタラズ] 2001/06/09(土) 16:39 ID:??? >>39 use strictな掲示板ならどんなんれもいいのれすー http://medaka.5ch.io/test/read.cgi/php/988890976/44

45: rubbish_lister [] 2001/06/11(月) 22:47 ID:oKTfyTH6 panton氏のIndexedFile.pmを見ましたが、いいですねぇ。 BBSを作るのがかなり楽になりそうです。 恩恵に預かるだけでは良くはならないので、 ソース中で幾つか気になった点を書いておきます。 * line 154 これは sub articles{ return @{ $_[0]->{_idxlist} } } でいいのではないでしょうか。 * IO::File IO::Fileはかなり大きいので使わずに済ませてもいいのでは？ CGIスクリプトとしての動作が前提なので、軽くしてまずいという事は無いかと。 * "$_" 気付いておられると思いますが、 所々暗黙の$_を使用していますね。 これもついでに。 http://medaka.5ch.io/test/read.cgi/php/988890976/45

46: 名無しさん＠お腹いっぱい。 [sage] 2001/06/11(月) 23:13 ID:??? >>45 素人&場違いで悪いんだけど $_って駄目なの？ http://medaka.5ch.io/test/read.cgi/php/988890976/46

47: rubbish_lister [] 2001/06/11(月) 23:30 ID:oKTfyTH6 >>46 いや、$_がダメってことは無いですよ。 ただ使うならばlocal宣言して欲しい…ということです。 # 消えるとまずいデータは極力$_に入れないようにしてはいますが http://medaka.5ch.io/test/read.cgi/php/988890976/47

48: 46 [sage] 2001/06/12(火) 00:23 ID:??? >>47 そういう意味なんすか サンクス http://medaka.5ch.io/test/read.cgi/php/988890976/48

49: 初期不良 [] 2001/06/12(火) 01:00 ID:MAetbv9U >>47 確かにそれ関係でばぐった時はちょっとやっかいだった http://medaka.5ch.io/test/read.cgi/php/988890976/49

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

あと 457 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.006s