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

**root▲ ★** · NG

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

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

・雪だるま作戦への対応
・さらなるカスタマイズ
・パフォーマンスの向上
・微妙な虫取り
・長いメインルーチンをより短くコンパクトに

あたりがターゲットか。

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

**root▲ ★** · NG

過去スレ:
bbs.cgi 再開発ﾌﾟﾛｼﾞｪｸﾄ
http://qb3.2ch.net/operate/kako/1053/10530/1053067870.html
bbs.cgi再開発プロジェクト２
http://qb3.2ch.net/operate/kako/1069/10691/1069144193.html
bbs.cgi再開発プロジェクト３
http://qb5.2ch.net/operate/kako/1076/10766/1076666901.html
bbs.cgi再開発プロジェクト４
http://qb5.2ch.net/operate/kako/1101/11019/1101984763.html
bbs.cgi再開発プロジェクト5
http://qb5.2ch.net/operate/kako/1103/11034/1103495887.html
bbs.cgi再開発プロジェクト6
http://qb5.2ch.net/test/read.cgi/operate/1113117347/

関連スレ:
【雪だるま】bbsd⇔各cgi間のI/F仕様について考え・詰めていくスレッド
http://qb5.2ch.net/test/read.cgi/operate/1130482779/

**動け動けウゴウゴ２ちゃんねる** · 2005/11/02(水) 17:06:52

/i

っていまだに生きてるんでしょうかね？
もしそうでなければ「Apacheレベルでcへリダイレクトに変更」でもかまわないとおもうのですが・・・

# たしかiってcの前身でいいんですよね？

**root▲ ★** · NG

前スレの終盤で出た事項:
・/i はのろいらしい
・で、ほとんど取ったつもりだが、まだちょっとだけ残っているらしい

988 名前：root▲ ★[sage] 投稿日：2005/11/02(水) 16:46:50 ID:???0 ?###
友人の話では、Perl では /i の処理がめちゃんこ遅いという話があるらしい。

つまり、
if($ENV{'SERVER_NAME'} =~ /2ch\.net/i)

みたいなのも、ちりも積もれば山となる可能性ありと。

989 名前： ◆SSu.zv/rvs [sage] 投稿日：2005/11/02(水) 16:48:01 ID:4sehsTr40
ほとんど /i は取ったつもりだけど・・・

990 名前：▲ ◆SANUKI/VII [sage] 投稿日：2005/11/02(水) 16:48:34 ID:j49UPKofP
iってまだあったっけ？

991 名前：root▲ ★[sage] 投稿日：2005/11/02(水) 16:50:00 ID:???0 ?###
>>989
多くはないみたいですが、いくつか散見されるようです。
(>>988 は実際のソースからのコピペ)

992 名前：root▲ ★[sage] 投稿日：2005/11/02(水) 16:54:08 ID:???0 ?###
気づいたところは、私のほうでも取っておくです。
今ざっと見直してみましたが、たぶん、もうそんなにないと思いますです。

**root▲ ★** · NG

>>3
えっと、そうじゃなくて、文字列比較の時の /i です。
つまり、大文字小文字を区別しない場合の話。

どうも、Perlってこんなかんじのことをしているらしいのです(裏とっていないのでうそかもです)。

/ABC/i の処理
↓
abc
abC
aBc
Abc
AbC
ABc
AbC
aBC
ABC
と、それぞれ比較

**root▲ ★** · NG

あ、AbCがひとつ多いね。

▲ ◆SANUKI/VII · NG

おじさんが急いで1000取りしてるように見えた

◆SSu.zv/rvs · 2005/11/02(水) 17:33:35

正規表現をインタプリタで動かしたら
1,000万はあながち嘘じゃないっすよ

**動け動けウゴウゴ２ちゃんねる** · 2005/11/02(水) 17:38:30

Perlをインタプリタと言い切るのは誤解の元

**root▲ ★** · NG

>>8
複雑なのをくべると、まじめにありそうですね。< 1000万

/i の件については、知り合いのPerlプログラマの話だと、

/ABC/i
/[Aa][Bb][Cc]/

で、下のほうが明らかにパフォーマンスがいい(というか、上が悪杉らしい)そうなので、
Perlの /i の実装がへぼいということの模様です。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/02(水) 18:03:00

>>10
あーその話ですか、スマソ。では本件の場合は2ch.netの大文字小文字区別なわけなので

if($ENV{'SERVER_NAME'} =~ /2ch\.net/i)

を

if($ENV{'SERVER_NAME'} =~ /2[Cc][Hh]\.[Nn][Ee][Tt]/)

とすればいいんでしょかね。

**root▲ ★** · NG

>>11
そういうことなわけですが、
現状、単純に /i を取ってしまってもいいような気がします。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/02(水) 18:08:47

ttp://qb5.2CH.NET/ではアクセスできないんだっけ？
ドメインはCase無関係だよね

◆SSu.zv/rvs · 2005/11/02(水) 18:09:02

わたしは

◆SSu.zv/rvs · 2005/11/02(水) 18:09:22

iをとってコーディングしています

**root▲ ★** · NG

>>14-15
…ですね。ほとんどの部分はそうなっているです。

>>13
規格上はそうですが、そのへんはいろいろ微妙なようですね。
小文字に直してから送出してくるブラウザやシステムも、少なからずある模様。

◆SSu.zv/rvs · 2005/11/02(水) 18:13:03

実際にはそれで(iなし) 何の問題も起こっていません

◆SSu.zv/rvs · 2005/11/02(水) 18:15:39

ちなみに

2CH.net 等でアクセスしたら(bbs.cgiにそう入ってきたら) Samba24=600 にしてます

**動け動けウゴウゴ２ちゃんねる** · 2005/11/02(水) 18:40:49

iがどのくらい遅いかは、考えるより測ったほうがいいんじゃない？
use Benchmark;で。

**root▲ ★** · NG

>>19
そんなのあるですか。

とりあえずできるだけ(数箇所ですが)、追放してみた。 @ qb6
様子を見て配布予定。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/02(水) 18:48:02

>>18
$ENV{SERVER_NAME}はブラウザから渡される値を直ではなくapacheが生成するのでは？

まあ/iが高価なこととは関係ないんだけど

◆SSu.zv/rvs · 2005/11/02(水) 18:52:20

いやー

言いたいことは「iは使わない」という方針でやっているから
議論の意味がないということだったり

**root▲ ★** · NG

>>22
999(仮名)をみるところも、/i 追放してよかですか?

◆SSu.zv/rvs · 2005/11/02(水) 18:54:37

できるならってことかと、

**root▲ ★** · NG

>>24
なるほど。
じゃ、追放したいですね。1レスごとに絶対になめるところだから。

追放しますので、規制リストを書く時には気をつけてくださいーって、
ちょろさんに伝えておいてくださいです。

◆SSu.zv/rvs · 2005/11/02(水) 18:58:26

ちょろさんがやっているのは一面かと、
多面はアクセスする側だったり、、、

◆SSu.zv/rvs · 2005/11/02(水) 18:58:56

他面だった

**root▲ ★** · NG

sec2chdを見ている限り、大文字小文字がきちんと入るなら、
現状ならアクセスする側も実害はないかなと、思っていたり。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/02(水) 19:07:10

