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

[1 動け動けウゴウゴ２ちゃんねる 2005/04/10(日) 16:15:47 ID:a6rtBqIi0]

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

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

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

[522 root▲ ★ NG NG]

Perlのできない私が（りゃ。
とりあえず、LAとれそうなことはわかった。

#! /usr/local/bin/perl

use strict;

sub mumumuGetLA
{
use Sys::CpuLoad;

my ($GB) = @_;
my @load;

@load = Sys::CpuLoad::load();
$GB->{LOADAVG} = $load[0];
}

my $GBX = {};
$GBX->{LOADAVG} = 0.0;

mumumuGetLA($GBX);
print $GBX->{LOADAVG}, "\n";

exit 0;

[523 root▲ ★ NG NG]

#! /usr/local/bin/perl

use strict;

sub mumumuGetMaxLA
{
my ($GB) = @_;
my $servertype = "";

if($servertype = /cobra/) { $GB->{MAXLOADAVG} = 30.0; } # cobra
elsif($servertype = /tiger/) { $GB->{MAXLOADAVG} = 20.0; } # tiger
elsif($servertype = /banana/) { $GB->{MAXLOADAVG} = 4.0; } # banana
else { $GB->{MAXLOADAVG} = 4.0; } # unknown
}

sub mumumuGetServerType
{
use Sys::Hostname;
my $hostname = "";

$hostname = hostname();
if($hostname =~ /cobra/ ||
$hostname =~ /oyster/) { return "cobra"; }
elsif($hostname =~ /tiger/) { return "tiger"; }
elsif($hostname =~ /banana/) { return "banana"; }
else { return "unknown"; }
}

# main

my $GBX = {};
$GBX->{MAXLOADAVG} = 0.0;


&mumumuGetMaxLA($GBX);
print $GBX->{MAXLOADAVG}, "\n";

exit 0;

[524 root▲ ★ NG NG]

あ、呼ぶところを入れてないね。

[525 root▲ ★ NG NG]

こんな感じか。
サーバタイプとってくるところは、外出ししといたほうがよさそうだから、
ちょっと冗長だけど、こうしておこう。

#! /usr/local/bin/perl

use strict;

sub mumumuGetMaxLA
{
my ($GB) = @_;
my $servertype = "";

$servertype = &mumumuGetServerType;
if($servertype =~ /cobra/) { $GB->{MAXLOADAVG} = 30.0; } # cobra
elsif($servertype =~ /tiger/) { $GB->{MAXLOADAVG} = 20.0; } # tiger
elsif($servertype =~ /banana/) { $GB->{MAXLOADAVG} = 4.0; } # banana
else { $GB->{MAXLOADAVG} = 4.0; } # unknown
}

sub mumumuGetServerType
{
use Sys::Hostname;
my $hostname = "";

$hostname = hostname();
if($hostname =~ /cobra/ ||
$hostname =~ /oyster/) { return "cobra"; }
elsif($hostname =~ /tiger/) { return "tiger"; }
elsif($hostname =~ /banana/) { return "banana"; }
else { return "unknown"; }
}

# main

my $GBX = {};
$GBX->{MAXLOADAVG} = 0.0;

&mumumuGetMaxLA($GBX);
print $GBX->{MAXLOADAVG}, "\n";

exit 0;

[526 動け動けウゴウゴ２ちゃんねる 2005/06/17(金) 16:35:12 ID:DURZUdCm0]

>>525
乙です。

全体に言えることなんだけど、$GBみたいなグローバル変数的な参照変数を
あちこちの関数で持ちまわるよりも、関数はLoadAve. だけ返すようにして、
呼び出し元で明示的に$GB->[MAXLOADAVG]などに格納してやる方が
トレースはしやすいかと思います。

&mumumuGetMaxLA($GBX); 

だと、$GBXのどこをどういじられたのか見当つかないわけでして、

$GBX->[MAXLOADAVG] = &mumumuGetMaxLA();

の方が明示的かな、と。それから

if($servertype =~ /cobra/) { $GB->{MAXLOADAVG} = 30.0; } # cobra 
elsif($servertype =~ /tiger/) { $GB->{MAXLOADAVG} = 20.0; } # tiger 
elsif($servertype =~ /banana/) { $GB->{MAXLOADAVG} = 4.0; } # banana 
else { $GB->{MAXLOADAVG} = 4.0; } # unknown 

おせっかいだとは思うんだけど、こういう書き方はタイプミスで泣きやすいです。
連想配列のキーの場合、綴りが間違っていてもwarningが出ないので。

perl5であることが前提だけど、理想的には$GBのようなものは用途別に分けて
それぞれblessしてやって、getMaxLAのような関連関数はパッケージに全部突っ込んで、
new関数でイニシャル時にガツガツ値を入れていく方がすっきりするとは思うんだけど、
1から作り直しになるやね。んでもそろそろClassの概念を入れる時期には来てるかと。あと

mumumuGetMaxLA
mumumuGetServerType
mumumuGetLA

