■ bbs.cgi(SpeedyCGI)の巻 part1 (2004/12/01-)
とりあえず、SpeedyCGI化は成功。
しかし、先は長そう。さてどうすべきか。
1) bbs.cgi の改良(再入可能化?)により、speedy -- -r1 以外で起動可能にする
2) speedycgiの設定チューニング(並列度とかいろいろ)
あたりから詰めていくことになるのかなと。
参考スレ:
■ read.cgi(DSO味)の巻 part1 (2004/12/01-)
http://dso.2ch.sc/test/read.cgi/myanmar/1101888913/
【Project peko】2ch特化型サーバ・ロケーション構築作戦 Part15
http://qb5.2ch.sc/test/read.cgi/operate/1093068260/
Itadaいたり不動の楽しみをお持ちだったりする方々などのお力を、
ぜひお借りしたいところかも、かも。
Perl はﾜからﾝのです、はい
今のあばうと処理手順をかいてみてくださいまし
1) main はどうかけばいいのか、
2) 変数(とくにグローバル)はどう書けばいいのか、
あたりなんです。
枠組みが理解できれば、書き直す人も増えるかも、
test/bbs.cgi ← 小さい導入部、なるべく叩き落せるのはここでやる。
require '本体bbs.cgi' 以降処理は'本体bbs/cgi'へ
ほとんど(多分全部かも)は戻ってこない、どっかで exit;
本体bbs.cgi
いろんな処理をして、どっかで exit; されている
まずtest/bbs.cgiは
1)環境変数を整理
2)setting.txtを読み込む
3)ふるい落とし処理
バーボンハウスチェック＞bbqまたはbbmチェック＞sambaチェック＞rockチェック
# バーボンとsambaが機能的に一部かぶっている希ガスのですが・・・
4)その他処理？（なんかあったっけ）
ですかね
3)のところ(bb?チェックまで)
if(barbon(ip)){
error(barbon);
exit;
}
endif;
if(けーたい)
if(callbbm(id)==だめぽ){
error(bbm);
exit;
}endif;
else
if(callbbq(ip)==だめぽ){
error(bbq);
exit;
}endif;
endif;
特にrockは本文のチェックが入るから処理が重いと思われなので後回し。
処理の原則は環境変数＞別途ファイルに格納されている設定値＞本文の順かな
目的は SpeedyCGI のフル機能を実現するには
どのようにコーディングすればいいか? なんですよ。
> speedyが他のリクエストを開始したとき、どのくらいの量のperlの状態が保持されますか？
> グローバルはその値を保持していますか？リクエストの後にデストラクタが走りますか？
>
> グローバルはその値を保持します。リクエストの後は何も破壊されません。 STDIN/STDOUT/
> STDERRはクローズされます -- 他のファイルはそうではありません。 %ENV と @ARGVだけが
> リクエストの間で変更されるグローバルになります。
変数も初期化しないとだめ、か。
%ENVと@ARGVは呼び出された時に
ソースの処理の前に値が代入されるからな、
その処理が終らないうちに次ぎづぎにbbs.cgi が立ち上がる(呼ばれる)ので
都度初期化するというよりは、完璧に分離しなきゃならないってことかと
つまり スタックを使うしか無いんだと思うんだな、
Perl ではどうやってやるの?
setting.txtとsamba設定、rockワードリストの読み込みぐらいしかできることがなさそう・・・
固定値はこれらだけのはず・・・
# これらもあやしかったりするけど・・・
perlでスタックはこんなんありました。
http://www2u.biglobe.ne.jp/~MAS/perl/waza/stack.html
> 私のperlアプリケーションがspeedyで動くためには変更する必要があるかは、どうすれば判断
> することができますか？あるいは何も変更は必要ないのでしょうか？
>
> 変更する必要があるかもしれません。
>
> グローバルが実行の間で保持されます。例えば永続的なデータベース・ハンドルを保つという
> ことではいいことかもしれませんが、あなたのコードがそれらが未定義であることを想定して
> いればよくありません。
>
> また、グローバル変数を"my"で作成するならば、サブルーチンの中からそれらの変数を参照し
> ようとするべきではありません - その代わりにそれらをサブルーチンに渡すべきです。ある
> いは完全に問題をさけるために、単にmyの代わりに"use vars"でグローバル変数を宣言したほ
> うが、まだましです。
>
> ここに、この問題についての素晴らしい説明があります - これはmod_perlについてですが同
> じことがspeedycgiにも当てはまります:
>
> http://perl.apache.org/faq/mod_perl_cgi.html#Variables_retain_their_value_fro
>
> 全てが失敗するのであれば、MaxRunsを1に設定することにより常駐を無効にすることができま
> す。これが通常のperlに比較しての唯一の利点は、speedyがスクリプトを事前にコンパイルす
> ることにあります。
push @stack, '1'; #@stack=('1')
push @stack, '2'; #@stack=('1', '2')
pop @stack; #@stack=('1')
push @stack, '3'; #@stack=('1', '3')
pop @stack; #@stack=('1')
pop @stack; #@stack=()
かねぇ。これがスタックではなくキューだと、popじゃなくてshiftか。
----
push 末尾に要素(スカラー変数/リスト変数)を追加、追加後のリストの要素数をリターン
pop リストから末尾の1要素を取り除く、取り除いた要素をリターン
shift リストから先頭の1要素を取り除く、取り除いた要素をリターン
単にグローバル変数を使わなければすむと思う。。
使わないとすれば
たとえばどんなコーディングすればいいのかなぁ
(すんません Perlしらんもんで)
グローバルなしだとmod_perlと大差ないらしいっすよ・・・>speedy
あと、sub{ } のなかでも変数宣言なしでの変数の使用はしちゃいけないとか。
極端なことをいえば、全部の変数をmainで宣言ですか・・・
かえります。
#!/usr/bin/perl
#
$aaa = "";
my $bbb = "";
&gogo($aaa,$bbb);
sub gogo
{
my $ccc = "";
print "$aaa $bbb $ccc";
}
exit;
なんてコード書いて $aaa , $bbb , $ccc はどみに実態があるの?
というのを私が知らないんです。
$bbb , $ccc はスタックのような気もするのですが・・・
$aaa はグローバル? (static , CS←コードセグメント?)
うーん、誰か教えてちょ
○ どこに
（;´д｀）
その例だと、$aaa、$bbbはグローバル変数、$cccはローカル変数ですね、（コード全般にわたって）
それで、&gogo($aaa,$bbb); は&gogo; としても挙動は変わんないかと、
サブルーチンを呼び出す時、&gogo($aaa,$bbb); では、($aaa,$bbb)を引数として
gogoという関数を呼び出している、という意味になるわけですが、
それをsub gogo でどう引き出すか、というと、sub gogoの中で my ($a,$b) = @_; あたりにするんですよね。
つまり、サブルーチンに渡された引数はPerlでは@_ に入ってるんですね、
しかし、@_を使わないで直接$aaa,$bbb と書くと、直接グローバル変数のほうを見に行くんですよね。
>>21 さんの言うような感じになるのかな? どなのかな?
$aaa , $bbb がグローバルなら
数十個あると思われ。。。
どこでどう使われているかもとっても不明なのだ、
あと、これはどうなるんだろ
use strict 'vars'; が宣言されていて
use vars qw($version);
$version ='20041104';
こんな感じになっているやつ
もっとも定数として使われてる分には問題ないかと。
定数はこれくらいで、他は全部変数だったり
リモホ引いておいて置くやつとか、各種状態フラグとか、、、
use strict 'vars'; が宣言をやめて、
use vars qw($version); の宣言もやめれて
sub main_bbs
{
}
なんてので囲んじゃえばローカルになる?
いちいちmy 付ける必要あり?
そうやって全部にmyをつければ一応ローカルにはなるけど、
外側のmy変数にアクセスするのはいけないらしいっすよ。
工数掛ける仕様になっとらんのです < わたし
うまくいく = 劇的に負荷が軽減する
という光が見えなきゃ・・・
真剣にやってもしょうがないかと、
・グローバル変数は our で(そのリクエスト固有の情報を入れてはだめ)
use strict;
use warnings;
use sigtrap;
をつけても動くようにする。(変数初期化とか)
・サブルーチンのなかから外のmyにアクセスしてはだめ。ourはよい。
・サブルーチンのなかから外のmyで宣言された変数を書き換えるときは、サブルーチンを呼び出すときに参照を渡す。
簡単に試してみることはできなそうだな、、、
{
$xxx = ""; ←これはローカル? (stack?)
&subsub1();
}
sub subsub1
{
print "$xxx"; ← サブルーチンで親のローカルを参照できる?
}
多分こうすれば…
sub main_bbs
{
my $xxx = "";
&subsub1($xxx);
}
sub subsub1
{
my $xxx = shift;
print "$xxx"; #書き換え不可
}
かもしくは
sub main_bbs
{
my $xxx = "";
&subsub1(\$xxx);
}
sub subsub1
{
my $xxx = shift;
print "$$xxx"; #書き換え可
}
use strict 'vars';
これは特にやめる必要はないと思うです。
use vars qw($version);
これは宣言するとグローバル変数になるから、
それをやめたければ、mainでやるのはやめたほうがいいですね。
myはプライベート変数であることの宣言なんで、
サブルーチンでやるならつける必要はあるかと、
> これはローカル?
no. myかourをつければローカル。
> サブルーチンで親のローカルを参照できる?
myは不可。ourなら可。
より
our $version;
のほうがタイプ数がs(ry
あとはリファレンスで操作すると、すぴでぃーの方も気持ちよくなるのかな？
してみるとか。
実際に実験するときはどうやればいいんですか?
親bbs.cgiの1行目を、
#!/usr/local/bin/speedy -- -r1 -t60 -b1048576
から、
#!/usr/local/bin/speedy -- -t60 -b1048576
にして、書き込んでみると。
どもですどもです
それは現在のところ
dso.2ch.sc だけですよね?
他のtigerサーバもspeedyで動いているので、
dso.2ch.scで動作確認した後、他のtigerな掲示板サーバでも同じ要領で試せます。
頻度順にソーティングしていないんでしょうか。
それならば検索は早く終了するかと。
#!/usr/local/bin/speedy -- -t60 -b1048576
になっとるです (>>42)
何が問題なのかな?
あまり時間が取れない状況ですが、お手伝いできるところはさせて頂きますー
と亀レス。
おい、お前。そう、お前だよ。
「このスレおもろいから見てみ」「２ちゃんの歴史に残る名スレだぜ」とか言われてホイホイと
このhtml化されたスレを見にきた、お前のことだ。
どうだ？このスレおもしれーだろ。
でもな、お前はこのスレを読むだけで、参加することはできねーんだよ。
可愛そうにな、ﾌﾟﾌﾟﾌﾟ。
俺は今、ライブでこのスレに参加してる。
すっげー貴重な経験したよ。この先いつまでも自慢できる。
まあ、お前みたいな出遅れ君は、html化されたこのスレを指くわえて眺めてろってこった。
| ﾟーﾟ)
⊂ ﾉ
| ,/いや、参加できる。
伝えないことが悪いのだ。
伝えなければコミュニケーションは発生しない。
伝えられた相手は、感情で返せばよいだけなのだ。
思ったことをはっきり言わないことが大人だという考え方は間違っている。
その結果、変に相手の感情を気にしてしまい、また、それを強制する社会システムを作り上げてしまい
、結果的に日本社会はストレスの多い社会になっているのだ。
. ,ｲ | | |/:::::/ ,ｲ ∧ l ヽ ＼
/ | | |:::::/ ィ'"¨/ | / V ､! ﾍ ヽ
,′ ｜ l | ／ ,/ / .| / ∨|ヽ ﾊ ﾍ
i ｜ 〈j::/ ,/ / l/ Vﾍ ｜ ,∧
｜ ｜ ! ∨ /,＞=ﾐ. / ,r=く }| ｌ｜ ト､',
｜ ｜ ｌ V,勹::::ﾊ ' jr'ﾊ∨ |｜｜ ヽ
l｜八 ', :| 《{::ﾄ :::ﾉ| |{::ﾘ } /! ﾄ､:|
| |∧ ヽ/∨ﾊ V弋rﾘ Vﾉ ∧/｜| ',l!
Ⅵ V { V::ﾍ ', ¨´ ' '' | :|/ ﾘ
ヽ V 廴.∨:::ヽ、 ヽ ( ﾌ ,.ィ| :|
∨ ﾄ､.∨ト､＼ ヽ 、 _ .．＜ |/八 ,'
∨| ＼{￣￣＼ ＼/j/}/ ｜ }/
ヽ| |＼:: :: :: ＞- ＼ /
,':: :: ::.／／￣￣＼
</a> utidwv
</a> :-DD
◆当店の主要な経営のヴィトン 偽物
◆ヴィトンダミエ財布,ヴィトンモノグラム財布
◆ヴィトンタイガ 財布,ヴィトンの型押し財布
◆ヴィトン マルチカラーモノグラム 財布
◆ルイヴィトン ブリーフケースヴィトンの時計
◆全物品運賃無料(日本全国)
◆不良品物情況、無償で交換します
◆信用第一、良い品質、低価格は
◆私達の勝ち残りの切り札です。
◆期待，ご注文の方は!
◆税関の没収する商品は再度無料にして発送します。
◆100%品質保証！満足保障！リピーター率100％!
◆店長：坂惠 田子
連絡先：bagout2010@yahoo.co.jp
当店: http://www.bag-out.com
◆BIUT
◆特大優惠活動!!絶対価値ありで～す?(●^o^●)
◆当店の主要な経営のヴィトン 偽物
◆ヴィトンダミエ財布,ヴィトンモノグラム財布
◆ヴィトンタイガ 財布,ヴィトンの型押し財布
◆ヴィトン マルチカラーモノグラム 財布
◆ルイヴィトン ブリーフケースヴィトンの時計
◆全物品運賃無料(日本全国)
◆不良品物情況、無償で交換します
◆信用第一、良い品質、低価格は
◆私達の勝ち残りの切り札です。
◆期待，ご注文の方は!
◆税関の没収する商品は再度無料にして発送します。
◆100%品質保証！満足保障！リピーター率100％!
◆店長：坂惠 田子
連絡先：bagout2010@yahoo.co.jp
当店: http://www.bag-out.com
◆BIUT
◆特大優惠活動!!絶対価値ありで～す?(●^o^●)
◆当店の主要な経営のヴィトン 偽物
◆ヴィトンダミエ財布,ヴィトンモノグラム財布
◆ヴィトンタイガ 財布,ヴィトンの型押し財布
◆ヴィトン マルチカラーモノグラム 財布
◆ルイヴィトン ブリーフケースヴィトンの時計
◆全物品運賃無料(日本全国)
◆不良品物情況、無償で交換します
◆信用第一、良い品質、低価格は
◆私達の勝ち残りの切り札です。
◆期待，ご注文の方は!
◆税関の没収する商品は再度無料にして発送します。
◆100%品質保証！満足保障！リピーター率100％!
◆店長：坂惠 田子
連絡先：bagout2010@yahoo.co.jp
当店: http://www.bag-out.com
◆BIUT
◆特大優惠活動!!絶対価値ありで～す?(●^o^●)
</a> svfo
▲は最高級の的の品質を必要とします。
→→ここです。
▲は運賃の無料を必要とします。
→→ここです。
▲は定刻に到着します。
→→ここです。
ルイ?ヴィトン、シャネル、グッチ、監督、ローレックス、プラダ、宝嘉は美しいです
種々の腕時計、財布、包み、まだここです
今顧客の時間が頼むのは十分で、当店を見ます。
当店は専門のサービスを提供しています。
今顧客は精力と少しの時間を費やすことができて、商品を買って、とても便利です。
●注意:当店bag-out商品の安全。
安心して下さい
特大な大安売りな活動！
絶対にアリ～で値をします。
■HP: http://www.bag-out.com
■担当者:坂惠 田子
■中隊の経絡先に:bagout2010@yahoo.co.jp
▲は最高級の的の品質を必要とします。
→→ここです。
▲は運賃の無料を必要とします。
→→ここです。
▲は定刻に到着します。
→→ここです。
ルイ?ヴィトン、シャネル、グッチ、監督、ローレックス、プラダ、宝嘉は美しいです
種々の腕時計、財布、包み、まだここです
今顧客の時間が頼むのは十分で、当店を見ます。
当店は専門のサービスを提供しています。
今顧客は精力と少しの時間を費やすことができて、商品を買って、とても便利です。
●注意:当店bag-out商品の安全。
安心して下さい
特大な大安売りな活動！
絶対にアリ～で値をします。
■HP: http://www.bag-out.com
■担当者:坂惠 田子
■中隊の経絡先に:bagout2010@yahoo.co.jp
▲は最高級の的の品質を必要とします。
→→ここです。
▲は運賃の無料を必要とします。
→→ここです。
▲は定刻に到着します。
→→ここです。
ルイ?ヴィトン、シャネル、グッチ、監督、ローレックス、プラダ、宝嘉は美しいです
種々の腕時計、財布、包み、まだここです
今顧客の時間が頼むのは十分で、当店を見ます。
当店は専門のサービスを提供しています。
今顧客は精力と少しの時間を費やすことができて、商品を買って、とても便利です。
●注意:当店bag-out商品の安全。
安心して下さい
特大な大安売りな活動！
絶対にアリ～で値をします。
■HP: http://www.bag-out.com
■担当者:坂惠 田子
■中隊の経絡先に:bagout2010@yahoo.co.jp
</a> =(
</a> wjvab <a href=" http://blogs.rediff.com/jodoaom ">Nude Preteen Thumbnails
</a> %PP <a href=" http://blogs.rediff.com/usireqeaf ">Home Preteens Nude
</a> mav <a href=" http://blogs.rediff.com/utyryryak ">Preteens X Pics
</a> >:-)) <a href=" http://blogs.rediff.com/uykaaa ">My Preteens Angels
</a> >:-DD <a href=" http://blogs.rediff.com/obosesuhub ">Preteen Cheerleader Bbs
</a> :-O <a href=" http://blogs.rediff.com/diobei ">Preteens Micro Miniskirt
</a> suclee <a href=" http://blogs.rediff.com/yducyadyt ">Real Preteen Candids
</a> tsemz <a href=" http://blogs.rediff.com/efimemyol ">Webcam Preteen Girls
</a> >:[ <a href=" http://blogs.rediff.com/soanemap ">Hot Preteen Sex
</a> %]
</a> %]]] <a href=" http://blogs.rediff.com/qiciagyg ">Nasty Nymphets
</a> 906 <a href=" http://blogs.rediff.com/uoceeku ">Black Nude Nymphets
</a> =-( <a href=" http://blogs.rediff.com/roqopusad ">Young Underage Lolitas Nymphets
</a> cwxw <a href=" http://blogs.rediff.com/dyirydoju ">Free Gallery Nymphets
</a> 00073 <a href=" http://blogs.rediff.com/yyqesybu ">Black Nymphets
</a> 2217 <a href=" http://blogs.rediff.com/lygiohuqe ">Sweet Virgins Nymphets
</a> 50246 <a href=" http://blogs.rediff.com/horisyid ">Sveta From Studio 13 Eternal Nymphets
</a> 761 <a href=" http://blogs.rediff.com/iqiyebu ">Dark Nymphets Porn
</a> 8[[[ <a href=" http://blogs.rediff.com/auunypu ">Nymphets Wild
</a> 12758
♂♂♂♂♂♂♂♂♂♂♂♂♂♂♂♂
2011年最高財布等級時計大量入荷超人気!!
┣時計
┣財布
┣小物
┣秋冬 靴
┗2011新作展示
N級最高等級時計大量入荷
新品種類がそろっています。
Ｓ/SS品質 シリアル付きも有り 付属品完備！
品質がよい、価格が低い、実物写真！
当社の商品は絶対の自信が御座います。
100%品質保証 ！満足保障100％！
経営方針: 品質を重視、納期も厳守、信用第一
100%品質保証！満足保障！リピーター率100％!
■担当者:坂惠 田子
当店HP：http://www.bag-out.com
連絡先：bagout2010@yahoo.co.jp
BIUT
特大優惠活動!!絶対価値ありで～す?(●^o^●)
┣時計
┣財布
┣小物
┣秋冬 靴
┗2011新作展示
N級最高等級時計大量入荷
新品種類がそろっています。(*^-^*)
Ｓ/SS品質 シリアル付きも有り 付属品完備！
品質がよい、価格が低い、実物写真！
当社の商品は絶対の自信が御座います。
100%品質保証 ！満足保障100％！
経営方針: 品質を重視、納期も厳守、信用第一
100%品質保証！満足保障！リピーター率100％!
■担当者:坂惠 田子
当店HP：http://www.bag-out.com
連絡先：bagout2010@yahoo.co.jp
BIUT
特大優惠活動!!絶対価値ありで～す?(●^o^●)
┣時計
┣財布
┣小物
┣秋冬 靴
┗2011新作展示
N級最高等級時計大量入荷
新品種類がそろっています。(*^-^*)
Ｓ/SS品質 シリアル付きも有り 付属品完備！
品質がよい、価格が低い、実物写真！
当社の商品は絶対の自信が御座います。
100%品質保証 ！満足保障100％！
経営方針: 品質を重視、納期も厳守、信用第一
100%品質保証！満足保障！リピーター率100％!
■担当者:坂惠 田子
当店HP：http://www.bag-out.com
連絡先：bagout2010@yahoo.co.jp
BIUT
特大優惠活動!!絶対価値ありで～す?(●^o^●)
┣時計
┣財布
┣小物
┣秋冬 靴
┗2011新作展示
N級最高等級時計大量入荷
新品種類がそろっています。(*^-^*)
Ｓ/SS品質 シリアル付きも有り 付属品完備！
品質がよい、価格が低い、実物写真！
当社の商品は絶対の自信が御座います。
100%品質保証 ！満足保障100％！
経営方針: 品質を重視、納期も厳守、信用第一
100%品質保証！満足保障！リピーター率100％!
■担当者:坂惠 田子
当店HP：http://www.bag-out.com
連絡先：bagout2010@yahoo.co.jp
BIUT
特大優惠活動!!絶対価値ありで～す?(●^o^●)
</a> 255
</a> vmqqh
</a> 144990
せやな
大阪府三島郡島本町は大阪の糞ダメとも呼ばれているガラも程度も悪い暴力とイジメの町？
100～のスレッドの続きを読む