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

**動け動けウゴウゴ２ちゃんねる** · 2005/04/10(日) 16:15:47

peko鯖の稼動によりﾎﾞﾄﾙﾈｯｸの一つである事がより明らかになった
bbs.cgi作り直しプロジェクトです。

【開発環境の工事現場】
また挑戦。＠2ch掲示板　　http://dso.2ch.net/myanmar/
また挑戦２。＠2ch掲示板　http://dso.2ch.net/yangon/

関連スレなどは >>2-5 くらい

**動け動けウゴウゴ２ちゃんねる** · 2005/04/10(日) 16:16:36

【前スレ】
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/test/read.cgi/operate/1076666901/
bbs.cgi再開発プロジェクト４
http://qb5.2ch.net/test/read.cgi/operate/1101984763/
bbs.cgi再開発プロジェクト5
http://qb5.2ch.net/test/read.cgi/operate/1103495887/

**動け動けウゴウゴ２ちゃんねる** · 2005/04/10(日) 16:18:13

【関連スレ】
【Project peko】2ch特化型サーバ・ロケーション構築作戦 Part17
http://qb5.2ch.net/test/read.cgi/operate/1107376477/
read.cgi再開発スレ Part2
http://qb5.2ch.net/test/read.cgi/operate/1105909861/
◆ 全サーバトリップ統一作戦
http://qb3.2ch.net/test/read.cgi/operate/1067245837/
bby -- スレッド情報一元管理システム構築スレ2
http://qb5.2ch.net/test/read.cgi/operate/1086868799/
【広告・宣伝】Rock54【自動排除】　4
http://qb5.2ch.net/test/read.cgi/operate/1083063122/

讃岐 ◆IamaVIPdCI · NG

>>1
ぼみょー

讃岐 · 2005/04/10(日) 16:53:50

>>1
ぼみょー

**動け動けウゴウゴ２ちゃんねる** · 2005/04/10(日) 19:34:26

> 名前がデフォルト名無しさんの場合はDATに書き込まず、
> 表示するときにSETTING.TXTから読んで付けるようにしたら？
> 結構削減されるような気がスルですが。
でも、名無しさんの名前が変更になった場合、古い発言でも名前が変わるわけですよね。なんかそれは嫌な気が。

**動け動けウゴウゴ２ちゃんねる** · 2005/04/10(日) 19:37:16

嫌モナにも、専ブラがSETTING.TXT読まなくちゃいけなくなるよそれ

**動け動けウゴウゴ２ちゃんねる** · NG

DATの削減ってそれほど優先度たかいの？
2005にしたのを考えてそうは思わないけど。
曜日を足したいなら2001年08月26日以前みたいに西暦を2桁にしてもよかったのに。
それなら、リンクつけないってのが最優先じゃない？

（read.cgiってSETTING.TXT読んでるんですか？）

**動け動けウゴウゴ２ちゃんねる** · 2005/04/10(日) 20:06:57

bbs.cgiの今後の方向性が示されてれば的外れな提案とかが無くていいと思うけど
そのへんはどうなんでしょ？

**動け動けウゴウゴ２ちゃんねる** · 2005/04/10(日) 20:47:33

>>6
そんじゃ、DATの頭にデフォルト名無しを取り込んでおいて、それ展開するとか。

**動け動けウゴウゴ２ちゃんねる** · NG

>>10
スレッドの途中で名無しが変わった場合は？
スレ内で同じ名前を見つけたら参照するとかの方がまだマシかと。

**動け動けウゴウゴ２ちゃんねる** · 2005/04/10(日) 21:31:55

>>11
いや、DAT頭にある名無しとSETTING.TXTのとが違ったら、それはちゃんと名無しの名前を書き込むのよ。
で、次スレからはDAT頭の名無しも変わって省略とする。

bbs.cgiの負荷コストがかかりそうなので、却下されそうだな～。
単純な思いつきで書いたので流して～。

**動け動けウゴウゴ２ちゃんねる** · 2005/04/10(日) 23:58:40

DATとかSETTING.TXTやるぐらいならSQL使ったほうがましだと思うが？

**FOX ★** · NG

何のために?

**動け動けウゴウゴ２ちゃんねる** · NG

というか変にごちゃごちゃやると（ｒｙ
動いているものに手を入れたくな（ｒｙ