use Benchmarkも良いけど、プロファイルもね。

**root▲ ★** · NG

>>29
ですね。
プロファイリングのおかげで、
改良前のIsKoukokuがめちゃくちゃ高コストだったことがわかったです。

今は※の人の改良のおかげで、live系以外は有効にできました。

**root▲ ★** · NG

BBS.CGI - 2005/11/03

index.html にできるリンク関連を修正。

・www2.ime.st => www.ime.st
・https:// でも ftp:// でも http:// になってしまっていたのを修正(虫取り)
・同時に /ig も追放。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/03(木) 05:17:16

root氏めちゃくちゃおっつぃんぐ

**root▲ ★** · NG

さらに調整。

・https:// と ftp:// は ime.st / pinktower.com を経由しない
(bbs.cgiが当初の思想として予期した動作)
・http:// の外部リンクは ime.st / pinktower.com 経由(従来通り)
・gopher: whois: news: telnet: の特殊処理を廃止
・https:// と ftp:// の処理は、一部サーバ(live系など)ではリンクにしない
・http:// は従来通りどのサーバでもリンクにする

**root▲ ★** · NG

重そうな正規表現パターンマッチングを少しは整理できたと思うです。
html/ の下のやつ全部、この処理通っているので、
意外とばかにならないんじゃないかなと。

**root▲ ★** · NG

>>33 は、板トップ(index.html)生成部分の処理です。
(read.cgi ではないので要注意)

**動け動けウゴウゴ２ちゃんねる** · 2005/11/03(木) 11:24:31

>>33
> ・gopher: whois: news: telnet: の特殊処理を廃止

そんなごにょごにょしてたんですか・・・

**root▲ ★** · NG

>>36
大昔から、変わってなかったんでしょうね。

この4つは「私が２ちゃんねるに来た2001年～現在まで、
一度もリンクとして使われているのを見たことがなかった」ので、
もはや不要であろうと判断したです。

**root▲ ★** · NG

&jcode::tr(\$GB->{FORM}->{'FROM'}, '＃', '#');
とか、
&jcode::tr(\$GB->{FORM}->{'mail'}, '＃', '#');

とかって、もうちょっと効率よくできないのかしら。

◆TWARamEjuA · NG

>>38
そんなあなたに・・・
use encoding;
http://search.cpan.org/~dankogai/Encode-2.12/encoding.pm

**root▲ ★** · NG

>>39
それ、5.6.1でも使える?

**root▲ ★** · NG

BBS.CGI - 2005/11/04

動きそのものは変わりませんが、雪だるまをめざして
bbs_main のかなりの部分をサブルーチン化しました。

$GB 操作しているのでカプセル化はぜんぜんですが、
自分で読んでいて、bbs_main が長すぎて頭がうにーになってきたので、
整理の意味を込めて、いじっています。

ひととおりのテストはしてありますので、大丈夫だとは思いますが、
もし何かへんなことがあったら、知らせてくださいです。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/04(金) 22:11:35

｜∀・）＜いくらー

◆TWARamEjuA · NG

>>40
http://search.cpan.org/src/DANKOGAI/Encode-2.00/encoding.pm
うー（苦笑）
=head1 ABSTRACT

Let's start with a bit of history: Perl 5.6.0 introduced Unicode
support. You could apply C<substr()> and regexes even to complex CJK
characters -- so long as the script was written in UTF-8. But back
then, text editors that supported UTF-8 were still rare and many users
instead chose to write scripts in legacy encodings, giving up a whole
new feature of Perl 5.6.

Rewind to the future: starting from perl 5.8.0 with the B<encoding>
pragma, you can write your script in any encoding you like (so long
as the C<Encode> module supports it) and still enjoy Unicode support.
This pragma achieves that by doing the following:

**動け動けウゴウゴ２ちゃんねる** · 2005/11/04(金) 22:49:22

もしかしてjcode.pl使ってるの？
だとしたら、MakefileしたJcode.pmの方が速いんじゃ？

**root▲ ★** · NG

>>44
Jcodeは他のところで使っているはずなので、全サーバに入っているはずですね。

どうすればいいのかしら。

◆TWARamEjuA · NG

>>44
おそらくほとんどのbanana鯖には入っていないと思うので、
かなりむりぽかと（哀）＠なのでPerl5.6.*のまま

>>45
なので、banana鯖に入ってJcode.pm 0.88あたりをゲトして組み込まなきゃだと思うのですです（泪）
最新のJcode.pm は2.1*でしてEncode.pmのラッパになっていたりします。@5.8.*

なので、PIEの中の人にbananaにperlを5.8.*（最新は5.8.7）におながいしないと。。。

**root▲ ★** · NG

>>41 ですが、まだまだ作業進行中です。
今は 40% ぐらいの進捗か。

先は長いとゆうことで。

**root▲ ★** · NG

BBS.CGI - 2005/11/05
>>41 の続き。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/05(土) 08:17:34

再開発に協力したいのですが、
一般人はソースとか見ること出来ないですか？

**動け動けウゴウゴ２ちゃんねる** · 2005/11/05(土) 09:19:57

>>49
そう言うことがわからない人は再開発しなくていいで(^_^;)

**動け動けウゴウゴ２ちゃんねる** · 2005/11/05(土) 09:59:50

なぜ？

**動け動けウゴウゴ２ちゃんねる** · 2005/11/05(土) 10:32:22

そういうことが判らない人は（ｒｙ

**動け動けウゴウゴ２ちゃんねる** · 2005/11/07(月) 22:09:18

再開発に協力したいのですが、
一般人はソースとか見ること出来ないですか？

◆TWARamEjuA · NG

協力するにも色々な方法があるわけでして♪
root★さんが悩んで居られるようでしたら助言をしてあげたり最適化したルーチンを提示したりとかとか♪

なんでもかでも「対等でなければならない」なんて孟宗竹なんてのは根っこから切り取らないと♪

**root▲ ★** · 2005/11/08(火) 03:17:02

1000超えの判定って、html/ の下を作るところの最初の部分でやっているのね。
ちょっと、驚いた。

◆SSu.zv/rvs · 2005/11/08(火) 04:13:24

挑戦してみる?

よたしは毎年挑戦しようと思ったけど
負け続け、、、

**root▲ ★** · 2005/11/08(火) 04:22:33

>>56
その様子は、何度かaccuse/operateを通じて見ているです。

なんか、いかにも効率悪そうで、気持ち悪くて、重そうなことをしてるんだなぁと
はじめて実際に、少しだけ気持ちがわかったわけです。
(これまでは、そこにたどり着く前に既に負けていた)

&MakeWorkFile を初めて呼ぶところの前までの整理整頓と、
できる範囲でのサブルーチン化は、それなりにやったです。

でも、そこから先が、、、。
たぶん、アイガー北壁なんだろうなと。

#==================================================
#　ファイル操作（subject.txt & subback.html）
#==================================================

# 雪だるまサーバでは、以降のファイル処理はしない(bbsdが実行)
if(&IsSnowManServer($ENV{'SERVER_NAME'}))
{
&endhtml($GB);
}

####################################
# ここから先はまだカオス状態 by む #
####################################

**root▲ ★** · 2005/11/08(火) 04:32:01

