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 くらい

**ﾀｿｷ@妄想系統** ◆Ver7J..... · NG

#　ＰＯＳＴ入力情報を取得（$FORM{}に格納）
ここの正規表現も>>137と同じですね。

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

どうして纏めて書けないんだ。

**ﾀｿｷ@妄想系統** ◆Ver7J..... · NG

纏めて書く理由がないから。

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

無駄に消費するなら纏めてかけ。
独り言はチラシの裏

**ﾀｿｷ@妄想系統** ◆Ver7J..... · NG

「纏めて書くと見やすいよ。少しづつ挑戦してみなよ」
とでも励まされれば、この世代は喜んで挑戦すると思います。
反対に、「どうして纏めて書けないんだ。この人。」
などと、具体的な指摘や理由がなく、怒り・呵責な表現の場合には、
誰しもが、毎回イヤイヤ纏めるか、その必要がない場合には反発すると思います。

コーチングなどうまく人を参加させるマネージャーの基本だと思います。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/22(日) 11:20:46

別に励ますつもりも無い。それに俺には君のマネージャじゃない。
チャット感覚で連投するくらいならまとめた方がいいし、
独り言のようにさえ見えてしまう。

最初の意見
やった事
結果
それからでてきた疑問
それに対する自分なりの考察

それだけ書けば十分だろう。
自分ひとりで完結することなら、わざわざ>>143のように宣言する必要も無いし。

**ﾀｿｷ@妄想系統** ◆Ver7J..... · NG

ですよね、僕も部下じゃないし。

**ﾀｿｷ@妄想系統** ◆Ver7J..... · NG

>>149僕はその指摘を貴重な意見としてよく考させてもらいます。
ID:bxf7r0yz0さんも>>145-150のプロセスをもう一度見直してもらえると何か進展できると思います。
ブレインストーミングについても調べてみてください。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/22(日) 11:39:54

なるほど。自分に足りないものが良くわかるな。どうも。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/22(日) 16:31:14

どうでもいいが、ブレストとかコーチング以前に「協調性」を常識レベルにしてくれ。
協調性がある人間になってからブレストだとかを言い出すもんだ。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/22(日) 22:06:43

ねえ、いい加減、cgiからphpにしてみたら？

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

言い出しっぺの法則が発動しました

**動け動けウゴウゴ２ちゃんねる** · 2005/05/22(日) 22:54:44

>154
・「cgiからphp」って何ですか？　perlからphpにしてみたらというなら意味が分かりますけど
・mod_perlとmod_phpの速度差が大して無いことについて説明して

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 01:13:23

↓ここでjspを提案する香具師登場

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 04:54:09