**FOX ★** · NG

転送量をふやしたいから　→　容量食うようにする
とか
人減らしたいから　→　ファイルopen数増やして全体にもっさりにする
とか

目的を書かなきゃ手段ばかりかかれても
混乱するばかりかな。

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

>>16
手段が目的に決まってるだろーが。終了。

**動け動けウゴウゴ２ちゃんねる** · 2005/04/11(月) 08:20:15

本７だったら相手にするだけ時間の無駄。

**動け動けウゴウゴ２ちゃんねる** · 2005/04/11(月) 12:46:51

>>16
さりげない揶揄にﾜﾛﾀ

**動け動けウゴウゴ２ちゃんねる** · 2005/04/16(土) 22:12:28

>を& amp;に変換するのって必要ある？
<側だけ処理すればタグは禁止できるような。
(ブラウザによっては駄目なのかな)

**動け動けウゴウゴ２ちゃんねる** · 2005/04/16(土) 22:30:18

確かにブラウザの表示は問題ないかもしれないが、気持ち悪いな。
というか、URIの&は&に置換するべきだと思う。

**動け動けウゴウゴ２ちゃんねる** · 2005/04/17(日) 00:03:51

http://なんとかかんとか?hoge=foo＆amp=bar
とかなっているとアレだもんな

**動け動けウゴウゴ２ちゃんねる** · 2005/04/19(火) 00:22:23

連投チェックに引っかかった時のメッセージ変わったんだね

**†正座会場** ◆jmq5OZqMNg · NG

**root▲ ★** · NG

Perlのプロファイリング
http://naoya.dyndns.org/~naoya/mt/archives/001159.html

bbs.cgiの「どこが」重いのかを調べるのに、使えそう。

**root▲ ★** · NG

今は時間とれないので、とりあえず餌だけまいておこう。

qb6でやってみた(単にtestというレスの投稿)。

うーん、IsKoukokuがこんなに重いとは。
あと、jcodeの処理も結構重いのね。

Total Elapsed Time = 0.801193 Seconds
User+System Time = 0.175342 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c Name
58.1 0.102 0.125 1 0.1016 0.1252 main::IsKoukoku
35.3 0.062 0.055 2853 0.0000 0.0000 jcode::convert
26.8 0.047 0.024 2853 0.0000 0.0000 jcode::euc2euc
22.2 0.039 0.225 1 0.0390 0.2251 main::bbs_entryXXX
13.1 0.023 0.008 2853 0.0000 0.0000 jcode::h2z_euc
13.1 0.023 0.023 10 0.0023 0.0023 LWP::UserAgent::BEGIN
9.12 0.016 0.016 3 0.0052 0.0052 Net::DNS::Packet::dn_comp
9.12 0.016 0.039 2853 0.0000 0.0000 jcode::to
9.12 0.016 0.024 2853 0.0000 0.0000 jcode::euc
8.55 0.015 0.113 14 0.0011 0.0080 main::BEGIN
8.55 0.015 0.153 1 0.0155 0.1531 main::bbs_main
8.55 0.015 0.037 10 0.0015 0.0037 Net::DNS::Resolver::Base::BEGIN
4.56 0.008 0.008 1 0.0078 0.0078 Carp::shortmess
4.56 0.008 0.008 9 0.0009 0.0009 Socket::inet_aton
4.56 0.008 0.008 15 0.0005 0.0005 HTTP::Message::_elem

**FOX ★** · NG

ほぅ

**root▲ ★** · NG