こういう命名規則に頼るならpackage宣言しちゃった方が早いんではないかと思います。

[527 root▲ ★ NG NG]

MAXLOADAVGは1回だけ調べればいいので、ぐろーばるー(FOX)のほうに入れよう。

[528 root▲ ★ NG NG]

>>526
うわあ。ありがとうです。

Perlって、ぜんぜんやったことないんですよ。
shで暮らしていたので。

[529 動け動けウゴウゴ２ちゃんねる 2005/06/17(金) 16:41:23 ID:xq5cod4F0]

>>528
つか、場合によってはshでも十分でしょう・・・

[530 動け動けウゴウゴ２ちゃんねる 2005/06/17(金) 16:47:02 ID:DURZUdCm0]

>>528
Perlの前はawk使いだったのでshは苦手ですｗ
参加できるのか分からないけど、できることがあればやりますよ。言い出しっぺの法則ですし。
全体のソースは見てないのですが、グローバル変数をあちこちに引きずる方式で
拡張を続けるといずれ破綻するような気がします。

[531 root▲ ★ NG NG]

$FOX->{MAXLOADAVG} = &mumumuGetMaxLA();

にしました。
これは、船が出港する時に1回だけ実行。

で、$GB->{LOADAVG} (こっちは毎回調査)と $FOX->{MAXLOADAVG} を比較して、
$GB->{LOADAVG} 以上だったら、特殊処理っていうかんじで。

[532 root▲ ★ NG NG]

で、
$GBX->{LOADAVG} = &mumumuGetLA();

にした。
確かにこのほうが、わかりやすいですね。

[533 root▲ ★ NG NG]

で、mumumuMaxLACheckを作った。

sub mumumuMaxLACheck
{
my ($GB) = @_;

if($GB->{LOADAVG} ge $FOX->{MAXLOADAVG}) { return 1; }
else { return 0; }
}

これで、処理部分からこれを呼んでチェック。

[534 root▲ ★ NG NG]

基本的に、$FOX が船が出航する時に1度だけ作られて、
$GB が船に乗る客ごとに作られているようです。

何せ、ドキュメントも仕様書も何にもないので(そういうもんらしいです)、
ソースからおじさんの心を、読み取っていくしかないわけで。

[535 動け動けウゴウゴ２ちゃんねる 2005/06/17(金) 17:56:52 ID:DURZUdCm0]

>>533
> if($GB->{LOADAVG} ge $FOX->{MAXLOADAVG}) { return 1; } 

数値比較なら

if($GB->{LOADAVG} >= $FOX->{MAXLOADAVG}) { return 1; } 

にしないとマズいんではないかと。

>>534
なるほど。ソースは基本的に非公開なんでしょうか？

[536 root▲ ★ NG NG]

>>535
そうなんですか(何も知らないのです)。
変えておきます。

>>534
ひ（りゃ の方針により、全面公開することは控えています。
広告チェック部分とか、公開できるところは公開していますです。

[537 毒さぼ 2005/06/17(金) 18:37:31 ID:JW+0RdvC0]

geだと文字列比較になるね。（>=が一般の数字比較）
例えば、$aaaが'100'、$bbbが'25' だとしたら、
($aaa >= $bbb) は真になる（100のほうが25より大きい）けど、
($aaa ge $bbb) は偽になっちゃう。（'1'より'2'のほうが辞書で後に出てくる）

[538 root▲ ★ NG NG]

>>537
直したです。
というか、私がいじるようじゃ、まずいんですよ。（す）

BBS.CGI - 2005/06/17

[539 動け動けウゴウゴ２ちゃんねる 2005/06/17(金) 18:43:35 ID:xq5cod4F0]

>>536
というより、クリティカルなところは公表しないほうが無難かと

[540 root▲ ★ NG NG]

>>539
むろんひ（りゃ の「公開しない」は、そういう方針からですね。

[541 だんしゃくねこ 2005/06/17(金) 18:48:53 ID:JW+0RdvC0]

>>538
│＿Ａ
│・−・） ふふふ。。。（無表情で
↓ ⊂）

[542 動け動けウゴウゴ２ちゃんねる 2005/06/17(金) 18:53:11 ID:MsktfovF0]

むぎゅ。

[543 ◆mami/ZczII 2005/06/17(金) 19:18:23 ID:6y9xGyFjO]

>>530
ふむ。

[544 root▲ ★ NG NG]

>>543
あ、プログラミングをしたさそうな人が。

[545 root▲ ★ NG NG]

>>530
…下2行は、確かにそうですね。

というかこの問題は、なかなかに難しい(テクニカルにじゃなくて)のかもなと。

[546 動け動けウゴウゴ２ちゃんねる 2005/06/17(金) 19:29:32 ID:Oo+hRM1L0]

マミ… クリィミーマミ…
yasuさんか

[547 ◆mami/ZczII 2005/06/17(金) 20:35:24 ID:6y9xGyFjO]

