bbs.cgi再開発プロジェクト Part8

**root▲ ★** · NG

bbs.cgiの開発作業をすすめていくためのスレッドです。

FOXさんの努力によりSpeedyCGIへの対応が行われ、
パフォーマンスの向上が図られたbbs.cgi。

・さらなるカスタマイズ
・パフォーマンスの向上
・微妙な虫取り
・残された秘境エリアの開拓

あたりをターゲットに。

前スレ:
bbs.cgi再開発プロジェクト7
http://qb5.2ch.net/test/read.cgi/operate/1130918407/

**stream** ◆PNstream2s · 2007/02/23(金) 12:39:38

datの破損
http://wwwww.2ch.net/test/read.cgi/news4vip/1172149686/738-739
(●持ってない人用)　http://asnxload.dip.jp/files/ppfx00370.txt

738のレスを書き込み中に739の書き込みが割り込んだように見える

◆Choco52.ko · 2007/02/23(金) 12:40:37

>>860
再利用となる index.html や subback.html 作成用の subject.txt データに関しては、
bbs.cgi で subject.txt を更新(func.pl の UpdateSubjectDat())した後に

open(SUBJECT, $subjectTxtPath)
　　binmode(SUBJECT);
flock(SUBJECT, 1);
@subjectTxt = <SUBJECT>;
close(SUBJECT);
chomp(@subjectTxt);

で改めて読み込んで処理すればいいかと。
@subjectTxt = <SUBJECT>; な読み込みは Perl 内部で特に最適化されてる部分なので
二重の読み込み処理に見えますが、そんなにコストは高くないです。

◆Choco52.ko · 2007/02/23(金) 12:43:42

>>864
>>863の内容と同じですけど、書き込み時刻が３秒ズレているんでなぜ発生してるのか少々不可解ではあります。

◆Choco52.ko · 2007/02/23(金) 12:44:29

>>865 訂正
flock いらないですね

◆Choco52.ko · 2007/02/23(金) 12:46:58

>>859
いろいろと制約事項(subject.txtの内容が破損してないなど)はありますが

# subback.html
$tmpl = qq[<a href="%s/l50">%d: %s</a>\n];
$cnt = 0;
for (@subjectTxt) {
　　printf($tmpl, substr($_, 0, 10), ++$cnt, substr($_, 15));
}

でよいかと

◆Choco52.ko · 2007/02/23(金) 12:52:57

ついでに index.html 書き出し部分も

# index.html
$boradName = 'news4vip';
# 1..10
$tmpl = qq[<a href="../test/read.cgi/${boardName}/%s/l50" target="body">%d:</a> <a href="#%d">%s</a>　];
$cntLast = (@subjectTxt > 10) ? 10 : scalar(@subjectTxt) ;
for $cnt (1 .. $cntLast)
{
　　$_ = $subjectTxt[$cnt-1];
　　printf($tmpl, substr($_, 0, 10), $cnt, $cnt, substr($_, 15));
}

# 11..100
$tmpl = qq[<a href="../test/read.cgi/${boardName}/%s/l50" target="body">%d: %s</a>　];
$cntLast = (@subjectTxt > 100) ? 100 : scalar(@subjectTxt) ;
for $cnt (11 .. $cntLast)
{
　　$_ = $subjectTxt[$cnt-1];
　　printf($tmpl, substr($_, 0, 10), $cnt, substr($_, 15));
}

# 上位10スレの l10 のhtml化
$cntLast = (@subjectTxt > 10) ? 10 : scalar(@subjectTxt) ;
for $cnt (1 .. $cntLast)
{
# threadId 取得
　　$threadId = ($subjectTxt[$cnt-1], 0, 10)

　　# dat を読む (ここでもIOを減らす方法はいくつかある)
　　open(DAT, "${boardPath}/${threadId}.dat");

　　# 書く ( 1 と l10 部分)

}

株価【1100】 △ ◆cZfSunOs.U · 2007/02/23(金) 13:14:00