>>27
きたきた(w。

これから外出してしまうので、あとで、これやりませんか。
IsKoukokuのコストを半分にするだけで、相当効果あるらしいです。

**FOX ★** · NG

sub IsKoukoku
{
my ($GB) = @_;
my $In_Strings = $GB->{FORM}->{'MESSAGE'}; # shift or return ''; # 入力無しなら (・∀・) カエレ

# 読み込む。。。
my @Rock_word = @FOX_Ro54;

# EUC に変換して半角カナ→全角カナにしてして。
# まず対象となる文字列を変換。
$In_Strings = jcode::euc($In_Strings , 'sjis', 'z');

# NG ワードも変換。ついでに NG ワード、MD5値、フラグの 3 要素だけにしてリファレンスにしてして。
@Rock_word = map { [ (split /<>/)[5,6,7] ] } map { &jcode::euc($_, 'euc', 'z') } @Rock_word;

# では NG ワードのチェック。
foreach my $NG_word_ref (@Rock_word){
my $NG_word = $NG_word_ref->[0]; # リファレンスから NG ワードを取り出す。
eval { $In_Strings =~m<$NG_word> }; # NG ワード自体をチェック。以前の失敗を繰り返さないために。。。
return '' if $@; # 不正 NG ワードがあったときは OK とする。
if ($In_Strings =~m<$NG_word>) { # NG ワードをチェック。
$NG_word_ref->[0] = &jcode::sjis($&, 'euc'); # 該当すれば NG ワードを sjis に戻して。。。
return $NG_word_ref; # リファレンスを返す。
}
}
return '';
}

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

jcodeを2853回も呼ぶのは妥当なの？みたいなｗ

**未承諾広告※** ◆TWARamEjuA · NG

ではラムを飲みつつ待機していまつ♪

Shift_JIS のを丁稚どんにお渡しするようにすれば桶ですよね？

**FOX ★** · NG

1) Shift Jis でリストを作る
2) リストには上限を作る　(たとえば 200)

ですなぁ

ex10, live20 で Iskoukoku するーにしてみた

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

あれ？なんでsjisでリスト？気のせいかな。。。

**未承諾広告※** ◆TWARamEjuA · NG

>>32
> 2) リストには上限を作る　(たとえば 200)
構造上「さくら」のみになるかもかもですです♪

**動け動けウゴウゴ２ちゃんねる** · 2005/04/23(土) 00:11:59

リニアサーチしているからO(n)オーダになるのはしょうがないな……

Perlバインディング使ってcdbサーチにするとか、ハッシュサーチにするとか、
B-Treeサーチにするとか。

**動け動けウゴウゴ２ちゃんねる** · 2005/04/23(土) 00:14:04

ん、まてよ。
「書き込みの中にNGワードが有ればTrue」
というのと
「NGワード自体をリファレンスで返す」
という処理があるのね。

前者だけでも既存のモジュールで追い出せばO(log n)の速度になると思うけど。

**動け動けウゴウゴ２ちゃんねる** · 2005/04/23(土) 00:30:21

http://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_bigdata.html#cdb

**root▲ ★** · NG

今日のex10の様子を見る限り、
この部分のチューニングは、すんごい効果あるってことすね。

**未承諾酩酊※** ◆TWARamEjuA · NG

NGワードが普通の文字列だったなら。。。
正規表現文字列だからちょと難儀かもかも。＠「検索」に関してはむちむち♪

とりあえず、Jcodeを外したものを用意しておりますです。

**動け動けウゴウゴ２ちゃんねる** · 2005/04/23(土) 00:49:53

軽くなったところで。
本文だけじゃなく名前欄やメール欄をIsKoukokuのチェック対象にするのは難しいでしょうか。

**未承諾酩酊※** ◆TWARamEjuA · NG

>>40
単純に考えると３倍界王拳になるので却下の悪寒。。。

**動け動けウゴウゴ２ちゃんねる** · 2005/04/23(土) 00:58:40

名前欄・メール欄・本文を連結したバッファを作って一回でチェックならどうでしょう。
（連結による誤判定も起こる可能性はありますが）

**動け動けウゴウゴ２ちゃんねる** · 2005/04/23(土) 01:06:24

>>40
どんな目的でそれをやるか書かないと

**root▲ ★** · NG

>>39
まずはjcodeをはずすだけで、相当効果あると思います。
酩酊じゃなくなった時点で、おじさんとも調整しながら。

▲ ◆cZfSunOs.U · 2005/04/23(土) 01:13:32

まぁ Shift JIS でやるという方向ならどうでもいいかも知れませんが，
もし文字コード変換するとしたら，Text::Iconv モジュール使えば
ネイティブの iconv() 使う分 Perl で書いてある jcode よりは軽いかと．

**動け動けウゴウゴ２ちゃんねる** · 2005/04/23(土) 01:18:26

>>43
名前欄にURL貼るタイプの広告は現状報告→ログ掘り→プロバイダ規制と人手をかけ
かつ巻き添え規制もあるんで、例えば>>42みたいなやりかたで簡略化できないかなと。