>>545
グローバル変数はまだ使い慣れてないので、
頃合いの勘が働かないです。
たった数ファイルなのに「どこで定義されているんだー！」状態です。

>>546
まみらですよ。

[548 動け動けウゴウゴ２ちゃんねる 2005/06/17(金) 20:51:21 ID:DURZUdCm0]

>>545
経験上、一度拡散したグローバルスコープな変数や関数は収拾するのが大変だし、
それで破綻しちゃったシステムもたくさん見てるので……。

スコープを意識せず書かれたソースコードは、全体を見渡さないと構造が把握できないように
なっているものが多く、ソースコードの総量が1人の人間が把握しきれる量を超えた時点で
誰も理解できない代物になってしまい、保守が不可能に→破綻となっちゃったりするわけです。

>>547
グローバルスコープな書き方の欠点がまさにそれですよね。てことは、グローバル変数は
実装上止むを得ず使ってるんでしょうか？

[549 ◆mami/ZczII 2005/06/17(金) 21:03:43 ID:6y9xGyFjO]

>>548
携帯用c.2chのphpを解読中でーす。

[550 ◆TWARamEjuA 2005/06/17(金) 22:20:48 ID:LI9OTnlL0]

そろそろ引退の時期？

[551 ◆mami/ZczII 2005/06/17(金) 22:55:06 ID:6y9xGyFjO]

>>550
ん？私の事ですか？
人員を増やしても良いと思ってはいます。

[552 動け動けウゴウゴ２ちゃんねる 2005/06/17(金) 23:18:54 ID:DURZUdCm0]

>>551
人員増やすなら立候補したいんだけど、その場合どうればいい？
携帯は経験浅いが、Perlなら10年以上Webプログラムとして書いてる。

[553 動け動けウゴウゴ２ちゃんねる 2005/06/17(金) 23:28:12 ID:Oo+hRM1L0]

聡明期からか
すげえな

[554 動け動けウゴウゴ２ちゃんねる 2005/06/17(金) 23:44:30 ID:g+uG/BcP0]

perlerさん並の理解力と柔軟性を期待

[555 動け動けウゴウゴ２ちゃんねる 2005/06/17(金) 23:57:14 ID:DURZUdCm0]

>>553
Web自体はもっと前からあったけど、Mosaicの普及で一気に火がついた頃です。

>>554
大きくは裏切らないと思う。

[556 動け動けウゴウゴ２ちゃんねる 2005/06/18(土) 01:18:32 ID:P97ComF00]

なんか詳しそうな人ｷﾀ━!

念のため関連スレ
http://qb6.2ch.net/test/read.cgi/operate2/1108090447/l50

[557 ◆TWARamEjuA 2005/06/18(土) 07:52:36 ID:lPNKO7CS0]

KﾖNTさんとかRes9ueとかですよねぇ。。。＠グロ引きずりまわして破綻
この辺の改造依頼は基本的には断っていたりしてして（苦笑）

さてと、そろそろ林檎機がくるのでまずは基地の修繕かなぁ。。。
（SweepさんとBBRさんがごきげんななめ＠coreをエレエレ中）

[558 555 2005/06/18(土) 09:59:40 ID:FstfHQuj0]

>>556
上がってないと専用ブラウザでも見れないっすね……。

>>557
お疲れです。

いや、Webに限っては大手企業でも結構そういう事があるんですよこれが。
まあ自分で蒔いた種なんですが、保守しきれなくなったプログラマが夜逃げとか。
……で、今その夜逃げしたプログラマが書いたとされるWebプログラムの再構築を
やってたりしますｗ

あとフリーウェアの開発が途中で止まっちゃって、かといってソースコードも開示しないって
事例が多いのもそういうのが原因だったりすることが多いんじゃないかな。

[559 ◆MUMUMUhnYI NG NG]

>>558
再構築おつです。
人の書いたPerlの保守って、Cとかと比較してもなんか相当大変みたいですね。
(「みたい」っていうのは、感覚では理解しているが単に自分が体験していないってことです)

本業方面の知り合いのところに約10年近く「つぎはぎんぐ」されてきた
約37,000行のPerlとかありますが、もう、すごい状態みたいです。
ブログにも少し書きましたが、もう「神の領域」ってやつらしく。

そのPerlは主に書いたやつ(二人)が現役だそうで、
今でもきちんとメンテされてるみたいですが、
その二人がいなくなると(以下略。

[560 動け動けウゴウゴ２ちゃんねる 2005/06/18(土) 15:24:40 ID:AVxh77pL0]

>>559
> 約37,000行のPerlとかありますが、もう、すごい状態みたいです。

・・・・・・・・・すげぇ＞その知り合い

[561 ◆MUMUMUhnYI NG NG]

・LAが基準値以上なら、IsKoukokuを船が死ぬまでスルーにした。
・animeサーバは、subject.txt/subback.htmlさぼりを発動させるレベルを
他のtigerサーバよりやや低めにした(基準値に対する率が違う)