まずは読んでいたりします。

ここからは思いつきで手直しすると遭難しそうなので(何せアイガー北壁)、
じっくり、やってみようかなと。

とりあえず、
$GBX->{OVER1000} = 0 ;# 1000超えフラグ(現在は未使用)

を追加してみた。

**root▲ ★** · 2005/11/08(火) 05:04:58

BBS_CONTENTS_NUMBER の意味を初めて知った私ガイル。

**root▲ ★** · 2005/11/08(火) 05:10:01

BBS_LINE_NUMBER は、「省略されました」か。

**root▲ ★** · 2005/11/08(火) 05:14:02

MakeWorkFile とりあえず読み終わり。
今日はもう遅いから、どうするかはいったん寝て考えるか。

とりあえず >>1 の処理と BBS_LINE_NUMBER 分のレスについての
おんなじような処理について、
べたにおんなじルーチンが2回書かれていたということはわかたです。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/08(火) 13:18:33

BBS_CONTENTS_NUMBER分のレスかな。
1とそれ以外、同じようで違う。
まとめるのが面倒で放置って感じっすか。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/08(火) 13:28:47

>>59
http://kobe.cool.ne.jp/r_030/2ch_jikken/SETTING.htm
これは見てなかったの？

**root▲ ★** · 2005/11/08(火) 13:53:33

>>63
そのページは当然見てますけど、
これまでbbs.cgiについては私の知識がその程度だったってことです。

**root▲ ★** · 2005/11/08(火) 16:19:23

こんなかんじかな。

#############################################################################
# 処理中のdatの現在のレス数を調べる
# 新スレの場合0、異常発生時は-1
#############################################################################
sub GetResNum
{
my ($GB) = @_;
my $resnum = 0;

# 1) 新スレなら0を返す
if($GB->{NEWTHREAD}) { return 0; }
# 2) subject.txtを調べてみる
# subject.txtはSaborin系サーバでも逐次更新されているはず
$resnum = &GetResNumFromSubject($GB);
# 3) とれなかったら仕方ないので、datの行数を読む
# 990超えている時も、安全のためdatを読む
if ($resnum <= 0 || $resnum > 990)
{
$resnum = &GetResNumFromDat($GB);
}
# 4) それも失敗したら、-1を返す
if ($resnum <= 0) { return -1; }
# 得られた結果を返す
else { return $resnum; }
}

**root▲ ★** · 2005/11/08(火) 16:23:35

今は、毎回こういうことをやっているです。

open(RDAT,"<$dattemp");
@logdat=<RDAT>; #ログを配列に読み込む
close(RDAT);