**未承諾酩酊※** ◆TWARamEjuA · NG

>>44
あにやんが戻るのは夜更け頃ですよね（苦笑）
ってことで、とりあえず「改正IsKOUKOKU」部を晒しておきますですです。

>>45
文字コード変換のメインは、実のところ「半角カナ→全角カナ」だったりしますので、その部分を超ーｗｗｗｗｗｗっ簡略化してみたですです♪

**未承諾酩酊※** ◆TWARamEjuA · NG

●改正IsKoukoku

sub IsKoukoku
{
my ($GB) = @_;
my $In_Strings = $GB->{FORM}->{'MESSAGE'}; # shift or return ''; # 入力無しなら (・∀・) カエレ

# 半角カナ→全角カナ変換テーブルの作成（むずかしいことはしない♪けれども直接書くと0x5Cが出てくるから16進文字列に）
# qw|。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテト
# ナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン゛゜|;
my @Z_kana = (
'8142','8175','8176','8141','8145','8392','8340','8342','8344','8346','8348','8383','8385','8387','8362','815B',
'8341','8343','8345','8347','8349','834A','834C','834E','8350','8352','8354','8356','8358','835A','835C','835E',
'8360','8363','8365','8367','8369','836A','836B','836C','836D','836E','8371','8374','8377','837A','837D','837E',
'8380','8381','8382','8384','8386','8388','8389','838A','838B','838C','838D','838F','8393','814A','814B'
);
# ハシュにしてして。
my %Kana2Z = map +($_, pack("H4", $Z_kana[$_ - 0xA1])), (0xA1 .. 0xDF);

# 読み込む。。。
my @Rock_word = @FOX_Ro54;

# まず検索対象となる文字列を半角カナ→全角カナ変換。
$In_Strings =~ s/([0xA1-0xDF])/$Kana2Z[$1 - 0xA1]/g;

# NG ワード要素を NG ワード、MD5値、フラグの 3 要素だけにしてリファレンスにしてして。
@Rock_word = map( [ (split /<>/)[5,6,7] ] ), @Rock_word;

# では NG ワードのチェック。
foreach my $NG_word_ref (@Rock_word){
my $NG_word = $NG_word_ref->[0]; # リファレンスから NG ワードを取り出す。
$NG_word =~ s/([0xA1-0xDF])/$Kana2Z[$1 - 0xA1]/g; # 半角カナ→全角カナ変換。
eval { $In_Strings =~ m<$NG_word> }; # NG ワード自体をチェック。以前の失敗を繰り返さないために♪
if ($@){ return '' } # 不正 NG ワードがあったときは OK とする。
if ($In_Strings =~ m<$NG_word>) { # NG ワードをチェック。
return $NG_word_ref; # 合致したるらリファレンスを返す。
}
}
return '';
}

添削激しくキボンヌですm(_ _)m
ただし、リスト側もeuc→Shift_JISしなきゃなので、いきなり全鯖に導入しちゃうと気持ちよく叩かれるですです♪

**root▲ ★** · NG

>>45
たしかに、でかいすね。
今ならText::Iconvのほうがよさげ。

でも、いわゆるWindowsの機種依存文字、大丈夫かしら。

>>47
了解です。

**root▲ ★** · NG

おぉ。 >>48

で、入れるならリスト側と同時にやる必要ありと。

**root▲ ★** · NG

あ、そっか。

つまり、ロックなシステムのほうも、いじる必要があるってことすね。
やはり同期とって、すすめるが吉かなと。

**未承諾酩酊※** ◆TWARamEjuA · NG

>>48
# NG ワード要素を NG ワード、MD5値、フラグの 3 要素だけにしてリファレンスにしてして。
@Rock_word = map( [ (split /<>/)[5,6,7] ] ), @Rock_word;
↓
@Rock_word = map( [ (split /<>/)[5,6,7] ], @Rock_word);
こうだよなぁ。。。

Text::Iconv って標準では入っていないのね（泪）
Encode.pmって使ってみようかなぁ＠Rock54基地

**root▲ ★** · NG

うわわ。banana238に入れればよい?

**未承諾酩酊※** ◆TWARamEjuA · NG

>>51
登録／変更・削除部分とリスト更新部分は非同期になっているので前者を無効にすれば、テスト的運用が出来るかと思いますです♪
このあたりは秘密基地をご案内してみようかしら。。。

