【Perl】掲示板を使ろう！ (504ﾚｽ)
上下前次1-新
14(1): ３４７ 2001/05/06(日)16:48 ID:??? AAS
>>4
名無しさんの逆ってのが良くてそのまま使ってましたが。。。
これじゃだめかな?
しばらくやれるかどうか。。。
15: 4 2001/05/06(日)19:13 ID:??? AAS
>>14
なるほど・・・・言われてみれば確かに逆。
いやいやハンドルは何だっていいです。頑張って
16: _gunzip@お仕事やめたい 2001/05/07(月)06:04 ID:??? AAS
■■■■■■■□□□□□□□□□□□□□□□□□□□
0 20 40 60 80 100
■終わった
-IxAccessFile.pm （ログ、スレッド管理の入出力関係用）
-Article.pm （各投稿記事用クラス）
-post.cgi (1スレッド用・・・極めていいかげん)
-rm.cgi （投稿者/管理者記事削除）
□手を付けてない
-投稿制限 #後回し
-記事訂正 #コレは簡単
省10
17(1): _gunzip@お仕事やめたい x 50 2001/05/07(月)06:13 ID:??? AAS
>>panton氏
=line 248
>my $pointer = $self->_getpointer($id);
この部分は不要ですよね。既に$idからファイル内の位置が得られているのですから。
----------
あと、ドキュメントのBUGSとTODOに記載されている各項について
（"バリューに改行が入っているデータは扱えない。"・・・とか）
何か書こうかと思ったけれど・・・ちょっと後回しにします。
#「配列、スカラーへの対応」とかはどうするのかなあ・・・と興味が。
18: _gunzip@お仕事やめたい x 500 2001/05/07(月)06:17 ID:??? AAS
248->253 だな。はぁ
19: 名無しさん＠お腹いっぱい。 2001/05/07(月)06:28 ID:??? AAS
∧ ∧ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
(,,・∀・） ＜ あんまり無理するなよ
〜（＿__ﾉ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
20: 名無しさん＠お腹いっぱい。 2001/05/07(月)17:13 ID:??? AAS
∧ ∧ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
(,,・∀・） ＜ 楽しみに待ってるぞ >>all
〜（＿__ﾉ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
21: 名無しさん＠お腹いっぱい。 [sageage] 2001/05/09(水)20:46 ID:??? AAS
みんな死んでる...........................................
22: 名無しさん＠お腹いっぱい。 [0] 2001/05/09(水)20:47 ID:??? AAS
0
23: panton 2001/05/09(水)22:30 ID:??? AAS
>>17 _gunzip氏
（248行目でしたが・・）確かにそうですね。修正します。
> （"バリューに改行が入っているデータは扱えない。"・・・とか）
> 何か書こうかと思ったけれど・・・ちょっと後回しにします。
> #「配列、スカラーへの対応」とかはどうするのかなあ・・・と興味が。
うーん、考えどころです。
StorableとかFreezeThawとか使っちゃえば、必然的にそこらへん
全て解決するし、もっと言えば、メッセージオブジェクトとか
突っ込んじゃえばさらに楽だよなぁ・・・とか。
24: 名無しさん＠お腹いっぱい。 [0sage] 2001/05/10(木)17:06 ID:??? AAS
皆さん忙しいんでしょうね
25: age [age] 2001/05/18(金)18:49 ID:??? AAS
age
26: 名無しさん＠お腹いっぱい。 2001/05/19(土)09:58 ID:??? AAS
そして誰もいなくなった
27: age 2001/05/22(火)17:48 ID:VQJfqVeI(1) AAS
age
28: 名無しさん＠お腹いっぱい。 [0] 2001/06/01(金)16:13 ID:??? AAS
終わっちゃダメェ！！！！
29(1): 名無しさん＠お腹いっぱい。 2001/06/02(土)07:33 ID:??? AAS
長らくご愛顧頂き誠にありがとうございました。
＝＝＝＝＝＝＝＝＝＝＝終了＝＝＝＝＝＝＝＝＝＝＝
30: 名無しさん＠お腹いっぱい。 [age] 2001/06/07(木)14:41 ID:??? AAS
>>29 age
31: 名無しさん＠お腹いっぱい。 2001/06/07(木)15:35 ID:??? AAS
気を取り直して
=======================再開============================
32(2): 名無しさん＠お腹いっぱい。 2001/06/07(木)16:01 ID:??? AAS
特に2ch型とかにしなくてもいいから、とりあえず基本中の基本、
みたいなシンプルなヤツを誰か書いてくれんだろうか…
Perl上手い人ほど、わざわざシンプルなのって書かないんだよね。
33(4): 名無しさん＠お腹いっぱい。 2001/06/07(木)16:28 ID:??? AAS
いつぞやの七行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
省1
上下前次1-新書関写板覧索設栞歴
あと 471 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.025s