#ログのカキコ数を取得
$lognum = @logdat;
if($lognum > 999)
{
if(open(OUT,">>$dattemp"))
{

my $b1000 = "このスレッドは１０００を超えました。 <br> \
もう書けないので、新しいスレッドを立ててくださいです。。。 ";
my $p1000 = $GBA->{PATH} . "1000.txt";
(以下略)

**root▲ ★** · 2005/11/08(火) 16:28:33

1000超えのdat追記部分は、Process1000ってのを書こう。

**root▲ ★** · 2005/11/08(火) 16:42:46

>>65
通常の板だと、これだとコストが低くないかもなぁ。
subject.txt って、何百行とか千何百行とかあるわけで。
bbsdのように、mmap() するのもちょっとあれだし。

スレ数が少ない板は、subject.txt優先で、
スレ数が多い板は、dat優先がよさげ?
どのくらいが変更点なのかな。

**root▲ ★** · 2005/11/08(火) 16:43:22

変更点じゃなくて、分岐点か。

**root▲ ★** · 2005/11/08(火) 16:45:36

&GetHojisuu 書く必要がありそうですね。
こいつは出航時に1回だけ読めばいいだろうから、initFOXでやろう。

**root▲ ★** · 2005/11/08(火) 17:40:32

>>70
mumumuGetHojisuu 実装済み。

出航時に、$FOX->{HOJISUU} にサーバの保持数が入っている。

**root▲ ★** · 2005/11/08(火) 17:50:05

で、>>65 はこうか。

#############################################################################
# 処理中のdatの現在のレス数を調べる
# 新スレの場合0、異常発生時は-1
#############################################################################
sub GetResNum
{
my ($GB) = @_;
my $resnum = 0;

# 1) 新スレなら0を返す
if($GB->{NEWTHREAD}) { return 0; }
# 2) 保持数が少ない板では、subject.txt を調べる
if ($FOX->{HOJISUU} < 200)
{
# 2) subject.txtを調べてみる
# subject.txtはSaborin系サーバでも逐次更新されている
$resnum = &GetResNumFromSubject($GB);
}
# 3) 次に、datの行数を読む (2)がしくった場合も同様)
# 990超えている時も、安全のためdatを読むことにしよう
if ($resnum <= 0 || $resnum > 990)
{
$resnum = &GetResNumFromDat($GB);
}
# 4) それも失敗したら、-1を返す
if ($resnum <= 0) { return -1; }
# 得られた結果を返す
else { return $resnum; }
}

**root▲ ★** · 2005/11/08(火) 17:55:37

このほうがいいか。

#############################################################################
# 処理中のdatの現在のレス数を調べる
# 新スレの場合0、異常発生時は-1
#############################################################################
sub GetResNum
{
my ($GB) = @_;
my $resnum = 0;

# 1) 新スレなら0を返す
if($GB->{NEWTHREAD}) { return 0; }
# 2) 保持数が少ない板では、subject.txt を調べる
if ($FOX->{HOJISUU} < 200)
{
# subject.txtを調べてみる
# subject.txtはSaborin系サーバでも逐次更新されている
$resnum = &GetResNumFromSubject($GB);
}
# 3) 次に、datの行数を読む (2)がしくった場合も同様)
# 990超えている時も、安全のためdatを読むことにしよう
if ($resnum <= 0 || $resnum > 990)
{
$resnum = &GetResNumFromDat($GB);
if ($resnum <= 0) { return -1; }
}
# 上記により得られた結果を返す
return $resnum;
}

**root▲ ★** · 2005/11/08(火) 18:07:21

外枠を作った。

Perlがだめだめな私に、愛の手を。

#############################################################################
# subject.txtに書いてあるレス数を調べる
# 異常時は-1
#############################################################################
sub GetResNumFromSubject
{
my ($GB) = @_;
my $subject = $GB->{PATH} . "subject.txt";
my $resnum = 0;

# subject.txtを開き、中身を調べる
open(SUBJ,"<$subject");
# ここに実際の処理を入れる
# 探すためのキーは$GB->{FORM}->{'key'}に入っている
# Perlではどうやるのが高速なんだろう
close(SUBJ);

return $resnum;
}

#############################################################################
# datのレス数を調べる(行数を調べる)
# 異常時は-1
#############################################################################
sub GetResNumFromDat
{
my ($GB) = @_;
my $datfile = $GB->{DATPATH} . $GB->{FORM}->{'key'} . ".dat";
my $resnum = 0;

# datを開き、行数を調べる
open(DAT,"<$datfile");
# ここに実際の処理を入れる
# Perlではどうやるのが高速なんだろう
close(DAT);

return $resnum;
}

**動け動けウゴウゴ２ちゃんねる** · 2005/11/08(火) 18:46:35

while (<DAT>) {}; $resnum = $.;

とか

**動け動けウゴウゴ２ちゃんねる** · 2005/11/08(火) 19:34:21

subject.txtから読む場合は、スレのタイトルに「<>」「(」「)」とか半角スペースが
入ってるとsplitで面倒になるかもね。出来るだけsubstr使うべきなんだろうな。

datファイルの行数調べるには・・・unixのwcコマンド使うとかw

**root▲ ★** · 2005/11/08(火) 19:34:42

出先に移動。10分ぐらい時間が。

>>75
ひとつ、書き忘れていたです。

どうせ必要になるので、
datを読んだ時には、つまりGetResNumFromDatが呼ばれた時には、
そのdat内の>>1と、以下の条件(*1)で抽出した行のdatは、
内容を保存しておきたいですね。

つまり、datを複数回読み込みモードでopenしたくないわけです。

(*1)if BBS_CONTENTS_NUMBERよりもレス数が多い
お尻のBBS_CONTENTS_NUMBER行ぶんのdatの内容を保存
else
頭の >>2 ～最後の行までのdatの内容を保存

これは、html/ の下のファイルを作るのに使っているですよ。

保存は、、、そうすね、
$GB->{DAT1} 文字列変数
$GB->{DATLAST} 文字列配列変数

っていうことにするか。

で、たぶんほんとは、subject.txt 的に上位のやつだけ作れるともっといいわけですが、
(つまり実際に index.html を合成する時に使うものだけ)
今は pageview.cgi があった時のコードのままになっているです。
つまり、1000個datがあれば、html/ の下のファイルも1000個あるです。
これは、別に考えることにしよう。

**root▲ ★** · 2005/11/08(火) 19:38:36

index.html 合成するところで、判定すりゃいいのか。

1000000000.dat に対する html/1000000000.html の最新版が必要になったら、
html/1000000000.html と 1000000000.dat の mtime を調べて、
(この時点では dat への追記は終わっているものとする)
もし html のほうの mtime のほうが古かったら、dat から html を合成するサブルーチンを呼べばいいと。

**root▲ ★** · 2005/11/08(火) 19:38:50

さて、いったん時間切れ。
またのちほど。

◆TWARamEjuA · NG

つ open ｺﾞﾆｮｺﾞﾆｮ or return -1; # 500鰓で悩む恐れ有りなので

**root▲ ★** · 2005/11/08(火) 19:39:43

で、$GB->{SABORIN} がtrueだったら、このへんの処理はキャンセルできると。

**root▲ ★** · 2005/11/08(火) 19:41:22

>>80
現在、datのopenはメインルーチン内で堂々とやっているですよ。
ひろゆき的堂々人生。

◆SSu.zv/rvs · 2005/11/08(火) 20:04:30

>内容を保存しておきたいですね。

それがうまくいけば楽なんですけどね、
bbs.cgi が非同期で同時に 30本とか走っているんですよ。
FIFOとかじゃなくてさ、

「どれが最後に終わるかわからない」という話だったり、
平気で後から来たのが追い越していきます。

それとの戦いの痕跡かと、

**動け動けウゴウゴ２ちゃんねる** · 2005/11/08(火) 20:14:25

$GB->{DAT1} = <DAT>;
@{$GB->{DATLAST}} = <DAT>;
$resnum = $.;
if ( @{$GB->{DATLAST}} > BBS_CONTENTS_NUMBER ) {
@{$GB->{DATLAST}} = splice(@{$GB->{DATLAST}}, -BBS_CONTENTS_NUMBER);
}

こんな感じになるんかな
でも>>83なのね

**root▲ ★** · 2005/11/08(火) 21:04:50

>>83
ですね。

今のやつは、なんでもかんでもdat読んで配列に突っ込んで、
配列の要素数数えて、
BBS_CONTENTS_NUMBERより大ならおしりから、
より小ならあたまからhtmlにして、html/html に入れ込む
みたいなことをやっているです。
で、1000行以上あったら、1000超え判定していたりするです。

つまり、datの読み込みモードでのオープンは1回で済んでいるものの、
毎回datを全行絶対なめなめしているわけです。
このへんをなんとかしたいかなぁと。

**root▲ ★** · 2005/11/08(火) 21:11:57

で、>>83 のこころは、
「subject.txt からとろうというのは誰もが思いつくわけだけど、
それって所詮非同期なんじゃないのかしら」

ってゆうことですよね。
ううむ。

> if ($resnum <= 0 || $resnum > 990)

ここを 900 とかかなぁ。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/08(火) 21:23:18

subject.txt更新前に別のbbs.cgiが参照するとずれるような希ガス
っていうかずれたからdat読みになったんじゃ？(違うかも)

**root▲ ★** · 2005/11/08(火) 21:28:11

>>87
所詮、参考記録でいいと思っていたりするです。
クリティカルなところで、コストを少しでもさげられるといいなと。

そのへんが、>>86 の if 文なわけで。
どうしてもうまくいかなきゃ、GetResNumFromSubjectをあきらめると。

▲ ◆cZfSunOs.U · 2005/11/08(火) 21:35:48

まぁ，bbs.cgi やその他各種呪文用 CGI と bbsd との I/F が完成したら，
雪だるま系鯖以外でも bbsd を使うという選択肢もあるのでしょうけど．

**動け動けウゴウゴ２ちゃんねる** · 2005/11/08(火) 22:05:38

>>88
参考記録といってもずれたままになりそうなのは気になる

個人的にはレス数と一緒にサイズも記録してあれば
少なくとも全読みは避けられそうと思っているけど
影響大きそうだからなあ

◆SSu.zv/rvs · 2005/11/08(火) 22:07:47

>参考記録

ってどういう意味?

**root▲ ★** · 2005/11/09(水) 00:55:26

subject.txtから取ったレス数よりも実際のdatの行数がいくつか増えてしまっていてもいい、
ぐらいの感覚で書きました。

ただ、900超えたあたりからはクリティカルか。

いずれにせよ、毎回全読みするコストを何とか下げられないかな、というのが、
subject.txtからとる趣旨なわけで、それが期待できないなら、
単にサブルーチン化して、整理整頓するだけかなぁと。

# おじさん、インテンショナルな徹夜で時差調整中?

◆SSu.zv/rvs · 2005/11/09(水) 00:58:26

>subject.txtから取ったレス数よりも実際のdatの行数がいくつか増えてしまっていてもいい、
>ぐらいの感覚で書きました。

わたしもその意見には賛成で、実は以前それを実験しました。

で、結果はというと、
惨憺たるものだったかと、たしか専用ブラウザが困ってしまうんじゃなかったかと、
もう何年も前の話で忘れちまったが、

眠くなったら寝るというみだらな作戦です。

**root▲ ★** · 2005/11/09(水) 01:00:45

>>93
で、900超えたらsubject.txtを信用するのやめて、
今までの方法でdatを読んじゃおうという、日和見風見鶏作戦かなぁと。

で、900をできるだけ1000に近づける方向でがんがってみると。

◆SSu.zv/rvs · 2005/11/09(水) 01:02:49

「dat と subject.txt のずれを許容してくれない」
とっても厳密に扱われているというのが問題だと思います。

900 とか 980 のことじゃなく

**root▲ ★** · 2005/11/09(水) 01:02:54

>>93
あ、そっか。
シンクロ具合とゆってますね。
あんまりずれが大きいと、subject.txt をあてにして動いているアプリさんたちが
困っちゃうってことですか。

めしめし。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/09(水) 01:18:58

現状でも、スレスト時にsubject.txtが変更されないため
subject.txtと実際の行数が一致しなくなり
毎回のように取得に行ってしまうクライアントもありますよ。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/09(水) 01:19:33

それはそのブラウザの作りが悪い

◆SSu.zv/rvs · 2005/11/09(水) 01:22:30

>>97
そんなんですよね

>>98
でも、その数が膨大だったりするのだ。

で、実際には高速で回転しているところは
dat と subject.txt が一致することなんてほとんどないから
それを利用してむ Saborin が生まれたのだ。
作る前はどうなるかと思ったけど、実際にやってみると
これがまずまず動いているんだな、よかったよかった

**root▲ ★** · 2005/11/09(水) 01:36:13

>>99
Saborin は確かに、結構効果ありますね。

Saborin = index.html / subback.html の更新をまばらにする
ただし subject.txt は更新する
ex系とlive系で絶賛動作中

SaborinはLAが閾値を超えると自動的に発動
cobra=30 / tiger=20 / banana=4

**root▲ ★** · 2005/11/09(水) 01:36:35

新スレはさぼらない >>100

**root▲ ★** · 2005/11/09(水) 01:42:01

>>100
> 自動的に発動
^
一般サーバでも

**root▲ ★** · 2005/11/09(水) 01:43:13

で、狼やらVIPやらanimeサーバやらで 500 エラーが起こりやすい理由の一端は、
>>80 が原因の予感のもより。

◆SSu.zv/rvs · 2005/11/09(水) 01:48:08

>>103
まだまだあちこちにありますからねぇ

**root▲ ★** · 2005/11/09(水) 01:53:07

>>104
狼でちょっとだけ聞いてみたところでは、
どうもクリーンナップ大作戦の後、少し減ったらしいです。

出なくなるのは、まだまだ先かなと。

**root▲ ★** · 2005/11/09(水) 04:04:11

結局、
・まずは従来通りdatから全部とることにして、クリーンナップをすすめる

ことにしました。
コストは、かわんないですもんね。

で、GetDatInfoを書きました。
>>84 さんに感謝です。

#############################################################################
# 処理中のdatの情報を$GBにセットする
# $GB->{DATNUM}, $GB->{DAT1}, $GB->{DATLAST}
#############################################################################
sub GetDatInfo
{
my ($GB, $outdat) = @_;
my $datfile = $GB->{DATPATH} . $GB->{FORM}->{'key'} . ".dat";
my $datlastnum = $FOX->{$GB->{FORM}->{bbs}}->{"BBS_CONTENTS_NUMBER"};

if($GB->{NEWTHREAD})
{
# 新スレの場合
$GB->{DAT1} = $outdat;
$GB->{DATNUM} = 1;
@{$GB->{DATLAST}} = ();
}
else
{
# レスの場合
open(DAT,"<$datfile");
$GB->{DAT1} = <DAT>;
@{$GB->{DATLAST}} = <DAT>;
$GB->{DATNUM} = $.;
close(DAT);
if (@{$GB->{DATLAST}} > $datlastnum)
{
@{$GB->{DATLAST}} = splice(@{$GB->{DATLAST}}, -$datlastnum);
}
}

return 0;
}

**root▲ ★** · NG

BBS.CGI - 2005/11/09

雪だるまに向けたクリーンナップ大作戦その3

・GetDatInfo (>>106) を作り、datへの追記(新スレでは作成)直後に呼ぶようにしました。
・datの情報はもっぱらここでとることにし、$GB に蓄えて使いまわすようにしました。
・html/ の下を作るところ(MakeWorkFile)では、datはオープンしなくしました。
・Over1000 をサブルーチン化して、GetDatInfo の直後に呼ぶようにしました。
・これでMakeWorkFile内から、1000超えチェックが分離できました。

**root▲ ★** · NG

subject.txt を作るところ

sage のほうが、処理工数が多いのね。
ちょっと目からうろこ。

**root▲ ★** · NG

BBS.CGI - 2005/11/09a

# 051109a 雪だるまに向けたクリーンナップ大作戦その4
# UpdateSubject (subject.txt作成) サブルーチン化
# いよいよ、神の領域の入り口に突入か by む

**root▲ ★** · NG

# 051109b @newsub を @{$GB->{NEWSUB}} にして追放(UpdateSubjectに封じ込め) by む

本日はここまでの予定。

**root▲ ★** · NG

で、わかってきたことは、
subject.txt って軽々しく作っている割に、
suback.html も index.html も /i/index.html (qb系 dso系 bbspinkのみ)も、
ぜーんぶ、これをベースにこしらえているらしいということだなぁ。

こりゃ、非同期にsubject.txtをなんてのは、とんでもない話だなぁ。
何が起きるか、予想もできないや。

というかたぶんもともと、宣撫らでの参照のために作ったんじゃなくて、
そうゆう内部処理のために、作ってるんだろうなぁ。

なぁ。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/09(水) 20:44:50

なぁ。

◆SSu.zv/rvs · 2005/11/09(水) 21:19:18

なぁ

その部分は歴代誰もさわっていない気がする
なぜなら太古のままの姿で残っているから、
しいていえば dat と subject のずれをなくすため
および㌧㌦をなくすため、神か or トオルさんが2001年ころ手を加えたかと、

**root▲ ★** · 2005/11/09(水) 22:36:45

>>113
神殿の入り口にさしかかったと。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/10(木) 00:14:57

｜∀・）＜そこに凶悪なすらいむが現れたっ！

**動け動けウゴウゴ２ちゃんねる** · 2005/11/10(木) 16:46:58

root探検隊2005秋
「驚愕！未開の地bbs.cgiの奥地に謎の古代神殿subject.txt生成部を発見！？」

**動け動けウゴウゴ２ちゃんねる** · 2005/11/10(木) 22:15:46

今日あたりから妙な動作をしてる気がするんだが、何かいじってる？
具体的には
・某板で、かなり時間を置いて違う内容を書き込もうとしても二重書き込みが出る
・しょうがないのでIP変えたら書き込めた
・IP変えた後、他の板に書き込んだら何故かcookie確認が出ない
出た現象としてはそれだけ。
どこの板とかは出さないので、回答には特に期待していないけど。

**root▲ ★** · 2005/11/10(木) 23:22:03

>>117
そのへん、全然変えてないです。

上2つは、過疎な板だと正常な動作としてよくあるですね。
一番下は、ちと気になりますが。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/10(木) 23:50:38

確認画面の話が出てるから、自分もちょっと

先日の京ぽんのID末尾o→0の関係でごちゃごちゃやってた以降
自分の味ぽんはどの板で書いても、回線切ろうが、電源切ろうが
確認画面が1度も出ないんですが、良いのでしょうか？

ごちゃごちゃの当日に指摘した時は流された気がしますが…

**root▲ ★** · 2005/11/10(木) 23:56:11

>>119
奥様(味ぽんユーザ)では「普通は最初だけ出るよ」
「でも、最初でも出ないときがあるみたい。再現性はわかんない」

ということらしいです。
うぅむ。

# 「最初だけ出る」が、意図した動作。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/11(金) 00:11:52

>>120
そう、「最初の1回だけ出て後は出ない」なら今まで通りで何の
疑問も感じない訳ですが

自分は最近、確認画面を全然見てないから謎なんですよ

まぁ、面倒が無くて良いって言えば良い訳ですけど

**root▲ ★** · 2005/11/11(金) 00:14:17

>>121
それって、京ぽんを 0 にしてからなったということですかね。
ううむ。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/11(金) 00:30:50

>>122
ﾀｲﾐﾝｸﾞ的にはそんな感じです
完全にｲｺｰﾙかと言われると判りませんが

確か一連の作業中に一時的に味ぽんから書き込めなくなって
その後、復活してからの様な気がしますが

**root▲ ★** · 2005/11/11(金) 00:58:58

>>123
ふーむ。

うちの環境では幸運にも実物で試してもらえるので、
また、時間取れたときにみてみるです。

**root▲ ★** · 2005/11/11(金) 01:03:49

おぉ、わかた、、、。>>123

あとで、なおしておこう。 @ 今qb6で別の作業中

**動け動けウゴウゴ２ちゃんねる** · 2005/11/11(金) 01:22:19

>>124
>>125
よろしくお願いします
でわでわ

**root▲ ★** · 2005/11/11(金) 02:07:06

とりあえずoperate2で動くのを確認しました。>>126

今日の作業がおわったら、配布で。

**root▲ ★** · 2005/11/11(金) 02:50:50

BBS.CGI - 2005/11/11

109 名前： ◆MUMUMUhnYI [sage] 投稿日：2005/11/11(金) 02:42:33 ID:d6RFRwJS0
・味ぽんでも投稿確認画面が出るように(虫取り)
・MakeWorkFile から緊急ストッパーを切り出し(Emerg1020 Emerg1050)
・UpdateSubback サブルーチン化
・MakeIndex4PC サブルーチン化

今日までで、bbs_main中から、だらだらと長くて保守性の悪い部分はなくなったはず

**動け動けウゴウゴ２ちゃんねる** · 2005/11/11(金) 10:36:36

質問。味ぽん＝京ぽん？

**動け動けウゴウゴ２ちゃんねる** · 2005/11/11(金) 11:16:25

一般的な意味を聞いてるなら味ぽん!=京ぽん。JRCの出した初代AirH" Phoneの事と考えるのが普通。
MUMUMU氏の意図ならAirH" PHONE全部という可能性もあるな。
# もうAirH" PHONEというブランドは無いんだけども。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/11(金) 11:44:53

>>130
やはりAirH"=京ぽんをもじって味ぽんに（りゃな解釈？

**root▲ ★** · 2005/11/11(金) 11:53:17

私の定義:

・味ぽん: AH-J3001V AH-J3002V AH-J3003S

これらはbbs.cgi内で特別扱いしています( o 表示のゆえん )。

京ぽんのbbs.cgiでの特別扱いは全廃されました。
PCと全く同じ扱いです。

今後出るWillcom端末は、特別扱いしたくないですね。
ちゃんとリファラ吐いて、クッキー食べてほしい。

**root▲ ★** · 2005/11/11(金) 15:53:35

bbs.cgi のぐろーばるーについてのチラシの裏

$FOX <= 船単位で設定 (基本的に出航時に1回設定される)
$GB <= 1トランザクション単位で設定 (1投稿ごとに設定される)

例えば、SETTING.TXT の値はこうやって得られるです。

・SETTING.TXTは出航時に読めばよい固定値だから$FOX
・でも板名はトランザクションごとに変わるから$GB
・その下に要素がぶらさがる

$FOX->{$GB->{FORM}->{'bbs'}}->{"BBS_CONTENTS_NUMBER"}

SpeedyCGIの特性を利用した、すごくよい使い分けと思います。
もしこれがなかったら、どうやってもカオスからは脱出できなかった。

他の処理系をまたぐ必要のあるぐろーばるーは、全部追放か$GBに押し込める方向で。
でないと、どれがどれなんだかちっとも。

で、概ねそれはできたような気がしているです。
といっても、ほとんどはおじさんがやったわけですが。

**root▲ ★** · 2005/11/11(金) 15:56:31

で、該当部分。
# ちょっと感動した。

#設定ファイルを読む
sub foxReadSettings
{
my ($GB) = @_ ;
my $ita = $GB->{FORM}->{'bbs'} ;

$GB->{DEBUG} .= "SETTING.TXT よみこむ? $ita<br>";
if(defined($FOX->{$ita}))
{
$GB->{DEBUG} .= "SETTING.TXT 既に読み込み済みー(1)$ita<br>";
return 0;
}
$GB->{DEBUG} .= "SETTING.TXT よみこみー$ita<br>";
(以下略)

**動け動けウゴウゴ２ちゃんねる** · 2005/11/11(金) 16:22:24

デバッグの部分はリリース時に外さないの？

**root▲ ★** · 2005/11/11(金) 16:24:07

>>135
既に概ね、外れているです。
(ここはたまたま、外れてなかっただけみたい)

◆SSu.zv/rvs · 2005/11/11(金) 16:31:56

なにか言いたいけど
すでに getting drunk

**root▲ ★** · 2005/11/11(金) 16:32:47

>>137
現地は夜ですか。

◆SSu.zv/rvs · 2005/11/11(金) 16:36:12

そろそろ 11時? たぶん
三人でぽとる一本あけたから、、、、

with Jim &79

◆MUMUMUhnYI · 2005/11/11(金) 16:41:15

ぼうしぬいで、だらだら。

>>139
79さんですか。
そりゃ、たいへんだ。

ところで、飲酒禁止とか控えるとかゆう話、ありませんでしたっけ。

◆SSu.zv/rvs · 2005/11/11(金) 16:43:19

ないない

蒸留酒はok to me

◆MUMUMUhnYI · 2005/11/11(金) 16:45:01

そっか。

プリンが規制中なんでしたっけ。

◆SSu.zv/rvs · 2005/11/11(金) 16:46:03

そうそう

beer とか wine はご法度

でも沢山のんだけど　in Euro

**ヾ（ﾟﾊﾟ）ﾉ** ◆f0.zuburi6 · 2005/11/11(金) 18:58:25

めっ

◆TWARamEjuA · NG

DispError(sprintf qq|プリンが規制中です(%d)|, $GB->{prin}) if defined $GB->{prin};

**動け動けウゴウゴ２ちゃんねる** · 2005/11/11(金) 23:03:06

通風こわいよ通風

**root▲ ★** · NG

167 名前： ◆MUMUMUhnYI [sage] 投稿日：2005/11/12(土) 05:19:07 ID:axdTew+g0 ?###
BBS.CGI - 2005/11/12a

# 051112a 雪だるまに向けたクリーンナップ大作戦その6
# $GB->{OUTDAT}, $GB->{LOGDAT}, $GB->{xID}, $GB->{xBE} 新設
# ResAnchor, MakeBEString, MakeIdStringAndLogdat, MakeLogdat,
# MakeOutdat, Update924, WriteDatFile 以上サブルーチン化 by む

これで、bbs_main の真ん中当たりにあったアドホックなワーク用変数を
ほとんど整理した。

明日あたりから、Check_HardPosting (連続投稿ですか？のところ)を見始めるか。

▲ ◆SANUKI/VII **＠焼きうどん ★** · 2005/11/12(土) 08:55:55

▲ ◆SANUKI/VII · NG

↑あら、ならなかったです

キャップ付けるとoutdatってなるだす

**root▲ ★** · NG

>>148-149
MakeOutdat をサブルーチン化する時に、
saku sakud saku2ch だけ特殊処理をしているところ
(これらは HOST: を表示しているが、キャップだとさらにそれらは出ない)
に、虫を入れてしまいました。

すみません。

2ｃｈの動作報告はここで。パート18
http://qb5.2ch.net/test/read.cgi/operate/1131005961/173-192

**root▲ ★** · NG

サブルーチンにして移動する時に、
色気心を起こして、処理の順番を変えてしまったです。

・虫がいた時

if (saku sakud saku2ch) {
if (capじゃない) {
datにHOST: が入ったのを作る
}
}
else
{
普通のdatを作る
}

・今(前と同じ)

普通のdatを作る
if (saku sakud saku2ch) {
if (catじゃない) {
datにHOST: が入ったのを作る
}
}

**root▲ ★** · NG

変えてしまった => 変えてしまっていた >>151

しかも、>>151 の上のやつはオプティマイズにはなっていないわけで。
なんだかなぁ。おじさんにセッキョーされそうだなぁ。(´・ω・｀)

**(^-^)犬** ◆VET4349ZB. · NG

猫？　　　　　　　　　　　　　　　　　　　いや、何となくです。分かりますから、、、ｺﾞﾒﾝﾁｬｲ

**動け動けウゴウゴ２ちゃんねる** · 2005/11/13(日) 02:31:52

qb5用のbbs.cgiの存在は、なかなか微妙だと思います。
削除系全般のHOST処理とか、BBQで串マークとか、規制でもfusianaで書き込めるとか。

バグの温床。 if(板名)ってのはなんとかやめること出来ないのかなあ

と、中身を何も知らないのに言ってみるテスト

**動け動けウゴウゴ２ちゃんねる** · 2005/11/13(日) 02:50:38

qb5だけ別CGIにすれば？

**root▲ ★** · NG

>>155
いやーん。

絶対、面手できなくなりそう。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/13(日) 03:02:06

そこを何とかがんばれ！

**root▲ ★** · NG

timecount/timecloseの処理をしているところって、
ずいぶん、贅肉があるみたいな。

歴史的経緯ですか。

simplify したいけど、今はとりあえずこのままにしておくか。

◆SSu.zv/rvs · 2005/11/13(日) 03:58:48

あるファイルをbbs.cgiだけがさわっているのであればラッキー
その確証が得られないor得るのがめんどくさい　→　放置
誰かが作った装置をさっさと取り外すのはやはり嫉妬の渦の中　→　さわらぬなんとか

なんてのが bbs.cgi の歴史です

**root▲ ★** · NG

>>159
> 誰かが作った装置をさっさと取り外すのはやはり嫉妬の渦の中　→　さわらぬなんとか

そうゆうものですか、、、。

私なんか、あんまりそうゆうこと考えずについさわってしまうし、そのことをどんどん公開してしまうし。
だから、いかんのかしら。

**root▲ ★** · NG

もちろん理由がなければそういうことはやらないし、
基本的には全部表でやるわけですけど。

て裕香、表でやれないようなことは、やっぱ体にも心にもいくないっす。
せめて２ちゃんねるぐらいでは、そうゆうことはできるだけしたくないなと。

**root▲ ★** · NG

２ちゃんねるぐらい = 趣味の世界

ってことですね。
仕事の世界だと、なかなかそうもいかないわけで。

あとはMakeWorkFileをちょっと読んで、今日は中身はいじらずにもうねるか。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/13(日) 08:17:00

（雑談スマソ）
>>161そこで裕香と誤変換しますか。彼女とか娘とか、はたまた平田裕香のファンなのか・・・ﾁｮｲｷﾆﾅﾙ

◆MUMUMUhnYI · 2005/11/13(日) 10:05:33

>>163
saku / sakud 等でよく見かける方のいち隠れファンです。

桶屋 · 2005/11/13(日) 11:38:03

>>158
今の時代、本当にtimecount/timecloseが必要なのか、一度考え直すのもいいのかも。

連続投稿に関してはsamba24 やバーボンができました。
投稿に関する対応は、ボランティアさんも含めた新しい仕組みが動くようになりました。
timecount/timecloseは、これらがない時代からあるものですね。

timecount/timecloseの必要性と、実装や運用のコストの比較になるのかなと。

**どくどくさぼてん** · 2005/11/13(日) 11:57:08

samba24は鯖ごと、バーボンに至っては全板一律だからなぁ。
確かsamba24はSETTING.TXTで設定できるようにする、って話もあったけど、
ただ、最近もちょくちょく全板でいっせいに設定値変えとかしてるから、
ちとそうもしづらいのかなぁ。とか。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/13(日) 14:35:57

>>165
板によって、結構絶妙なバランスで設定されてる
値だと思いますけどね。普通の使い方をしてる人では、
まず引っかからないし見ないから、「空気みたいなもの」
としか感じないかもしれませんが。

けど見てると、設定を微妙に変更することで、荒らしさんは
やっぱり速度が落ちたりとかするのを見たりします。
だから効果はあるんだと思います。

逆に言えば、普通の人がやたら引っかかるようなものは、
それなりに問題なんじゃないですかね。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/13(日) 16:49:45

>>166
もしできればでいいですけどsambaは全板と各板(setting.txt)の共存ができればええんでないかと

◆MUMUMUhnYI · NG

>>165-167
それなりに効果は出ていると思います。
たぶん２ちゃんねるが今よりもっともっと小さかった頃は、
画期的な仕組みだったんだと思うです。

でも今となっては、ファイルI/Oのコストが毎回(少ないとはいえ)
発生するのが、ちと気になるですね。
ということで投稿数が多い板だと、
この方式を現在の実装でやるのは、ちょっと苦しいところがあるです。

基本的に、効果を大きくしようとしてFIFOの段数を大きくすると
コストも大きくなってしまいますし、
段数が少ないと、効果が薄いです。

ということで、雪だるまにしてbbsd側でオンメモリでやるなら、
それほどでもないという読みで、今の方式を踏襲する形での実装は、
してもらおうかなと思っているです。
オンメモリならコストは低いし、実装もそれほどでもなさそうなので。

<チラシの裏>
あと、メッセージ本文の最初の何文字かとか本文の長さとか、
投稿したスレッドのキーとか時間とか、いろいろとっているけど、
今は全く使っていないので、このへんの贅肉をとって、
いずれはすっきりしたいなと思っているです。
<チラシの裏の隅>
たぶんこのへんも規制に使おうとした、あるいは昔規制に使ったことがあるんだろうなと。
</チラシの裏の隅>
</チラシの裏>

◆MUMUMUhnYI · NG

で、先回りして言ってしまうと、Samba24って、
そういうところが、よくできているです。

ようは、ひとことでいうと、
「大きい板でもコストを上げることなく、同じしくみで動かすことができる」ってことですかね。
スケーラビリティがあるとゆうか、成長に耐えるとゆうか。

実現している部分は正直、短いコードですけど、
かなり感心したところだったり。

◆SSu.zv/rvs · 2005/11/13(日) 22:13:04

さぁ　みんなで踊ろう

S A M B A !

もうすぐ夜明けだ。

◆MUMUMUhnYI · NG

>>171
なんか、早起きすね。

▲ ◆SANUKI/VII · NG

そうか、時差があるのか

**動け動けウゴウゴ２ちゃんねる** · 2005/11/13(日) 22:21:29

さてはまたゴルフだな・・・

**ヾ（ﾟﾊﾟ）ﾉ** ◆f0.zuburi6 · 2005/11/13(日) 22:21:47

またドアをドンドンやられたの？

◆SSu.zv/rvs · 2005/11/13(日) 22:40:48

いやー

どこへ行ってもこんな感じの一ヶ月でした。
毎日五時に起きてしまい、夜も八時を過ぎればおねむ
きっとホームに帰ってもとうぶんそれが続くかと

起きたらまずススキのの生活・・・

◆MUMUMUhnYI · NG

>>176
早朝営業ですっきり、ってやつですか。

ちと、おふろへ。
その後はSambaの解読と、live20のバージョンアップあたりを。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/13(日) 23:02:43

今、むーさんの人間性を垣間見たお。

◆MUMUMUhnYI · NG

さて、、、。

1001のところ、どうするですかねぇ。
私は今の実装でも大きな問題はないと思っていたりしますが。

全部の船に共通の変数があるといいんですが、
たぶんそういうのは、なさげだし。

◆MUMUMUhnYI · NG

WriteDatFile … datに追記
GetDatInfo … dat行数、>>1の内容、datの最後のいくつか(html/の下作成用)を取得
if (datが1000以上) Over1000 … １００１を書いて、chmod 555

というのが、今の流れです。

これをどうするのが、いんだべか。

**ヾ（ﾟﾊﾟ）ﾉ** ◆f0.zuburi6 · 2005/11/14(月) 00:26:57

>>180
そこのパーミッション書き換えタイミングにレスが重なると１０００overカキコが
多発するんでしたっけ？
レス＞１００１の時にdat追記そのものを破棄することって難しいのかな？
多分難しいからおいちゃんも今の形にしてあったとは思うのですけど。

◆MUMUMUhnYI · NG

Over1000 を複数のbbs.cgiが実行している、っちゅーことなんです。
それはたぶん避けられない気がするんで、さて、どうしたもんかなと。

◆MUMUMUhnYI · NG

で、確実に止まっているようなので、
とりあえずは今のままでいいのかなとは思っていたり。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/14(月) 00:53:46

perlってappendモードで開いているファイルに対して
ftell相当のこと出来ないのけ？
出来るなら、「自分が書き込んだ後の末尾の位置」を覚えておいて
再度(行数判定等のために)読み込んだときの合計サイズと一致している場合のみ
(==1000を書き込んだのが自分である場合のみ)
1001を追記したらよいのでは？

既にオープンしているファイルからftellするのは、
I/Oコスト的には大したことないはずだし。

◆MUMUMUhnYI · NG

>>184
ぱっと見、それだと忙しい時、
１００１が書かれなくなるような。

**ヾ（ﾟﾊﾟ）ﾉ** ◆f0.zuburi6 · 2005/11/14(月) 01:08:58

あーそうか。「同時に」なんだ。
てことは,実現させるには１００１番以上が付くかどうかを各bbs.cgiが判定して,
以上なら強制的に止めてしまうしかないんですねえ。

◆MUMUMUhnYI · NG

あとは、GetDatInfoして得たdatの最終行が既に１００１だったら、
Over1000で１００１を書かないぐらいかなぁ。

◆MUMUMUhnYI · NG

>>186
やっぱ、それ(>>187)ですかね。

**ヾ（ﾟﾊﾟ）ﾉ** ◆f0.zuburi6 · 2005/11/14(月) 01:11:30

でもコレだと高負荷時の挙動が怖いようなｗ

◆MUMUMUhnYI · NG

Perlで、その配列の最後の要素にアクセスするのって、どうするんだっけか。

具体的には、@{$GB->{DATLAST}} の最後。

◆MUMUMUhnYI · NG

予想されるのは、

1000
1001 1000を超えました。。。
1002 普通の書き込み

とかで、終わるパターンすね。
chmod 555 は必ずするので、
壊れるリスクは今と同じのはず。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/14(月) 01:18:48

あ、そっか。
まず書き込みをして、それから書けたかどうか判定するのか。

と思ったけど、>>184の5行目の()内が間違いで
(==最終レスを書き込んだのが自分であった場合のみ)
が正しいのかな。

とは言っても、「再読込」した後で他のプロセスが書き込んじゃうという
可能性もある(というより、現状その状態っぽい？)ので
複数プロセスがが1001を書き込むのは避けられない点は同じか。

▲ ◆cZfSunOs.U · 2005/11/14(月) 01:19:56

確実にやるにはロックなどで排他制御するしかないでしょうね．
ロック使用を回避するなら，わずかでもタイミングの隙が発生するのは不可抗力かと......

◆MUMUMUhnYI · NG

>>193
やっぱ、そうかなとは思っていたりするです。

概ね動いてはいるようなので、１００１がいっぱい書かれることを減らせれば、
とりあえずいいかなと思っていたり。

◆MUMUMUhnYI · NG

$array[-1]; でいいのか。>>190

ちょっと、ごにょってみるか。

◆SSu.zv/rvs · 2005/11/14(月) 01:28:17

>>195
おおっ　そんなのあるんですか、

**ヾ（ﾟﾊﾟ）ﾉ** ◆f0.zuburi6 · 2005/11/14(月) 01:28:43

むずかしいー
1000時のみロックとかできないんでしょうかー
とか思ってしまいますです
まあ,１０００以降で実際に書き込まれないならいいかな　なんて思ったりもしますがｗ

**動け動けウゴウゴ２ちゃんねる** · 2005/11/14(月) 01:30:04

ん？現状でも、既に

ＡとＢが両方書き込んだ後、
Ａ：読み込み(.datは1000行)
Ｂ：読み込み(.datは1000行)
Ａ：1001書き込み(.datは1001行)
Ｂ：1001書き込み(.datは1002行)
という経過によって、複数の1001が書かれているのではないですか？

とすると、読み込んだ内容をどう判定しようと
重複1001は減らないのでは？

**ヾ（ﾟﾊﾟ）ﾉ** ◆f0.zuburi6 · 2005/11/14(月) 01:34:41

これかー
ttp://cocohome.hp.infoseek.co.jp/perl_ref/array.html
マイナス添え字で最後からなんだ。

>>198
ああ,ほんとだ…

◆MUMUMUhnYI · NG

いけそうだ。

$GB->{DATLAST}[-1] と $lastdat を比較して、
同じなら１００１を書くのをさぼろう。 in Over1000