**未承諾酩酊※** ◆TWARamEjuA · NG

>>53
えっと、さしあたっては、大丈夫かと思いますですです。
でもってもし必要になればそのときって事でm(_ _)m深謝

**動け動けウゴウゴ２ちゃんねる** · 2005/04/23(土) 01:45:43

プロファイリング見て効果を確認しながらやってみては。
釈迦に説法ですが

**root▲ ★** · NG

>>56
はい、そのつもりです。

でも、プロファイルする時はspeedycgiをいったん素のperlに戻さないとだめみたいですね。
speedycgi + >>25 のやつで qb6 でやったら、バックエンドが core dump しました。

**root▲ ★** · NG

>>55
了解です。
でも、とりあえず入れておきました。

**動け動けウゴウゴ２ちゃんねる** · 2005/04/23(土) 01:52:48

>>57
あー手間がかかるんですね。失礼しました。こうゆうのﾜｸﾜｸしますよね

**root▲ ★** · NG

>>59
するですね。でも私よりも、FOXさんがするんじゃないかな。

qb6でのプロファイリングの方法を書いておこう。
これで、おじさんもりっぱなプロファイラー。

1)bbs.cgiの1行目を、
#!/usr/local/bin/perl -d:DProf
に変える
(qb6のbbs.cgiの3行目に既に書いてあるので、それを1行目に移すだけ)

2)普通に書き込みやスレ立てをする(bbs.cgiを起動する)

3)同じディレクトリに tmon.out というファイルができるので、それに対して、
dprofpp tmon.out
を実行すると、プロファイリングの結果が画面に表示される

**動け動けウゴウゴ２ちゃんねる** · 2005/04/23(土) 02:39:40

へぇ、数字で与えるとその数字にあたるキャラクタにマッチして
マッチしたキャラクタが数字になって出てくるのか。
初めて知った。よーし、パパ早速使っちゃうぞーっ！！

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

処理が前とあんまり変わっていない上に半角カナ以外も変換しちゃってるけど
少しでも軽くなってればいいってことかな。

▲ ◆cZfSunOs.U · 2005/04/23(土) 02:44:23

>eval { $In_Strings =~ m<$NG_word> }; # NG ワード自体をチェック。以前の失敗を繰り返さないために♪
>if ($@) { return '' } # 不正 NG ワードがあったときは OK とする。
>if ($In_Strings =~ m<$NG_word>) { # NG ワードをチェック。
> return $NG_word_ref; # 合致したるらリファレンスを返す。
>}

この部分はこうすると regex match の実行1回だけで済むかな......

my $matched = eval { $In_Strings =~ m<$NG_word> }; # NG ワード自体をチェック。以前の失敗を繰り返さないために♪
if ($@) { return '' } # 不正 NG ワードがあったときは OK とする。
if ($matched) { # NG ワードをチェック。
return $NG_word_ref; # 合致したるらリファレンスを返す。
}

**FOX ★** · 2005/04/23(土) 04:37:10

私もまたまた酩酊ってことで
あした読んでみます、、、

**未承諾広告※** ◆TWARamEjuA · NG

読み返してみるとボロボロだったり、、、(汗)
●改訂IsKoukoku改訂１版
→変換テーブルを単純配列にした（ハシュにする必要はなかった）
→不正NGワードがあったとき、そのままOKとしていたところを次のNGワードを探索するようにした
→不正チェックと正式チェックをまとめて１回にした( >>63 )

