【Perl】掲示板を使ろう！
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。
2001/05/03(木) 20:56ID:lB9ErFH.-ＰＨＰ版 http://corn.2ch.net/test/read.cgi?bbs=php&key=982779383&ls=50
今のところのまとめ。
■ほういち氏
▽サンプル掲示板
http://www13.big.or.jp/~bell/nanashi/perl/
▽ソースコード
http://www13.big.or.jp/~bell/cgi-bin/files/
http://xbbs21.virtualave.net/xbbs/up/src/up010.lzh
■347氏
▽サンプル掲示板
http://takotubo.virtualave.net/bin/board.cgi
▽ソースコード
http://xbbs21.virtualave.net/xbbs/up/src/up022.lzh
■570氏
▽サンプル掲示板
http://maasa.antique.to/2ch/sample/index.html
■panton氏
▽ソースコード
http://www.panton.f2s.com/bbs/lib/IndexedFile.html
http://www.panton.f2s.com/bbs/lib/IndexedFile.pm.txt
0002名無しさん＠お腹いっぱい。
2001/05/03(木) 21:58ID:???0003panton
2001/05/03(木) 22:42ID:???俺のは下のURLに変えているので、
http://www.panton.f2s.com/bbs/lib/IndexedFile.pm
訂正させてください。
一応説明させていただくと、
データファイルの高速ランダムアクセスを、
インデックスファイルにより実現するモジュールです。
データの要素にはハッシュが格納できます。
構想中のBBSシステム用に作った物ですが、汎用のモジュールなので、
使ってみてバグを見つけてくれるとうれしい。
0004名無しさん＠お腹いっぱい。
2001/05/03(木) 23:23ID:???347氏もそろそろハンドルを名乗るのがいいと思われ。
ほういちさんの所は止まってるなあ・・・
570氏のはどうだろう・・・・
gunzipさん最近見かけないな。病院が忙しいのかな？
0005名無しさん＠お腹いっぱい。
2001/05/03(木) 23:34ID:???絶対要らない。
perl板の汚点弐編
0006名無しさん＠お腹いっぱい。
2001/05/04(金) 01:03ID:???0007名無しさん＠お腹いっぱい。
2001/05/04(金) 02:44ID:???使る？
0008名無しさん＠お腹いっぱい。
2001/05/04(金) 05:45ID:???一体どんな打ち間違いをしたのか・・・
0009１
2001/05/04(金) 08:20ID:???0011名無しさん＠お腹いっぱい。
2001/05/04(金) 23:12ID:???0012名無しさん＠お腹いっぱい。
2001/05/04(金) 23:26ID:???(1) みんな黄金週間で遊びまわっている。
(2) 世間が黄金週間のうちに仕事の遅れをとりもどそうと必死。
私は(2)です・・・
0016_gunzip@お仕事やめたい
2001/05/07(月) 06:04ID:???0 20 40 60 80 100
■終わった
-IxAccessFile.pm （ログ、スレッド管理の入出力関係用）
-Article.pm （各投稿記事用クラス）
-post.cgi (1スレッド用・・・極めていいかげん)
-rm.cgi （投稿者/管理者記事削除）
□手を付けてない
-投稿制限 #後回し
-記事訂正 #コレは簡単
-admin.cgi （そのまま） #面倒くさい
-setup.cgi （そのまま） #たぶん要らない
-post.cgi (複数スレッド用) #時間無い
▽あるといいな（なくてもいいな）
Storable or FreezeThaw or Data::Dumper
▽気が向けば
-tmpl_parse.pl （テンプレートファイルからコードを書かせ・・・たいなあ）
#コメント
入出力関係のは出来ているので（一応）、後は割とラクダと思う。
GW殆ど（というか全く）休めず、時間が全くとれないので捗らん（ぐは）
0017_gunzip@お仕事やめたい x 50
2001/05/07(月) 06:13ID:???=line 248
>my $pointer = $self->_getpointer($id);
この部分は不要ですよね。既に$idからファイル内の位置が得られているのですから。
----------
あと、ドキュメントのBUGSとTODOに記載されている各項について
（"バリューに改行が入っているデータは扱えない。"・・・とか）
何か書こうかと思ったけれど・・・ちょっと後回しにします。
#「配列、スカラーへの対応」とかはどうするのかなあ・・・と興味が。
0018_gunzip@お仕事やめたい x 500
2001/05/07(月) 06:17ID:???0019名無しさん＠お腹いっぱい。
2001/05/07(月) 06:28ID:???∧ ∧ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
(,,・∀・） ＜ あんまり無理するなよ
〜（＿__ﾉ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
0020名無しさん＠お腹いっぱい。
2001/05/07(月) 17:13ID:???∧ ∧ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
(,,・∀・） ＜ 楽しみに待ってるぞ >>all
〜（＿__ﾉ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
0021名無しさん＠お腹いっぱい。
2001/05/09(水) 20:46ID:???0022名無しさん＠お腹いっぱい。
2001/05/09(水) 20:47ID:???0023panton
2001/05/09(水) 22:30ID:???（248行目でしたが・・）確かにそうですね。修正します。
> （"バリューに改行が入っているデータは扱えない。"・・・とか）
> 何か書こうかと思ったけれど・・・ちょっと後回しにします。
> #「配列、スカラーへの対応」とかはどうするのかなあ・・・と興味が。
うーん、考えどころです。
StorableとかFreezeThawとか使っちゃえば、必然的にそこらへん
全て解決するし、もっと言えば、メッセージオブジェクトとか
突っ込んじゃえばさらに楽だよなぁ・・・とか。
0024名無しさん＠お腹いっぱい。
2001/05/10(木) 17:06ID:???0025age
2001/05/18(金) 18:49ID:???0026名無しさん＠お腹いっぱい。
2001/05/19(土) 09:58ID:???0027age
2001/05/22(火) 17:48ID:VQJfqVeI0028名無しさん＠お腹いっぱい。
2001/06/01(金) 16:13ID:???0029名無しさん＠お腹いっぱい。
2001/06/02(土) 07:33ID:???＝＝＝＝＝＝＝＝＝＝＝終了＝＝＝＝＝＝＝＝＝＝＝
0030名無しさん＠お腹いっぱい。
2001/06/07(木) 14:41ID:???0031名無しさん＠お腹いっぱい。
2001/06/07(木) 15:35ID:???=======================再開============================
0032名無しさん＠お腹いっぱい。
2001/06/07(木) 16:01ID:???みたいなシンプルなヤツを誰か書いてくれんだろうか…
Perl上手い人ほど、わざわざシンプルなのって書かないんだよね。
0033名無しさん＠お腹いっぱい。
2001/06/07(木) 16:28ID:???#!/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
シンプルだぞ(笑)
0034名無しさん＠お腹いっぱい。
2001/06/07(木) 20:12ID:???0035名無しさん＠お腹いっぱい。
2001/06/07(木) 21:20ID:???元スレの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]}
003633
2001/06/07(木) 21:53ID:???なるほど。発言があったときのみ書き込むわけですね。
ぢつは33=元スレの20だけど、こりゃ20原案25作成ですね。
フォームの解析なんてホント目から鱗でした。
マジ勉強になります。
0038名無しさん＠お腹いっぱい。
2001/06/07(木) 23:32ID:???http://yasu.asuka.net/soft/tinybbs.html
0039名無しさん＠お腹いっぱい。
2001/06/09(土) 00:41ID:???漏れみたいな素人がminibbsパクッタのでもいいかい？
0040名無しさん＠お腹いっぱい。
2001/06/09(土) 08:33ID:???誰か、Tiny BBSのソース上げておくれ。
0041名無しさん＠お腹いっぱい。
2001/06/09(土) 09:49ID:???なんで？落とせないか？
0042名無しさん＠お腹いっぱい。
2001/06/09(土) 14:42ID:???@以下のアドレスを@geocities.co.jpとかでDLしろよ
0043名無しさん＠お腹いっぱい。
2001/06/09(土) 16:10ID:???0044名無しさん＠お腹いっぱい。
2001/06/09(土) 16:39ID:???use strictな掲示板ならどんなんれもいいのれすー
0045rubbish_lister
2001/06/11(月) 22:47ID:oKTfyTH6BBSを作るのがかなり楽になりそうです。
恩恵に預かるだけでは良くはならないので、
ソース中で幾つか気になった点を書いておきます。
* line 154
これは
sub articles{ return @{ $_[0]->{_idxlist} } }
でいいのではないでしょうか。
* IO::File
IO::Fileはかなり大きいので使わずに済ませてもいいのでは？
CGIスクリプトとしての動作が前提なので、軽くしてまずいという事は無いかと。
* "$_"
気付いておられると思いますが、
所々暗黙の$_を使用していますね。
これもついでに。
0046名無しさん＠お腹いっぱい。
2001/06/11(月) 23:13ID:???素人&場違いで悪いんだけど
$_って駄目なの？
0047rubbish_lister
2001/06/11(月) 23:30ID:oKTfyTH6いや、$_がダメってことは無いですよ。
ただ使うならばlocal宣言して欲しい…ということです。
# 消えるとまずいデータは極力$_に入れないようにしてはいますが
0049初期不良
2001/06/12(火) 01:00ID:MAetbv9U確かにそれ関係でばぐった時はちょっとやっかいだった
0050名無しさん＠お腹いっぱい。
2001/06/20(水) 02:05ID:???0051ウェブ作成初心者
2001/06/27(水) 00:45ID:DrGg5Duk知ってるのは“ＲＥＭＥＭＢＥＲ ＰＥＡＲＬ ＨＡＢＯＲ”くらいッス。
www.tripod.lycos.comとかはどうやって ウェブサイトや掲示板を作るかよくわかりません。
とりあえずトライポッドに無料サイトを開設して掲示板を設置したいのですが、
ウェブ作成関連のプログラミングにめちゃ詳しい方教えてください。
メモ帳でｃｇｉファイル？を作ってアップする？とか意味がわかるようでわからないです。
0052名無しさん＠お腹いっぱい。
2001/06/27(水) 09:08ID:???0053名無しさん＠お腹いっぱい。
2001/06/27(水) 09:11ID:???ﾌﾟ
■ このスレッドは過去ログ倉庫に格納されています