│　　　　　　　　　,
│　　　　　／⌒⌒⌒＼
│　　≡　／∽∽∽∽∽＼
│　　　∽∽∽∽∽∽∽∽
│≡　　 , ⌒⌒ヽ ||
│　　　ﾘﾉヽ､卯) |
│　≡　 ,9､ﾟヮﾟﾉﾐ |
│　　　　Oﾐi本iﾐつノ
↓　　　ﾉ(＿ﾘ⊃⊃

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 06:31:23

↓jspって何？PSPの新バージョン？

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 06:37:48

｜
｜　　　　　　　　＿ ∩
｜　　　　　 ⊂／　　ノ　）
｜　　　　　　/　　　/ ∨
↓　　　　　　し'⌒∪

**ﾀｿｷ@妄想系統** ◆Ver7J..... · 2005/05/23(月) 07:15:41

考察としては、その辺がコンパイルしてあれば、
サイバーシンドロームとかから串を2000本位集めてきて、
マルチスレッド型でDOS攻撃しても屁でもなくなるだろうってことですよ。

>>153 協調性でググッたら余計に混乱しました。
協調性度チェックテストポイント：40/100
http://www.heartful-smile.com/07/07-342.html
ちょっとマイペースで気分屋さん的なところがあるかも

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 07:49:51

運営はとても参考になります

嵐の

**ﾀｿｷ@妄想系統** ◆Ver7J..... · 2005/05/23(月) 08:16:15

>>162
協調性でググってみれ。
協調性のあるやつは使えねーって順番に言ってるぞ。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 08:20:24

　　 .,,　　　 ,,　　　　__ 　　　　　,,,_　　 _,,，
　　,i´'i､　.／ヽ　　|　|　　,、　　 | │　〔'l､ヽ
　　ヽ. ,〉,/｀／　 r､|　| ,,i´ ﾞl 　 _ﾉ .ﾞl--,, |,,》,ヾ
　　　ﾞ'ジ　,/｀　　lﾞ　゜ド .、 |　 |　　　　ﾞl|　|　
　 ,,--′ ‘"ﾞ"ﾞﾞl　`'i､　 .,ｲ　l　└I　|ﾞﾞﾞ｝ .||　|　
　|、　　　,,,---"　 /　/　|　|　　 | │ .|　|lﾞ .l　
　ト'ｱ .／　　　　,/　 |　 |　|　　 |　lﾞ　|　|ﾞl .| .
　　 |　lﾞ　　　、　'i､　 |　 |　| _、 |　lﾞ　lﾞ .| }-'''.
　　 |　ヽ,,--'ﾞﾞ|　　ll!　|　 |　'" | .lﾞ .lﾞﾉ　 |　　
　　ヽ　　　 _,ﾉ　　 |　|　ﾞl　 │〈,. | l　丿　　
　　　ﾞ'''ｰ'''"　　　 ‘ﾞﾞ"　　ﾞ"″　ﾞ""'''"　　　
　　／.──┬　 /⌒ヽ
　／| ┌─┐|　　　　ノ　　　
　　 | └─┘|　　　|　　　　
　　 |　　　　 J　　　○　　　

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 08:21:48

こうやって関係の無いどうでもいい話を保身のために持ち込むのが荒らしなんだよな。

**ﾀｿｷ@妄想系統** ◆Ver7J..... · 2005/05/23(月) 08:23:50

>>165
オマエモナー

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 08:24:23

運営に気に入られようったって他所で荒らしやってんじゃ意味無いんだぞ＜雑音先生

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 08:31:39

>>166
何がお前もなんでしょうかね。

**ﾀｿｷ@妄想系統** ◆Ver7J..... · 2005/05/23(月) 08:32:13

もう2年ぐらい荒らしやってないけど、
あなたは運営板の古い人なの？

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

今現にここで釣られて荒らしている事実

**ﾀｿｷ@妄想系統** ◆Ver7J..... · 2005/05/23(月) 08:37:39

どっちかっていうと、気に入られたっていうより、
率直に削除人が連携して荒らしを煽る風土をどうにかできないかって思ったね。
うまく提示できたね。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 08:43:24

この程度もスルーしないのに提示したとか言っちゃってるのが笑える。
積み重ねてきたものが無い奴ほど　～は使えない　とか言うのを信じて自分はそうじゃないと安心することでしか
自分の中での自分の地位を確立出来んのだよな。

**ﾀｿｷ@妄想系統** ◆Ver7J..... · 2005/05/23(月) 08:48:35

他の板まで連携したまま煽りに行く人を数人認識してるからさ。
つまり、ID:wiySXr/N0の何か行動を変化させたいんだよ。
そこが凄く引っかかってここに来てみたわけ。
あと、トオルさんになにか力を貸したい。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 08:49:38

何でもいいけど雑談なら下げて。朝忙しいのに読んじゃうから。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 08:53:11

俺がそいつだとでも思ってんのかね。
煽ってる奴は同一人物でいつもまとまって行動しているとでも言うのか。

**ﾀｿｷ@妄想系統** ◆Ver7J..... · 2005/05/23(月) 08:53:51

>>174 OK
>>172 もうオレはこのスレの糞荒らしでいいからさ、
何が気に入らないのオレの？ぶっちゃけちゃってよ。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 08:55:05

いつの間にやら、変なのに居付かれてしまいましたなぁ('A`)

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 08:57:56