sub IsKoukoku
{
my ($GB) = @_;
my $In_Strings = $GB->{FORM}->{'MESSAGE'}; # shift or return ''; # 入力無しなら (・∀・) カエレ

# 半角カナ→全角カナ変換テーブルの作成（むずかしいことはしない♪けれども直接書くと0x5Cが出てくるから16進文字列に）
# qw|。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテト
# ナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン゛゜|;
my @Kana2Z = (
0x8142,0x8175,0x8176,0x8141,0x8145,0x8392,0x8340,0x8342,0x8344,0x8346,0x8348,0x8383,0x8385,0x8387,0x8362,0x815B,
0x8341,0x8343,0x8345,0x8347,0x8349,0x834A,0x834C,0x834E,0x8350,0x8352,0x8354,0x8356,0x8358,0x835A,0x835C,0x835E,
0x8360,0x8363,0x8365,0x8367,0x8369,0x836A,0x836B,0x836C,0x836D,0x836E,0x8371,0x8374,0x8377,0x837A,0x837D,0x837E,
0x8380,0x8381,0x8382,0x8384,0x8386,0x8388,0x8389,0x838A,0x838B,0x838C,0x838D,0x838F,0x8393,0x814A,0x814B
);

# 読み込む。。。
my @Rock_word = @FOX_Ro54;

# まず検索対象となる文字列を半角カナ→全角カナ変換。
$In_Strings =~ s/([\xA1-\xDF])/$Kana2Z[$1 - 0xA1]/g;

# NG ワード要素を NG ワード、MD5値、フラグの 3 要素だけにしてリファレンスにしてして。
@Rock_word = map [ (split /<>/)[5,6,7] ] , @Rock_word;

# では NG ワードのチェック。
foreach my $NG_word_ref (@Rock_word){
my $NG_word = $NG_word_ref->[0]; # リファレンスから NG ワードを取り出す。
$NG_word =~ s/([\xA1-\xDF])/$Kana2Z[$1 - 0xA1]/g; # 半角カナ→全角カナ変換。
if (my $matched = eval{$In_Strings =~ m<$NG_word>}) { return $NG_word_ref } # 合致したるらリファレンスを返す。
elsif ($@) { next } # 不正 NG ワードがあったときは次の NG ワードへ。
}
return '';
}

**埼玉mikky** ◆jM/TIxxEd. · NG

ねえねえ、疑問なんですけど2chはなんでdat使ってるんですか？
頻繁にアクセスされるスレは、
データベース使って、全部メモリテーブルに入れちゃったらいいじゃないですか。
メモリに入れておくと、ディスクまで取りに行くより全然速いですよ。
それに、ファイルのオープンクローズばかりだと
ファイルディスプリプタの消費が凄いだろうし、非効率じゃないですかねぇ。

**動け動けウゴウゴ２ちゃんねる** · 2005/04/23(土) 10:51:38

>>66
http://qb5.2ch.net/test/read.cgi/operate/1103495887/965 ：動け動けウゴウゴ２ちゃんねる：sage ：2005/04/08(金) 23:30:02 ID:OLl7UjV20
　　「bbs.cgiスレでXML化を言い出す奴=Java屋の会社に入った新入社員」
　　「bbs.cgiスレでMySQL化を言い出す奴=オープンソースWebASPを聞きかじった新入社員」

http://qb5.2ch.net/test/read.cgi/operate/1103495887/971 ：ひろゆき＠どうやら管理人 ★ ：2005/04/09(土) 04:27:14 ID:???0 (p)?###
　　>>965
　　同意。

へー、マッチして出てきた文字列からそのまま数字を引けばその差の数値がでてくるのか。
初めて知った。よーし、ママも早速つかっちゃうぞー！！

**埼玉mikky** ◆jM/TIxxEd. · NG

>>67
DB化といえばそうだけど、ただ単にDB使った掲示板みたいに
データをDBに入れるわけじゃないからねぇ。
メモリテーブルを使うメリットないとは思えないけど、
まあ、いろいろ考え方はあるからねぇ。

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

>>68
じゃあ貴方が作ってください。
期待してます。頑張ってくださいね。

**埼玉mikky** ◆jM/TIxxEd. · NG

せっかくアイデア出しても煽られるだけで終わったか、、、
なんというか寂しいね。

**未承諾広告※** ◆TWARamEjuA · NG

劇的な結果が出るようならばやってみたいですよねぇ。
例えば、今ある50近い鯖がたった10台のTigerに収まっちゃうとかとか。

**動け動けウゴウゴ２ちゃんねる** · 2005/04/23(土) 12:24:04

>>65
濁点・半濁点を含むNGワードを半角で書かれると
ヒットしなくなる予感(「ｶﾞ」は「カ゛」ではなく「ガ」)

**動け動けウゴウゴ２ちゃんねる** · 2005/04/23(土) 14:48:09

man perlcompile
man perlcc

/* perl を C に変換して */ コンパイルしてみては。

**動け動けウゴウゴ２ちゃんねる** · 2005/04/23(土) 23:02:23

>>73
すでにやってますがw