>>863
>(ryにあるアトミックとは、ファイル更新時のデータの一時的な乱れや
>(ryで雑談で出たファイルの不整合のことだと思いますが、

まぁそうですね．

>私の認識では、(ry掲示板全体のアトミックを考えてました。

一般論としてはそれも重要なことだとは思いますが，
2ch の特性を踏まえると普通のファイルロックの使い方では
先に述べたような不都合も出てくる，と．

# まぁ，そのあたりも乗り越えようと考えたのが bbsd なんですけどね．

>>864 デカいカキコのため，write() が複数になってその間に割り込んだ可能性もありますね．

>>865 なるほど......

>>868 少数とはいえ，まだ9桁スレキーも残ってるところあるかも？

>>869 html 部分は，別途こんなのを作ってます -> http://qb5.2ch.net/operate/html/
これを読み込んでつなげてる，と．

**root▲▲ ★** · 2007/02/23(金) 13:16:50

>>865 >>867
ふむふむ、改めて読めばよいと。

>>868 >>869
そんなかんじですか。
# Perl はほぼ素人だったり。

**root▲▲ ★** · 2007/02/23(金) 13:17:45

確かに、9桁のキーはまだ結構ありますね。

◆Choco52.ko · 2007/02/23(金) 13:30:42

10桁決め打ちでやってますが、９桁対応させるなら10桁目が数字かそうでないかで
条件分岐を追加すればいいだけですね。正規表現でやれば \d{9,10} ですみますけど
Perlの正規表現は他の実装に比べて早いですが、index や substr などの文字列処理に
比べたら馬鹿にならないほどコスト大(数十倍)だったりします。

**root▲▲ ★** · 2007/02/23(金) 13:31:53

>>873
せっかくやるなら、あんまり正規表現は使いたくないかも。
んで、どうするのがいんだべか。

◆Choco52.ko · 2007/02/23(金) 13:36:17

http://qb5.2ch.net/operate/html/ のアイデアはあるかなと思ってましたが、
ディスクをどの程度使用するかにも寄りますが、l10 だけでなく全てのレスを
HTML化しておけば、read.cgi でも使えますし、より効果的な負荷低減になると
思います。
バイナリの埋め込みになりますが、各レスのオフセット(seek の引数)も一緒に
インデクス化していれておけば、現実的可能な最速処理もできるかと

◆Choco52.ko · 2007/02/23(金) 13:38:05

>>874 ９桁対応版
{
　　substr($_, 9, 1) eq '.'
　　　　? printf($tmpl, substr($_, 0, 10), $cnt, substr($_, 15));
　　　　: printf($tmpl, substr($_, 0, 9), $cnt, substr($_, 14));
}

株価【1100】 △ ◆cZfSunOs.U · 2007/02/23(金) 13:42:39

>>875
>全てのレスをHTML化しておけば、read.cgi でも使えますし

これは昔 dat2html 使ってやろうとしてたことあったような記憶もおぼろげながら......
まぁ，read.cgi 出力に mod_cache かますとかやった方が手っ取り早いと思いますけど．

◆Choco52.ko · 2007/02/23(金) 13:42:57

>>876 修正
　　substr($_, 9, 1) eq '.' # 10文字目がピリオドなら９桁
　　　　:　printf($tmpl, substr($_, 0, 9),　$cnt, substr($_, 14))
　　　　? printf($tmpl, substr($_, 0, 10), $cnt, substr($_, 15));

◆Choco52.ko · 2007/02/23(金) 13:53:53

>>877
今の read.cgi って対象の .dat を読み込んで、1,300 や 1-20 や l50 なんかの指定に従って
対象の行を取り出して整形して出力する処理ではないかと思ってるのですが、この dat の行を
html に変換するコストが無駄になってるのでは？と思ってます。

あと、mod_cache をかませても l50 や指定なしのものだけをキャッシュさせて、それ以外の
特殊な条件指定したもの(300-400)はキャッシュの意味は少ないと思いますし、そちらのコストも
考えると、全レスhtml化の恩恵は大きいと思います。こちらも時間があれば仕様案まとめてみます

**root▲▲ ★** · 2007/02/23(金) 14:09:03

そんなわけで、プロファイリングしてみた。

1行目を
#!/usr/local/bin/perl -d:DProf
に変えて、できたtmon.outを処理。

レスはこれ。
http://dso.2ch.net/test/read.cgi/myanmar/1153850369/530
html/ の下がないと作り直すので、2つ目のレスで計測。

トリップあり、sage、●なし、BEなし。

%Time ExclSec CumulS #Calls sec/call Csec/c Name
14.4 0.077 0.095 1 0.0775 0.0948 main::MakeIndex4PC
13.1 0.070 0.070 1 0.0703 0.0703 main::IsKoukoku
8.82 0.047 0.266 1 0.0468 0.2661 main::bbs_entryXXX
5.63 0.030 0.233 30 0.0010 0.0078 main::BEGIN
5.63 0.030 0.026 1 0.0304 0.0262 main::initFOX
4.32 0.023 0.045 10 0.0023 0.0045 Net::DNS::Resolver::Base::BEGIN
4.32 0.023 0.052 22 0.0010 0.0024 Jcode::BEGIN
3.00 0.016 0.016 1 0.0156 0.0156 main::mumumuGetNowTime
3.00 0.016 0.016 11 0.0014 0.0014 DynaLoader::dl_load_file
2.82 0.015 0.030 10 0.0015 0.0030 LWP::UserAgent::BEGIN
2.82 0.015 0.023 73 0.0002 0.0003 Exporter::import
1.50 0.008 0.008 1 0.0078 0.0078 jcode::init
1.50 0.008 0.008 1 0.0078 0.0078 main::checkDenyList
1.50 0.008 0.008 1 0.0078 0.0078 main::foxReadSettings
1.50 0.008 0.008 1 0.0078 0.0078 Net::DNS::RR::_get_subclass

**root▲▲ ★** · 2007/02/23(金) 14:11:31

最初のは、index.html を作る処理ですね。
次のが広告かどうかのチェック。
3番目は各種初期化。

株価【1100】 △ ◆cZfSunOs.U · 2007/02/23(金) 14:17:21

>>879 基本的に，mod_cache に任せておけば大局的には読み出しの多いレス番指定が
ヒット率が高くなるでしょうし，読み出しの多いものが重点的にキャッシュされ，
一方少ないものは on the fly に生成するという形に収斂していくかと．

全レスを HTML 化したものもスタティックファイルとして保持させると，
あぼーん用スクリプトとか dat 落ちスクリプトとかにも対応する処理を
入れることになって，手間と効果のバランスからどうかなぁ，とも．

◆Choco52.ko · 2007/02/23(金) 14:25:01

>>880,881
speedy でのキャッシュされた実行ではなさそうなので、BEGIN や Exporter::Import などのコストも入ってますね。
となると上ふたつのコストが、ファイル読み込み処理と、正規表現の文字列処理なので、この部分が一番わかりやすい
大きなコストになってるような感じですね。
他の部分は、上二つに比べたらまだ気を使うほどのところでもなさそうです。

**root▲▲ ★** · 2007/02/23(金) 14:30:15

で、われわれがSaborinと呼んでいるのは、
MakeIndex4PC(とUpdateSubback)を呼ぶのをまばらにする、
というものですね。

◆Choco52.ko · 2007/02/23(金) 14:35:09

私が今後どのような形で(＆飽きずにいつまでｗ)お手伝いすることになるかわかりませんが、
FreeBSD の -stable と -current みたいに、現状の改善と安定を目指すものと、年末くらいに
完全にいちから再設計して作り直した(現状では雪だるまがそっち系なのかな？)システムという
形で現状ですべきこと、長期的に考えることを分けて考えてもいいような気がします。

現状では、>>880 のようなものとにらめっこして、ＬＡを減らすことかな？
あるいは現状の利用者数、投稿数で年末まで持つと仮定して、新バージョンの開発かな？ｗ
なんてことを考えるのははたから茶々いれるだけの技術者的の私個人としては楽しいのですが、
運営側としてはどうなんでしょ？

**root▲▲ ★** · 2007/02/23(金) 14:43:27

きっと、、、「運営側」っていう言葉について、
「それって何だろう」って素で思うようになると、
なんとなくいいかんじになる、んじゃないのかなと。

ここって「あっち側」とか「こっち側」とかじゃなくて、
管理人を除いてみんな同じところにいる、
っていうあたりから、はじまっているような気がするんで。

なんというか、このへんにいる人たちは
みんなたんなる「お手伝い」に過ぎなくて、
単にそれぞれ、出来ることが違うだけというか。なんとゆうか。

株価【1100】 △ ◆cZfSunOs.U · 2007/02/23(金) 14:46:09

>>885 一から再設計ということでは，しばらく前に VIP の有志の人たちが
レスデータをファイルでなく MySQL に入れるとかいうのを作ってたような．
雪だるまというか bbsd は，すでに稼働してる鯖もある (live23, live24)
ので長期的というほど先の話でもないと個人的に考えてはいますが，
呪文対応等の未実装部分をこれからぼちぼちやっていこう，ということで．

# むしろ，削除人や復帰人の人たちのことを考えれば，未実装部分は
# 早くなくした方がいいのかも，とも．

## 「運営側」に関しては >>886 に同意で．

**root▲▲ ★** · 2007/02/23(金) 14:48:55

で、>>886 みたいなものって、昔のインターネットには割とたくさんあったんですが、
今のインターネットには、もうなんか少なくなったというか、
ほとんど見当たらないようになりましたね。

「それいいっすね。いっちょやりますかぁ」「ごにょごにょ…」
「おい変だぞ、どうしたんだｺﾞﾙｧ」
「あちゃー、ごめんなさいー、戻しますー」みたいな、
アドホックというか、とりあえず試してみるというか。

そんなわけで私は２ちゃんねるに「昔からある、もともとのインターネットの姿」を、
ほんのちょっぴり、垣間見ていたりなんかして。

すれ違いすんませんです。

株価【1100】 △ ◆cZfSunOs.U · 2007/02/23(金) 14:52:05

>>888 まぁそうですね，これだけデカいサイトで挑戦的なことをできるところって
他にないでしょうしね．「普通の」大手サイトでは，▲が増えるどころじゃ済まないでしょうしｗ

◆Choco52.ko · 2007/02/23(金) 14:57:04

>>888,889
そういう土壌はこの一週間で充分堪能していますｗ
私も仕事で仕様ガチガチ安定して当然の世界でも生きてますし、
趣味のソフトウェア開発では、自由きままにやっています。
論文やレポート書いてどっかにポストするのも好きですし、
ちょうど今の新ばななは良い縁になったと思います。
顔色伺ってというのはあまり楽しくないので、自由気ままに
勝手にプロジェクト立ち上げて勝手に進めて、方針や意見が
合わなければ自然に影が薄くなっていくのかもしれないですね

**root▲▲ ★** · 2007/02/23(金) 15:01:40

そっすね。>>890

勝手にという中にもたぶん需要があったり、
動機付けがあったり、空気嫁があったりするのかなと。

私の基本思想はこのへんにでも適当に。
サーバ修理中につき(そろそろ退院予定らしいです)、Googleキャッシュでごめんなさい。

http://72.14.235.104/search?q=cache:9LcMvz3YJbkJ:mumumu.mu/human-2ch.html+mumumu.mu/human-2ch.html&hl=ja&ct=clnk&cd=1

株価【1100】 △ ◆cZfSunOs.U · 2007/02/23(金) 15:02:11

>>890 まぁ，何を隠そう私自身，勝手にコード書いて「これどうよ？」って
勝手に提示するってのをこれまで繰り返しながら，2ch にずぶずぶはまってきてますからｗ
チョコさんも，そんな感じではまっていくことになるのかなぁ，とｗ

◆Choco52.ko · 2007/02/23(金) 15:07:23

>>891
私の活動ポリシーの元になってるPerlの三大美徳に似てますね
ttp://www.nishiohirokazu.org/archived_coreblog/55

>>892
実験的なコード書くのと、各種検証してレポート書くのと、試作品
(もうちょっとで商品になりそうなのにその手前で止まってる)を
日常的に作ってますから、モチベーションさえあれば色んなことを
していく可能性は大きい環境ではありますｗ

**root▲▲ ★** · 2007/02/23(金) 15:14:50

>>893
それ、おもしろいですね。
mumumu.mu が復活したら、改変してみるかも。

◆Choco52.ko · 2007/02/23(金) 15:15:35

すぐ出来そうなことは実機のモニターになれるならということでこんな感じでｗ
ttp://yy28.60.kg/test/read.cgi/maido3/1170831265/85
スキルは今までにそれなりに蓄積してきて、必要があれば何でも作れるとは思うんだけど
モチベーションを持てる何かがないので日々興味の赴くままに(ここにいる理由がまさにｗ)
何かしております。先日までは amd64 や 128bitSSE で deflate 高速化出来ないか試行錯誤してたりｗ

◆Choco52.ko · 2007/02/23(金) 15:29:38

とりあえず、今私にクリティカルにできそうなこととしては‥‥‥
sub MakeIndex4PC
sub IsKoukoku
の部分の現状のコードをいただけるのであれば、リファクタリングさせてもらいますよ。

株価【1100】 △ ◆cZfSunOs.U · 2007/02/23(金) 15:49:45

MakeIndex4PC に関しては，いろいろ挿入するファイルがあったり
出力内容自体が複雑故って感じもしますね．

IsKoukoku の方は，チョコさんから見ていじりがいがあるかも？
確か，IsKoukoku の中核部分は以前から公開されていて，
クローズドではないと思うので貼ってみます．

foreach my $NG_word_ref (@FOX_Ro54)
{
my $NG_word = $NG_word_ref->[0]; # リファレンスから取り出し。
if (my $matched = eval{ return $In_Strings =~ m<$NG_word> ? $& : undef }) {
$NG_word_ref->[0] = $matched; return $NG_word_ref;
} # 合致したらNGワード部分の摘出とリファレンスを返す。
# 不正 NG ワードがあったり引っかからなければスキップ
}
return '';

ちなみに，@FOX_Ro54 は初期化段階でこんな感じで読み込まれます．

open(ADFILE,"....../Rock54data");
@FOX_Ro54 = map { [ (split /<>/)[5,6,7] ] } <ADFILE>;
close(ADFILE) ;

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:08:22

>>897
Rock54のファイルの場所は秘密なのでは？

**Kseniya ★** · 2007/02/23(金) 16:10:49

つうか
そのフォルダが超機密だったのであった。

うひゃひゃひゃひや

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:13:39

／(^o^)＼

**stream** ◆PNstream2s · 2007/02/23(金) 16:13:49

川 ;´・｀;）ｲｲﾊﾅｼﾔﾅｰ

認証ぐらいかけとけよ

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:13:57

どうもアレかなと思ったらやっぱり。。

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:14:07

なんてこった・・・。

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:15:12

GJ！

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:15:45

△

◆Choco52.ko · 2007/02/23(金) 16:18:07

>>897
このレスあぼ～んしておくか、変更する必要があるかも（汗
私のトリップに @hotmail.com が使えますから、そちらに
可能な部分だけ改めて送ってもらえれれば確認できます。

ここのコードはあまり手を加えられるところはないですね。
一応先日 Rock54 がらみで試作してみたコードはこちら
http://choco.tank.jp/trac/wiki/Rock54re

株価【1100】 △△ ◆cZfSunOs.U · 2007/02/23(金) 16:22:36

あまりにひどいミスで......すいませんm(_ _)m

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:25:03

あっはっは。

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:25:33

これはもうキャップ支給ものだな

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:32:37

(　ﾟ∀ﾟ)o彡°キャップ！キャップ！

**チョコバナナ** ◆Choco52.ko · 2007/02/23(金) 16:33:01

>>907
Don't mind ♪
職を失うわけではないですし(私は仕事で契約破棄されたことありますけどｗ)
誰の命にかかわるわけではないので(総務省から警告うける内容でもないですし)
気にせず生きましょう

**Kseniya ★** · 2007/02/23(金) 16:33:41

はっはっは

まぁたぶんなんともないと思うけど
何かあったら何かするといういつもの作戦で

>>909
だな

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:34:21

祝★強制支給！

**root▲▲ ★** · 2007/02/23(金) 16:36:05

SunOSさんが、本件を管理人に丁寧なメールで報告&ごめんなさいしました。
(私に Cc: されていました)

管理人からは、

> うひゃひゃ、たまにあることで。

というメールがすぐに返ってきました。

そんなわけで、私はどうしたらよかろうでしょうか。

やはり何か、★でも出しますかね。
でもそれもなんかびみょうかも。

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:37:08

▲ ★

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:37:46

白三角　標準装備で

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:39:04

つサン▲▲ ★

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:45:29

わろとけわろとけ
( ﾟ∀ﾟ)ｱﾊﾊ八八ﾉヽﾉヽﾉヽﾉ＼ /　＼　/　　＼

このスレで最速1.000やろか？（素

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:47:45

今からこのスレはSunOSさんのキャップを考えるスレにします。

サンサンサン★はどう？

◆boot//5v0I · 2007/02/23(金) 16:48:03

>>918
やるな

**On the Rock ★** · 2007/02/23(金) 16:53:36

　ｩｹｹｹｹ
　/ﾉ＼∧_∧Ψ
／ﾉ＼( ﾟ∀ﾟ)｜
⌒⌒ (∪ﾇﾙﾎﾟ⊃
　　 ←し―Ｊ｜｡+ﾟ

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:54:09

>>921
ガッ

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 16:59:23

祭りだと聞いて歩いてきました

株価【1100】 △△ ◆cZfSunOs.U · 2007/02/23(金) 17:13:00

いつもならファイルパスとか事前に気付いて伏せるんですが......
今回は注意力不足だったようで......

# ★ を頂くのは恐れ多いので，\u263C あたりで......

**root▲▲ ★** · 2007/02/23(金) 17:14:55

http://www.fileformat.info/info/unicode/char/263c/index.htm

ふむ、、、。

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 17:28:56

ん、なんかﾏｿｺとか呼ばれそうなアレだな

**チョコバナナ** ◆Choco52.ko · 2007/02/23(金) 17:32:05

>>925
同じグループに他にも SUN があるようです。>>926 のご指摘もありますし、黒塗りにしたこちらはいかが？
http://www.fileformat.info/info/unicode/char/2600/index.htm 'BLACK SUN WITH RAYS'

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 17:39:28

こりゃアナルだな

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 17:52:24

閉鎖騒動になるぞ。

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 17:53:56

rootたんって▲一つ増えた？
気づかなかったな

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 17:54:32

sage忘れorz

**外野ｧｧﾝ** · 2007/02/23(金) 20:36:55

恐れ多いもなにも　罰ですから　ﾆﾔﾆﾔ

**石狩の人** ◆/o....orz. · 2007/02/23(金) 20:47:46

ここはチョコバナナに★でどうよ？

◆TWARamEjuA · 2007/02/23(金) 22:07:27

printf $tmpl, '.', $cnt, index $_, '.', 0 == 8
　? substr $_, 14
　: substr $_, 15
;

で良さそうな。。。
でもってIsKoukokuみたいに冗長なループの中でないのなら、/oしてあげればそんなに負荷とかは変わらないような。。。＠RegExp.

**stream** ◆PNstream2s · 2007/02/23(金) 22:18:47

>>880をみると、subback.htmlの作成はそんなにコスト高くはない？

株価【1100】 △△ ◆cZfSunOs.U · 2007/02/23(金) 22:40:54

まぁ，subject.txt, subback.html, index.html あたりは bbsd 使えば，
いずれ bbs.cgi では処理しなくて済むようになる部分ではありますからね．
IsKoukoku みたいなのはどっちにしろ bbs.cgi でやらなきゃならない部分ですが．

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 22:56:25

そういえば>>864の4096byte毎dat破損はどうするの？

#つかここ(bbs.cgi)じゃなかったり？

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 23:01:00

レスを書き込んでるところをprintからsyswriteに変えればいいんでない

株価【1100】 △△ ◆cZfSunOs.U · 2007/02/23(金) 23:03:28

>>937 とりあえず修理してほしいって話なら↓かな？
http://qb5.2ch.net/test/read.cgi/operate/1132072662/l50

今後の対策ならここの範疇の話ですが．
# まぁ，これも bbsd 使えば起きなくなるはずですけど．

**動け動けウゴウゴ２ちゃんねる** · 2007/02/23(金) 23:10:04

あ、一応対策できそうなら～ということで

でも考えれば4096byte行くような事はそうないだろーし…無視で良いのかな

**動け動けウゴウゴ２ちゃんねる** · 2007/02/24(土) 00:12:16

なんとなくsubback.html、スレ立ての順にソートできないかな

と言ってみるテスト

**動け動けウゴウゴ２ちゃんねる** · 2007/02/25(日) 01:36:38

だいぶ前にも書いた気がする
ヘッドラインの代用になるから便利だと思うけどまだ実現してない

**動け動けウゴウゴ２ちゃんねる** · 2007/02/25(日) 01:48:07

５行くらいで実現可能なんだけど、運営が導入してもいいと腰を上げない限りは無理なんだろうな

**動け動けウゴウゴ２ちゃんねる** · 2007/02/25(日) 18:40:31

ファイル壊れそう。

**動け動けウゴウゴ２ちゃんねる** · 2007/02/26(月) 18:32:14

http://qb5.2ch.net/test/read.cgi/sec2chd/1172332070/6
名無しさん必死だな<>sage<>2007/02/24(土) 21:50:02 GxILijLRP<>ハーモニクス金玉<>ハーモニクス金玉<>p2.2ch.net(151880)222.7.56.145<>210.135.99.5<>
( )<>Monazilla/1.00 (P2/p2.2ch.net; p2-client-ip: 222.7.56.145; p2-user: 151880)

222.7.56.145 → wbcc6s08.ezweb.ne.jp
p2+携帯の時に芋掘りログに携帯のシリアル番号が記録されていない模様。

そして"( )"ってなぁに

**動け動けウゴウゴ２ちゃんねる** · 2007/02/26(月) 19:12:35

それ、p2でレスするときに、p2自身がアクセスされたときのデータつけてるだけだから。
2ch側がどうこう言う問題じゃない。

**動け動けウゴウゴ２ちゃんねる** · 2007/02/26(月) 23:18:02

PCでIP出してるんだから
携帯も識別番号出すべきかと
荒らしに寛容すぎ

**動け動けウゴウゴ２ちゃんねる** · 2007/02/27(火) 00:04:11

>>947
P2スレで要望してください

**947** · 2007/02/27(火) 00:06:21

ごめん、p2スレかと勘違いして書いた

**動け動けウゴウゴ２ちゃんねる** · 2007/02/28(水) 22:20:56

なんかpc11鯖移転前後でスレタイに空白がついてる。

移転前からあったスレで移転後に書き込みが無いスレ。

**動け動けウゴウゴ２ちゃんねる** · 2007/02/28(水) 22:32:57

以前から移転後はそんなんだよ
レスのない古いスレはず～～～っと空白付いたまんま

**動け動けウゴウゴ２ちゃんねる** · 2007/02/28(水) 22:39:41

仕様でしたか。了解しますた。

**動け動けウゴウゴ２ちゃんねる** · 2007/03/01(木) 07:23:38

復帰スクリプトの不具合？

**動け動けウゴウゴ２ちゃんねる** · 2007/03/01(木) 07:43:22

仕様

**動け動けウゴウゴ２ちゃんねる** · 2007/03/01(木) 11:46:59

ここでいいのかなあ。

http://dso.2ch.net/myanmar/subject.txt
http://dso.2ch.net/myanmar/index.html
壊れまくり。
レス数回りがおかしいのかな。
前後の改行が変とか無いとか。
書き込む度に壊れていく。

**stream** ◆PNstream2s · 2007/03/01(木) 11:59:39

index.htmlは壊れてるけど、subject.txtは壊れてないように見える

**動け動けウゴウゴ２ちゃんねる** · 2007/03/01(木) 12:09:35

1169114098.dat<>もうね阿保か馬鹿かと11
(913)
1171239491.dat<>記号<>&"' (4)
1171239344.dat<>記号<>&"'
(42)
1155409133.dat<>JavaScript版read.cgiの動作試験はここで (116)

**動け動けウゴウゴ２ちゃんねる** · 2007/03/01(木) 12:32:04

早朝からなんかやってたっぽいな。
http://dso.2ch.net/test/read.cgi/myanmar/1171239344/39-

株価【1300】 △△ ◆cZfSunOs.U · 2007/03/01(木) 12:43:35

>>955-958 subject.txt 処理の改造とかやってますた．今は直ってるかと．

**動け動けウゴウゴ２ちゃんねる** · 2007/03/01(木) 12:46:51

はいはーい。

**動け動けウゴウゴ２ちゃんねる** · 2007/03/09(金) 09:42:32

全部のサーバーでbbsdを使う方向になるんですかね？
bbsdまでのつなぎとしてsubback.htmlとindex.htmlを生成するデーモンとか考えてみたんですが
(subback部分は少し作った)

株価【1100】 △△ ◆cZfSunOs.U · 2007/03/09(金) 12:35:00

IsKoukoku() でこれは効くかも...... 最初のデータロードの部分は今

@FOX_Ro54 = map { [ (split /<>/)[5,6,7] ] } <ADFILE>;

ってなってますが，これを

@FOX_Ro54 = map {
my @a = (split /<>/)[5 .. 7];
eval { no warnings; [qr/$a[0]/, @a[1 .. $#a]]; };
} <ADFILE>;

のようにすると，ロード時に regex がプリコンパイルされて，その後の処理が軽くなりそう．
さらに，regex のエラートラップもロード時に行って，IsKoukoku() 内では
eval が不要になる，と（ダメポなのだけ除外され，他の正常なのは使われます）．
# eval 内でも警告は発生するので no warnings 入れてますが，-w や use warnings してなければ不要です．
安直にテストしてみると，

% perl -we'use strict; use Benchmark; open F, $ARGV[0]; our @thr = <F>; close F; \
open F, $ARGV[1]; @_ = <F>; close F; \
our @rocka = map [(split /<>/)[5 .. 7]], @_; \
our @rockb = map { my @a = (split /<>/)[5 .. 7]; eval { no warnings; [qr/$a[0]/, @a[1 .. $#a]]; }; } @_; \
timethese(1, { a => sub { foreach my $res (@thr) { no warnings; eval { $res =~ /@$_[0]/; } foreach (@rocka); } }, \
b => sub { foreach my $res (@thr) { no warnings; $res =~ /@$_[0]/ foreach (@rockb); } } });' \
alaska/dat/1147437176.dat Rock54Data
Benchmark: timing 1 iterations of a, b...
a: 42 wallclock secs (41.94 usr + 0.00 sys = 41.94 CPU) @ 0.02/s (n=1)
(warning: too few iterations for a reliable count)
b: 42 wallclock secs (41.91 usr + 0.01 sys = 41.92 CPU) @ 0.02/s (n=1)
(warning: too few iterations for a reliable count)

% perl -we'use strict; use Benchmark; open F, $ARGV[0]; our @thr = <F>; close F; \
open F, $ARGV[1]; @_ = <F>; close F; \
our @rocka = map [(split /<>/)[5 .. 7]], @_; \
our @rockb = map { my @a = (split /<>/)[5 .. 7]; eval { no warnings; [qr/$a[0]/, @a[1 .. $#a]]; }; } @_; \
timethese(1, { a => sub { foreach my $res (@thr) { no warnings; eval { $res =~ @$_[0]; } foreach (@rocka); } }, \
b => sub { foreach my $res (@thr) { no warnings; $res =~ @$_[0] foreach (@rockb); } } });' \
alaska/dat/1147437176.dat Rock54Data
Benchmark: timing 1 iterations of a, b...
a: 42 wallclock secs (41.42 usr + 0.02 sys = 41.44 CPU) @ 0.02/s (n=1)
(warning: too few iterations for a reliable count)
b: 20 wallclock secs (20.25 usr + 0.00 sys = 20.25 CPU) @ 0.05/s (n=1)
(warning: too few iterations for a reliable count)

プリコンパイルしたのを m// 内に入れるとあまり意味ないっぽいですが，
単独で使えば二倍速ぐらいになるらしいと．

ところで，

$NG_word_ref->[0] = $matched; return $NG_word_ref;

の部分は

return [$matched, @$NG_word_ref[1 .. $#$NG_word_ref]];

のようにしないと，@FOX_Ro54 の中身を改変してしまう悪寒......

削除系呪文の bbsd 対応も行われ雪だるま以外での bbsd 利用への道も開けてきたし，
T-Banana の実験が一段落したら，このあたりもぼちぼちやりましょうってことで．

株価【1100】 △△ ◆cZfSunOs.U · 2007/03/09(金) 13:12:32

>>961 んと，それは bbsd とどういう部分で違うんでしょうか？
例えば subject.txt のデータを内部的に保持して {subback,index}.html を
生成するとなると，ほとんど bbsd と同じことやるってことになりそうな......