【Perl】掲示板を使ろう！ (504ﾚｽ)
上下前次1-新
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
34: 名無しさん＠お腹いっぱい。 2001/06/07(木)20:12 ID:??? AAS
>>33 そのスクリプトすごい好き。７行なのに名無し機能まである。
35(1): 名無しさん＠お腹いっぱい。 2001/06/07(木)21:20 ID:??? AAS
>>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]}
36: 33 2001/06/07(木)21:53 ID:??? AAS
>>35
なるほど。発言があったときのみ書き込むわけですね。
ぢつは33=元スレの20だけど、こりゃ20原案25作成ですね。
フォームの解析なんてホント目から鱗でした。
マジ勉強になります。
37: 32 [0] 2001/06/07(木)22:44 ID:??? AAS
>>33
それ、ｽｺﾞｰｸ好きなんだけど、もうちょっと何か…(;´ー`)y-~~
でも勉強になりました。
38(1): 名無しさん＠お腹いっぱい。 2001/06/07(木)23:32 ID:??? AAS
Tiny BBSでいいじゃん？
外部ﾘﾝｸ[html]:yasu.asuka.net
39(1): 名無しさん＠お腹いっぱい。 2001/06/09(土)00:41 ID:??? AAS
なんか7行見て引いちゃったんだけどさ
漏れみたいな素人がminibbsパクッタのでもいいかい？
40(1): 名無しさん＠お腹いっぱい。 [0] 2001/06/09(土)08:33 ID:??? AAS
>>38
誰か、Tiny BBSのソース上げておくれ。
41: 名無しさん＠お腹いっぱい。 2001/06/09(土)09:49 ID:??? AAS
>>40
なんで？落とせないか？
42: 名無しさん＠お腹いっぱい。 2001/06/09(土)14:42 ID:??? AAS
mx使って認証してるのか？
@以下のアドレスを@geocities.co.jpとかでDLしろよ
43: 名無しさん＠お腹いっぱい。 2001/06/09(土)16:10 ID:??? AAS
FTP ソフトで入れ。
44: 名無しさん＠お腹いっぱい。 [妖怪シタタラズ] 2001/06/09(土)16:39 ID:??? AAS
>>39
use strictな掲示板ならどんなんれもいいのれすー
45(3): rubbish_lister 2001/06/11(月)22:47 ID:oKTfyTH6(1/2) AAS
panton氏のIndexedFile.pmを見ましたが、いいですねぇ。
BBSを作るのがかなり楽になりそうです。
恩恵に預かるだけでは良くはならないので、
ソース中で幾つか気になった点を書いておきます。
* line 154
これは
sub articles{ return @{ $_[0]->{_idxlist} } }
でいいのではないでしょうか。
* IO::File
IO::Fileはかなり大きいので使わずに済ませてもいいのでは？
省5
46(2): 名無しさん＠お腹いっぱい。 2001/06/11(月)23:13 ID:??? AAS
>>45
素人&場違いで悪いんだけど
$_って駄目なの？
47(2): rubbish_lister 2001/06/11(月)23:30 ID:oKTfyTH6(2/2) AAS
>>46
いや、$_がダメってことは無いですよ。
ただ使うならばlocal宣言して欲しい…ということです。
# 消えるとまずいデータは極力$_に入れないようにしてはいますが
上下前次1-新書関写板覧索設栞歴
あと 457 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.017s