**未承諾酩酊※** ◆TWARamEjuA · NG

>>72
そだよなぁ。。。
ﾏﾝﾄﾞｸｾ｡｡｡

**動け動けウゴウゴ２ちゃんねる** · 2005/04/24(日) 02:02:27

「完璧なアイデアを出すよりも、動くコードを出す奴が評価される」
プログラマ世界の鉄則。

**動け動けウゴウゴ２ちゃんねる** · 2005/04/24(日) 02:11:08

コンパイルしてある場合でも、evalの部分はやっぱりPerlで解釈しながら動くのかな。

forechループをevalにする例
http://x68000.q-e-d.net/~68user/webcgi/search-1.html

**root▲ ★** · NG

>>72
そういったノーマライズ(正規化)って、そのためのライブラリがあるかも。

**root▲ ★** · NG

例えばIDN::Nameprepとかが使えるのかもしれないけど、UTF-8ベースだし。

で、そういった正規化が必要なのは、濁点・半濁点と、あと何かあるのかしら。

◆WMaLhm.gkw · 2005/04/24(日) 11:50:21

全角カタカナと半角カタカナを区別なく処理したいときは、
全角カタカナを半角カタカナにして情報量減らすんだっけか。

ガ→ｶﾞ　　カﾞ→ｶﾞ　　カ゛→ｶﾞ　　ｶ゛→ｶﾞ

**動け動けウゴウゴ２ちゃんねる** · 2005/04/24(日) 12:47:15

>> 74

perl がどんな C を吐くかわからないが、あんまりよくなさげだったら、
IsKoukoku や IsKoukoku の中の"半角カナ→全角カナ変換"だけでも C で書いて、
入れ換えてみるのは。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/02(月) 03:17:41

というか全部Cで書くのってだめなんすか？

**動け動けウゴウゴ２ちゃんねる** · 2005/05/02(月) 16:43:11

1.言いだしっぺルール
2.メンテナンスコスト
3.perlはちゃんと書けば速い

**動け動けウゴウゴ２ちゃんねる** · 2005/05/03(火) 05:40:58

で、ちゃんと書かれてるの？

**動け動けウゴウゴ２ちゃんねる** · 2005/05/03(火) 07:38:42

ちゃんと書いてある部分もあるだろうし、ちゃんとしていない部分もあるだろう。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/03(火) 14:03:33

bbs.cgiってフォーム処理とDAT出力くらいしかやってないように
見られるんだけど、めんどいことやってるのかな？

C++＋FastCGIとかでわりと簡単に書き直せたりしたりとかしない？

・・・と思ってたけど、Perlで十分なら必要ないか。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/03(火) 17:36:51

>>86
実はいちばんめんどいのが各種チェックや統計処理だったり。

DNS化している部分もあるけど、やっぱり問題なのはディスクI/Oなのでしょうな

**動け動けウゴウゴ２ちゃんねる** · 2005/05/03(火) 23:10:32

>>87
>実はいちばんめんどいのが各種チェックや統計処理だったり。

各種チェックってアクセス禁止IPのチェックとかDATファイルの1000オーバチェック
とかですかね・・・？確かにめんどそうだなぁ。

>DNS化している部分もあるけど、
素でDomain Name Systemかと思ったｗ
Digital Nervous Systemって抽象的でなにを言っているのかわからんけど、
高速にアクセスできるシステムって解釈でいいのかな

スレ汚しすいません

**動け動けウゴウゴ２ちゃんねる** · 2005/05/03(火) 23:23:50

DNSはDomainNameSystemの意味だよ。
つまり、書き込みが規制対象かどうかをDNSのプロトコルでリクエストして
その結果で判定しているということ。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/03(火) 23:44:45

・書き換えがあまり発生せず
・反映速度の要求もシビアで無い
・複数ホストから同一データを参照する
というようなデータの場合はDNSを転用するってことでしょ。
スパムフィルターとしてRBLという実績がある方法。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/03(火) 23:51:15

分散データベースである必要はあるのか？って気はするが、あるんだろうな

**動け動けウゴウゴ２ちゃんねる** · 2005/05/04(水) 00:14:30

DNSって名前解決ぐらいにしか使われないんだと思ってたけど、
>>89-90でわけわかんなくなりましたorz

勉強して出直してきます・・・