>>162が自分の事だと勘違いして荒らしてしまう所と
荒らしと自分でわかってる者の相手をしてしまう所>>161 >>163

こんなのもスルーできないなら、迷惑をかけるだけだから運営で作戦に参加しようなんて
思わんほうがいい。

**ﾀｿｷ@妄想系統** ◆Ver7J..... · 2005/05/23(月) 08:58:24

とにかくオレを2年以上前のことを持ち出して、
ウォッチしてたまに煽る削除人が何人かいるわけだろ？
オレの何が君を一番傷つけたの？

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

あー、恒例の人格批判かー('A`)
どっか行ってー

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 09:02:34

訳がわからん。
俺は君のことなんぞここでしか見てないし、
煽ってる奴は削除人だなんてなんて短絡思考だ。

**ﾀｿｷ@妄想系統** ◆Ver7J..... · 2005/05/23(月) 09:27:09

>>181
そうか。じゃあ、俺もなぜ運営の人に煽られまくるのか訳がわからんけど、
僕は荒らしという人格としてここに参加したのだけれど、
それが気に入られなかったということですよね。

煽ってる奴は削除人だなんての、ここの96とか、
http://ex.2ch.net/wall/kako/1005/10056/1005649648.html

他板で、こういうこともあったんですよ。
972 名前：妄想 04/07/19 14:23 ID:1u1bJEHx
もし俺に恨みがあるとしたら、あぼーん砲のボケカスしかいないし、
そいつの名前は今いる人★の可能性が高い。

975 名前：名無しさん 04/07/19 14:25 ID:???
>>972
憶測でもの言うな

976 名前：名無しさん 04/07/19 14:25 ID:???
>>972
何言ってんだこのアホは？

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 09:35:08

俺は運営の人じゃないし、他板で972のような書き込みを見たら975と同じ反応をするだろうな。
それに96がどうして君を煽ってるのは削除人だっていう証拠になる。

**ヾ（ﾟﾊﾟ）ﾉ** ◆f0.zuburi6 · NG

とりあえずスレ違いな話題は移動ﾖﾛ

一個聞きたい>>182
漏れはperlとか良く判らんけど,>>135 で「perlっぽいやつ」でどういうことやねん。
「ぽいやつ」で作らんといてくれるー？

はよねーよー

**動け動けウゴウゴ２ちゃんねる** · 2005/05/23(月) 09:42:13

>>184
ごめんなさい。

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

sage

**讃岐フォアンフォアン▲** ◆MylTDX..QI · NG

転載しておきます

408: ◆TWARamEjuA 2005/05/30 00:22:59 in+4hgAJ0 [sage]
さてさて｡
Rock54にて仮に対応をしてきたのですが､そろそろBBRが破綻しそうになって参りました(滂沱)
といいますのも､BBRに登録されているｸｴﾘの大半が､このｳｲﾙｽ関連のものに埋まってきましたものでして｡
実のところ､DB_File::BTREE にしているにもかかわらずその容量が300MBにも達しております｡

そこで願わくば､このｳｲﾙｽ対策として個別のﾙｰﾁﾝにて対応頂けるとありがたいかと思いまして｡｡｡>bbs.cgiの中の人
さて如何なものでしょうか｡いろいろなご意見をお待ちしておりますm

**動け動けウゴウゴ２ちゃんねる** · 2005/05/30(月) 01:37:45

思い切ってPHPにしてみては？

ApacheにPHPモジュールを組み込んだ状態でコンパイルしてしまえば
オーバヘッドも少なくなりますし。

**root▲ ★** · NG

SpeedyCGI にする前なら、それもありかもだったんですけどね。>>188

**動け動けウゴウゴ２ちゃんねる** · 2005/05/30(月) 03:45:46

今ってDSOでしたっけ？

１．bbs.cgiをApacheの組み込んでしまう
２．httpデーモンをカーネルに入れてしまう

今みたいな山田君の襲撃が今後起こらないとも限らないので
汎用性を考えればPHPですね・・・（とPHPを強く推してみる。
PHPをコンパイルして組み込めば更に早くなりますしね。

Denyテーブルってどれぐらいの容量（レコード数）を管理されてるのですか？
今の攻撃で正規表現で弾いてれば、これまたレスポンスが悪くなりますし。。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/30(月) 04:41:07

汎用性って必要？

**動け動けウゴウゴ２ちゃんねる** · 2005/05/30(月) 05:44:59

>>191
言葉が悪かった。

×汎用性
○メンテナンス性

◆TWARamEjuA · NG

>>187
転載、ありがとうですm(_ _)m

あと、IsKoukoku問題。 >>127 （リストの変換を出航の時だけにする）を実施すれば、ひとまず負荷は半減するかと思いますです。

◆TWARamEjuA · NG

>>193
それからそれから、リストの並びを「ヒット率の高いもの順」に替えてみました。
引っかかるのは簡単に引っかかるようにと。

でも「善良な書き込みほど負荷が掛かる」に対してはなにも太刀打ち出来ないでいます（泪）

**動け動けウゴウゴ２ちゃんねる** · 2005/05/30(月) 08:35:07

>>187
RockDBは何かしらの形でストライピングがいりますねぇ

**動け動けウゴウゴ２ちゃんねる** · 2005/05/30(月) 09:28:56

>>187
協力したいんだけど、bbs.cgiは随分長いこと見てなくてRock54って何？
って状態なんですが、どの辺りのスレから追えばみなさんに追いつけます？

**動け動けウゴウゴ２ちゃんねる** · 2005/05/30(月) 10:50:40

>>196
http://info.2ch.net/wiki/pukiwiki.php?Rock54
★山田ウィルス対策スレ３
http://qb5.2ch.net/test/read.cgi/operate/1116127723/

**root▲ ★** · NG

ということで、また、じわじわと増えてきたですね。
http://mumumu.mu/mrtg/mrtg-rrd.cgi/bbqbbx/bbr.html

Rockは「最後の手段」なので、そこに行く前に止める
(こないだおじさんがやった対症療法みたいに)必要がありそう。

あわせて >>187 >>193-194 が当面の課題か。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/30(月) 15:42:43

とりあえずいつもの「ハンマーをもらった子どもは何でも釘に見える」の啓蒙だよー

PerlよりPHPの方が軽くて速いは本当？（CGI編）
http://www.hippo2000.info/perl/tbench.htm

「Perlは遅いし大規模開発に向かない」というのはPerl4時代の話。
PHPだから早いわけでもない。
どちらかというと「どっちに慣れた人がたくさんいるか」という運用面での話しになる。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/30(月) 16:14:39

>>199
10回程度のループテストでは参考にならないでしょう。。。

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

>>200
じゃ数百回のループテストを公開でやってみたら？

**動け動けウゴウゴ２ちゃんねる** · 2005/05/30(月) 20:42:43

phpってソケット使える？

もし使えるなら実験してもいいよ
注意：php単独で使えるという前提 ( =~ apache等のwebを使用しない)

**動け動けウゴウゴ２ちゃんねる** · 2005/05/30(月) 22:46:17

>>201
数百じゃ話にならんよ。。。
日曜プログラマでシコシコやる分には良いが。。
２４時間との単位で負荷テストしないと。

>>202
ソケットもサポしてます。
Ver4以降からコマンドラインもサポしてますよ。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/30(月) 23:17:01

亜種の出る速度から考えて正直対症療法に意味があるとは思えないけど

**動け動けウゴウゴ２ちゃんねる** · 2005/05/30(月) 23:17:38

参考になる実験結果も持ってないのにどうしてそんなphpを力いっぱい押せるんだか

**動け動けウゴウゴ２ちゃんねる** · 2005/05/30(月) 23:47:10

っていうか、どんな言語でも（たとえ水平マイクロアセンブラでも）、今から新規に作り直せば、
今のbbs.cgiよりきれいに違いない
そんなの自慢にもならん

**動け動けウゴウゴ２ちゃんねる** · 2005/05/30(月) 23:55:23

作り直せというのは大分前からのこと。
仕様変更だって、1ヶ月前から告知したら専ブラも対応できるのに。
面倒なんですと。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/31(火) 00:08:01

個人的な負荷実験結果でこの際１００万アクセスって言われてる
ここでPHPの有効性を実際に実験したいってのが本音です。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/31(火) 00:26:27

口でいう奴よりも手を動かす奴のほうがすごい法則

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

しこしこ

**動け動けウゴウゴ２ちゃんねる** · 2005/05/31(火) 11:10:12

どのみち山田対策のからみもあって大幅な仕様変更やらなきゃいけないような悪寒がするけど・・・・

**動け動けウゴウゴ２ちゃんねる** · 2005/05/31(火) 11:12:53

PHP使ってるサイトを良く見ますけど、どのサイトもクソ重いです…。
いかにPHPが優れていようと今の2chのcgiより重かったら何にもならないです。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/31(火) 11:21:28

phpも便利な言語だし好きだけどperlと比べてそれほどメリットはないよ。
perl捨ててphpにしようとかphp妄信者の寝言はもうたくさん。

それでもphpにしようとかいうひとはphpでbbs.cgi,read.cgi相当の祖体ぐらいだしてからにしてくれよ。

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

>>212
大抵のところはphpを生で使ってるから重い。
スクリプトはそのままで、アクセラレータエンジン入れればだいぶ軽くなるんだがね。

◆TWARamEjuA · NG

同じような手法として、perlccなんてのがあったりするです。
live系はそうしているんだっけ？

**動け動けウゴウゴ２ちゃんねる** · 2005/05/31(火) 11:32:53

>214
御託はいいからさ
>213を嫁。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/31(火) 11:36:19

>>216 >>213と>>214は間違いなく漏れな訳だが。

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

確かにphpは3.0が出た当時はまだperlに比べてアドバンテージがあった。
apacheモジュール実装然り、初心者にわかりやすく多くのDBとの連携のあるAPI群。
この当時ってperl5がでるかでないかぐらいじゃなかったかしら。

基本的にperlとjavaの弟分みたいなところがあるし、
両者がチューンがすすみ、PerlもSpeedyCGIやmod_perlなどのラッパーが充実してきた今、あまりアドバンテージは感じられないな。

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

スクリプト言語の位置づけとコンパイル言語の位置づけを比較すると

shはアセンブラ
perlはC
rubyはC++/Java
phpはVB

ってところなのかな。

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

>>219
それは激しく異論があるぞ。
VBなんぞと一緒にするなよ。というかそれだけ言語じゃなくて処理系名かよ:p
だいたいどういう視点での位置づけなんだ？

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

言語の優位性語るスレじゃないのに
根本的な解決策にはならんでしょ

**動け動けウゴウゴ２ちゃんねる** · 2005/05/31(火) 12:20:06

>>220
単に初心者のとっつきやすさという観点からくっつけただけです

異論も出るのも当然ですね、スマソ吊ってきます

**動け動けウゴウゴ２ちゃんねる** · 2005/05/31(火) 16:56:28

Perl信者テライタスｗｗｗｗｗｗｗ

**stream** ◆ap/yuix/tw · NG

またいつものパターンですか

**root▲ ★** · NG

>>215
今は全部、speedycgiにしました。
perlccはしょせん、単なる毎回ロードするバイナリ。

で、ここでは「中身を何で書くか」といった、手段のことを言うんではなくて、
まずは目的のことを話してほしいなと。

まずは目的があったうえで、それにあった手段を選ぶわけで。

**動け動けウゴウゴ２ちゃんねる** · 2005/05/31(火) 17:13:26

で、現状の問題点

・より確実な山田対策
・IsKoukoku

違ったら指摘よろ
あとなんかありましたっけ？

**讃岐フォアンフォアン▲** ◆MylTDX..QI · NG

それでおｋ

**動け動けウゴウゴ２ちゃんねる** · 2005/05/31(火) 21:18:29

山田について説明希望

**動け動けウゴウゴ２ちゃんねる** · 2005/05/31(火) 21:20:19

検索して

**動け動けウゴウゴ２ちゃんねる** · 2005/05/31(火) 21:22:59

こんやが、

**ヾ（ﾟﾊﾟ）ﾉ** ◆f0.zuburi6 · 2005/05/31(火) 21:24:50

武田

**動け動けウゴウゴ２ちゃんねる** · 2005/05/31(火) 22:10:01

>>228
>>197

**ﾀｿｷ@妄想系統** ◆Ver7J..... · 2005/05/31(火) 22:50:24

cgi 外部での対策
　　ウイルスの対策告知・啓蒙
　　http://tmp5.2ch.net/download/ の head.txt に、
　　山田ウイルスなんとかかんとかですです。。　　　とか。

#　この板書けるのかしらはグローバルに
YamadaBarbon() # ブロック10回超えたら 12時間これにかかると閃き。パラメータ適当
barbon
bbq bbm
samba
@GB # 格納
@GB =~ # 変換重いと思われる。
#　一般的なエラーはここでまとめて
IsKoukoku # 重いと思われる。
#　このスレッド書けるのかしら
#　書き込み確認/書き込み警告

負荷対策として
　正規表現と文字列と eval の処理コストが高いので、
正規表現はコンパイルし、文字列はグローバルにする。
eval は外に出す。

# speedycgi のご利益はこういう風に受けるものだろうと思われる
@rMESSAGE = (qr/\r//g,
  qr/\n/ <br> /g;
);

if (/MESSAGE/) {
  $FORM{$_} =~ /@rMESSAGE[0]/;
  $FORM{$_} =~ /@rMESSAGE[1]/;

**ﾀｿｷ@妄想系統** ◆Ver7J..... · 2005/05/31(火) 22:53:30

山田ワクチンを作り、
重いところを軽くして山田耐性を上げる。

**動け動けウゴウゴ２ちゃんねる** · 2005/06/01(水) 01:01:49

スラッシュ入りとそうでないのにリストを分けて、入ってないレスの時はスラッシュ入りを回さないとか。

**動け動けウゴウゴ２ちゃんねる** · 2005/06/01(水) 07:16:37

rockのファイルってジンギスカンしてます？
まあそれ以前の問題かもしれませんが・・・

関連でこんなんはっときます
ttp://www.oracle.co.jp/interactive/Techniques/VLDB/Basic/step08.html

**235** · 2005/06/01(水) 10:31:09

メアドやドメイン名だけだとスラッシュ入らんな。ドットでチェックすればいいのかな。

**235** · 2005/06/01(水) 10:56:56

NGワードを「スラッシュ入り」「スラッシュ無しドット入り」「スラッシュ無しドット無し」の3つにあらかじめ分けておく。

「スラッシュ無しドット無し」のNGワードチェック。
本文にドットがあるかチェックして入ってたら「スラッシュ無しドット入り」のNGワードチェック。
本文にスラッシュがあるかチェックして入ってたら「スラッシュ入り」のNGワードチェック。

問題は正規表現と整合性がとれるかなんだが、俺はPerlわからんから予想できん。

**動け動けウゴウゴ２ちゃんねる** · 2005/06/01(水) 11:10:50

とりあえず、仕組みやコードについてアドバイスしたいのなら、
Rock54プロジェクト関連の全ての過去ログに目を通してから語った方が
ええよ。
そうしないと話がループして不毛になるから。
過去ログや関連スレを探すのも2chのプロジェクトに参加するための最低限の
スキルだから、どこにあるか分からないとか言わないでね。

◆TWARamEjuA · NG

じっけん結果。
RegExpのコンパイルは、あまり効果がなかったみたい。

Benchmark: timing 5 iterations of a, b, c...
a: 46 wallclock secs (42.39 usr + 0.01 sys = 42.40 CPU) @ 0.12/s (n=5)
b: 43 wallclock secs (25.86 usr + 0.03 sys = 25.89 CPU) @ 0.19/s (n=5)
c: 28 wallclock secs (26.54 usr + 0.02 sys = 26.56 CPU) @ 0.19/s (n=5)
s/iter a c b
a 8.48 -- -37% -39%
c 5.31 60% -- -3%
b 5.18 64% 3% --

◆TWARamEjuA · NG

#!/usr/local/bin/perl

use strict;
# use warnings;
use Jcode;
use Benchmark qw(:all);

########
# めいんるーちん
MAIN:
{
# 主要ファイル名
my $Rock54_PATH = qq|./|;
my $Rock54_List = qq|$Rock54_PATH/Rock54.txt|;
my $Rock54_List2 = qq|$Rock54_PATH/Rock54-1.txt|;
my $Rock54_DAT = qq|$Rock54_PATH/000.txt|;

my $reply = timethese( 5, {
'a' => \&IsKoukoku1,
'b' => \&IsKoukoku2,
'c' => \&IsKoukoku3,
});
cmpthese $reply;

exit;

◆TWARamEjuA · NG

# 従来の方法？
sub IsKoukoku1 {
# bbs.cgi の初めのところみたいところ。
# NGファイルの読み込み
open Rock54, $Rock54_List or die "$!:[$Rock54_List]";
# NG ワード要素を NG ワード、MD5値、フラグの 3 要素だけにしてリファレンスにしてして。
my @Rock_word = map [ (split /<>/)[5,6,7] ] , <Rock54>;
close Rock54;

# 索敵ファイルを読み込み（operate/1064936147.datを利用[820レス/504KB]）
open DAT_File, $Rock54_DAT or die $!;
my @DAT = map((split /<>/)[3], <DAT_File>); # 本文だけ抽出。
close DAT_File;

# ここからがIsKoukokuの本体みたいなところ。
# 総レス数(820)を10倍界王拳
foreach my $In_Strings ((@DAT) x 100){
# では NG ワードのチェック。
foreach my $NG_word_ref (@Rock_word){
$In_Strings = jcode->euc($In_Strings , 'sjis', 'z'); # 本文を半角カナ→全角カナ変換。
my $NG_word = jcode->euc($NG_word_ref->[0], 'euc', 'z'); # リファレンスから取り出して半角カナ→全角カナ変換。
if (my $matched = eval{$In_Strings =~ m<$NG_word>}) { last } # 合致したら。。。
elsif ($@) { last } # 不正 NG ワードがあったら。。。
}
}
}

◆TWARamEjuA · NG

# あらかじめ、カナ変換をしておく。
sub IsKoukoku2{
# bbs.cgi の初めのところみたいところ。
# NGファイルの読み込み
open Rock54, $Rock54_List or die $!;
# NG ワード要素を NG ワード、MD5値、フラグの 3 要素だけにしてリファレンスにしてカナ変換してして。
my @Rock_word =
map [ jcode->euc($_->[0], 'euc', 'z'), $_->[1,2] ],
map [ (split /<>/)[5,6,7] ],
<Rock54>;
close Rock54;

# 索敵ファイルを読み込み（operate/1064936147.datを利用[820レス/504KB]）
open DAT_File, $Rock54_DAT or die $!;
my @DAT = map((split /<>/)[3], <DAT_File>); # 本文だけ抽出。
close DAT_File;

# ここからがIsKoukokuの本体みたいなところ。
# 総レス数(820)を10倍界王拳
foreach my $In_Strings ((@DAT) x 100){
# では NG ワードのチェック。
foreach my $NG_word_ref (@Rock_word){
$In_Strings = jcode->euc($In_Strings , 'sjis', 'z'); # 本文を半角カナ→全角カナ変換。
my $NG_word = $NG_word_ref->[0]; # リファレンスから取り出し。
if (my $matched = eval{$In_Strings =~ m<$NG_word>}) { last } # 合致したら。。。
elsif ($@) { last } # 不正 NG ワードがあったら。。。
}
}
}