**動け動けウゴウゴ２ちゃんねる** · 2005/05/04(水) 00:38:12

DNSを転用するのはキャッシュが効くから元サーバーの負荷が減るってのもある。

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

>>92
DNSBLでググってみて。

92 · 2005/05/05(木) 00:40:22

ググってみました。

2ch運用サーバの中に、禁止ホストのブラックリストを保持していて、
リクエストがある度にそのリストを参照している、
という解釈でよろしいのでしょうか？

**動け動けウゴウゴ２ちゃんねる** · 2005/05/05(木) 01:01:33

>リクエストがある度にそのリストを参照している、
このへんが細かい点で違うが、まぁ結果的にはそういうことになるからいいか。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/05(木) 12:49:13

一番大きなコストなのはRockのチェックのはず。
ここをウィルスチェッカー級の早さでチェックできればいうことないんですがねー

シマンテックあたりに相談したらおもしろいかもと煽ってみる

**動け動けウゴウゴ２ちゃんねる** · 2005/05/06(金) 01:48:15

待ちガイルがソニックブームを出すか、サマーソルトを出すかみたいにすれば速くならね？
必殺技が多すぎて大して速くなる訳でもないか。

**>>20で** · 2005/05/08(日) 15:32:47

　　　　　／　　　　　　　　　　　　　　`、　　　　　　　＼　　＿＿＿|_|」
　　／￣￣＼　　　　　　　　　　　　　 | ヽ　　　　　　／　 |＿＿　　|
'"￣ヽ　　　　　ヽ!!　　　　　　　　　　　|,," ﾍ　　　　＜　　　　　 |　|
ヽ　　　　　　　　　ﾞ!!!､　　　　　　　 ,,-'　　 iヽ──　/　　　　丿 /
|||ｌ　　　　　　　　　　　ﾞﾞヽ､ｌｌ,,‐''''""　　　　 | ヽ|||||||||　　　　ヽ／
|||ｌ　　　　　＿＿＿,,,,,,　　　ﾞｌ　　　 ,,,,,　　　＼||||||||| 　　　　＿
||!'　　　／ヽ､　;::''“”“~`ﾞ＞┴＜;''“”~`　/＼　|'"￣| 　　　　|　|
＼　　／　　|ミﾐヽ──‐'"ﾉ≡- ﾞ'──''彡| |､　|　　 |　　　|　|
　￣|　　　　|ミミミ／"~(　,-､　,:‐､ )　'彡|| |､/　　 /　　　　|　|
　ヽ､ｌ|　　　　|ミミミ|　 |､─＼＼＼＼ |彡ｌ| |/　　／＿　　　|　|
　＼/|ｌ　　　 |ミミミ|　＼_/￣＼＼＼＼''|ｌ/　　　￣／　　　|　|
　　＼　ﾉ　　ｌ|ミミミ|　　＼二二＼＼＼＼　　　　　ﾌ　　　 |　|
　　　￣＼　　ｌ|ミミミ|　　　￣￣￣＼＼＼＼　　　＼　　　 |　|
　　　　|　＼　ヽ＼ミヽ　　　￣￣"'　＼＼＼＼　　　/ 　　　|＿|
　　　 /　　＼ヽ､ヽﾞ''''ヽ､＿＿＿＿_／/＼＼＼＼／
　　／　　ヽ　ﾞヽ─､──────'/|　　＼＼＼＼￣／
. ／　　　　　　　ﾞ＼　＼　　　　 /　/ ＼＿＿＼＼＼＼
　　　───'''"￣￣￣ﾞﾞヽ､__,,/,-'''"　　　　　　＼＼＼＼

**動け動けウゴウゴ２ちゃんねる** · 2005/05/09(月) 21:27:58

subject.txtの１行分を256バイト固定長とかにしたら、ランダムアクセスやソートを速くできるかな。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/10(火) 09:59:41

>>100
資源の問題はおいといて、
\0 で埋める　-> そういうのを考えてない処理系でバグが出る(特にC)。バカなエディタでは開けない
デリミタで区切って空白で埋める -> カラムの拡張性を殺す
というデメリットはあるんではないかと。

可読テキストデータを固定長にするメリットってそんなに大きい？
今までその手の試みが吉と出たことがないんだよな、経験上。

>>97
時間ができたら見てみます。