★負荷軽減対策委員会（Perl、PHP)★

**ジークハルト** ◆VUxx/EwNXI · 02/10/15 10:33

サーバ上にPerlやPHPを置く場合、何よりも重視しなければ
ならないのはサーバへの「負荷」。
負荷の高いCGIの使用は削除対象となるのが目に見えてます。
負荷を軽減させるにはどうすればいいか？
どういう書き方をすればいいか？
そんな委員会を開設しました。

**nobodyさん** · 03/01/14 15:39

>>245
perldoc HTML::Template したら、

> You may optionally supply a filehandle to print to
> automatically as the template is generated. This may
> improve performance and lower memory consumption.
> Example:
>
> $template->output(print_to => *STDOUT);
>
> The return value is undefined when using the "print_to"
> option.

だって。エラー処理のことを考えたら、>>243 のやり方がいいとは思うけど。

http://member.nifty.ne.jp/hippo2000/perltips/html/template.htm はちょ
と古いね。

**山崎渉** · 03/01/15 13:39

（＾＾）

**nobodyさん** · 03/01/17 23:14

あの、漏れもFFAを軽量化しようと改良してるところ。
メインの画面のhtmlとかをJavaScriptで生成して２回目からは
クライアント側でキャッシュできるかな？と
思ってますがかなり軽量できますかね？

**nobodyさん** · 03/01/25 16:11

>>261
師匠、いくらプログラムをいじったってパソコンは軽くならないですよ。

**nobodyさん** · 03/02/10 00:29

>>262
質量保存の法則ですか?

**nobodyさん** · 03/02/10 11:12

電源から電気をもらっているわけで
ＨＤの容量が変わると電荷の分増えたりしないのか？

**nobodyさん** · 03/02/16 11:56

>>264
んなこたーない。

**nobodyさん** · 03/03/01 17:02

２ショットサイト作成中なんですが、チャットってログはテキストより
SQLにした方が負荷は低いですか？
チャット自体はモジュールのPHPで動かす予定なんですが。

**nobodyさん** · 03/03/01 17:06

>>266
ログは多くても100件保存できればOKでしょ？
だったらテキストの方が良いに決まってる。

**nobodyさん** · 03/03/01 21:11

>>266
チャットは
mod_perlで常駐させて
配列にログ入れて
ファイルアクセスをなくすと
めっちゃ早かったでつ。

んで、保存ログは20行以下に切り詰めて
ブラウザ側でJavaScript使ってログを保存・表示させていく方式が
よろしかろう･…というか、よろしかったでつ。

**266** · 03/03/02 10:48

>>276
チャット一つあたりのログは精々10～20件ぐらいですね。
他に管理者用のｺｿｰﾘ覗き見スクリプト（ログ全件保存）ってのも
作ってあったりしますが＾＾；

>>268
mod_perlは普通に動くスクリプトをそのまま動かせるんだったら
試してみようとも思うんだが。お手軽さならPHPに流れちゃうね。
そういえば自分、JavaScriptは全然わけわかめだった＾＾；

**ハッカ飴** · 03/03/02 23:25

>>244
1ページ分を1つの変数に入れたとしてもせいぜい50KB。
たいしてメモリを食わないと思うんだがどうだろう？

**nobodyさん** · 03/03/03 15:53

辞典みたなものをCGIで作ろうと思ってるんだけど、データをHTMLで保存するか
ログファイルに保存して毎回CGIで表示するか迷ってる。
CGIサーバが5MBしか容量ないので保存データ量を節約したいけど負荷が気になる。
1日500件もアクセス無いはずだから別にいいかな？

**nobodyさん** · 03/03/10 14:42

>>271
辞典の更新頻度、検索の手段によるのでは

**山崎渉** · 03/03/13 17:03

（＾＾）

**nobodyさん** · 03/04/02 16:48

質問です。

Windows2000
Apache 1.3.26 win32
ActivePerl 5.6.1

でCGIのテストをしているのですが、
CGIの負荷を数値等で表示してくれるツールってないですか？

今は、タスクマネージャーで見ているのですが、
もっと詳細に負荷の具合を調べたいのですが、

ご存じの方、よろしくお願いします。

**nobodyさん** · 03/04/03 00:43

>>274
DProf を試してみたら？

**山崎渉** · 03/04/17 12:10

（＾＾）

**山崎渉** · 03/04/20 06:23

　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

**nobodyさん** · 03/04/23 00:06

あのー、
Perlで、myやlocalをほとんど使っていないってのは、
どのくらいの負荷要因でしょうか？ベスト１？

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/04/23 00:32

>>278
それで変数のコピーを抑えれば効率的と言えるかも。

**nobodyさん** · 03/04/23 12:57

>>278
perlの実行ファイルで既に1M近くあるし、モジュールとか読んだら、
もっと増える。
気にするやつは馬鹿。自己満足。知症。
たとえれば、ボルトを全部チタンにして100gの軽量化に成功！とか言ってる
車オタと同類。

**nobodyさん** · 03/04/24 01:07

このスレ的な話題をあつかった本って、あります？

**nobodyさん** · 03/04/24 01:31

プログラムとデザインをわけようとして、
テンプレート読み込み型のデザインをしていたんだけど、
そのせいなのかなー、急に重くなった気がする

**nobodyさん** · 03/04/24 12:43

>>283
データ更新の機会がそれほど発生しないものならば、動的にHTMLを生成する
のではなく、データ更新時、静的HTMLを随時生成するのに切り替えるのも一つの
手かと。

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**わっしょい** · 03/04/27 17:57

http://www.atmarkit.co.jp/flinux/special/php5/php5a.html
速くなるのでしょうか・・・？

**nobodyさん** · 03/04/27 23:41

>287 phpに速さを求めちゃイカン。

**nobodyさん** · 03/04/28 01:16

>>288
そう，PHPは実行速度より開発速度

**nobodyさん** · 03/04/28 23:00

Perlもそうだよ～

**nobodyさん** · 03/04/30 00:11

Perlで3MくらいのCSVを読み書きするのって、
かなりの負荷？

あと、ここのみなさんは、どうして負荷について知識があるんでしょうか？
経験上？

**nobodyさん** · 03/04/30 00:21

>>291
一回しかやらないのなら
大した負荷にならないが
BBSのログとかだったら負担になるかもね

**nobodyさん** · 03/05/02 05:14

オブジェクト指向のプログラムは負荷軽減になるの？

**nobodyさん** · 03/05/02 06:55

ならない

**nobodyさん** · 03/05/02 10:25

>>291
DBM使え。簡単だぜ。
郵便番号ファイル（郵政省--いま何たっけ--の）で速度5倍だぜ。
http://www.ichikoro.com/webp/bk/00060.htmlのベンチマーク。
あれ、２Mくらいじゃなかったっけ？

**nobodyさん** · 03/05/02 11:29

>>288
そうそう。よほど非常識なことをしなければ、スクリプト言語で効率を考えるのはナンセンス。

**nobodyさん** · 03/05/02 15:38

>>296
>>295にあるように効率はいつも考えるべき。

**nobodyさん** · 03/05/04 07:37

>>297
そうだね。コードの一つ一つで効率を考えることによって、
全体としてそうとうの負荷軽減になる。例えば、
http://www.mikeneko.ne.jp/~lab/perl/numerical_transform/#h4を
ベンチマークで検索してみれ。

**nobodyさん** · 03/05/05 23:05

>>292
そうかー、ちょっと反省。

ところでどなたか、↓の質問答えてほしいです。。。

＞あと、ここのみなさんは、どうして負荷について知識があるんでしょうか？
＞経験上？

あと、負荷軽減について詳しい本（の一部とか雑誌でも）ないでしょうか？

**nobodyさん** · 03/05/06 00:03

>>299
ラクダ本買っとけ。

**nobodyさん** · 03/05/07 15:10

負荷がどうとかと言う人ほど、use strictしたままリリースしそう。

**nobodyさん** · 03/05/09 00:10

use strict すると負荷がかかるんですか？

**nobodyさん** · 03/05/09 15:22

>>302
検査する時間が増えるだろ、アクセスごとに検査させるのか。

**nobodyさん** · 03/05/11 11:49

Cでいえばassert有効にしたままリリースってのに似ているな。
わざとそうしている人もいるみたいだけど・・・

**nobodyさん** · 03/05/15 03:27

負荷を測るのってどうすればいいの。
自分のPCで動かしてもよーわからん。

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/05/19 07:37

メモリについて質問させて下さい。
例えば
$x="abc";
の後、
$x="";
という記述なしに
$x="def";
とした場合、メモリは、
abcの○○○分と、defの○○○分の
○○○○○○分が確保されてしまいますか?

$x="abc";
$x="";
$x="def";
にすれば
メモリ確保は○○○だけになると思うのですが。

**nobodyさん** · 03/05/19 07:48

>>307
たぶん・・・
変数へ上書きしたら、ちゃんと初期化（開放）してから、
代入してくれると思ふ。

**nobodyさん** · 03/05/19 08:57

>>308
そうですか。
では$x="";は無駄ですね。
ありがとうございます。

**nobodyさん** · 03/05/19 09:06

Perlは最初に確保したメモリ空間を開放しません。
たとえ、ゼロに初期化しても。undefなら別。
http://www.mikeneko.ne.jp/~lab/perl/tuning/

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/05/19 15:55

>>310
何が言いたいのかわからん。

**nobodyさん** · 03/05/19 16:11

>>310
すんまそん。
メモリ確保を解放するかしないかは分かります。
メモリ確保は○○○分で済むのか、○○○○○○分確保してしまうのかを聞きたいのです。

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/05/19 17:41

詳しく知りたかったら、Perlのソースを読むしかないと思うけど。

**nobodyさん** · 03/05/20 01:00

>>315
>>310 の記述を見ると、３バイト分しか確保しないように思えたけども。

**nobodyさん** · 03/05/21 00:27

apacheのログ２，３日分。約４M。PHP。極貧マシン。
while & fgets & copy -> 処理50秒前後　メモリ使用４M前後 CPU100％
file & foreach(or list&each) & copy -> 処理60秒前後　メモリ使用１５M前後　CPU100％
fread & copy -> 処理0.5秒前後　メモリ使用４M前後　CMP100％

**nobodyさん** · 03/05/21 15:21

>>320
PDA以下だね･･･。

**山崎渉** · 03/05/22 02:00

━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―

**nobodyさん** · 03/05/22 15:08

ったく、山崎のおかげでｽﾚ順めちゃくちゃだ。

**nobodyさん** · 03/05/26 07:37

ファイルをコピーする時って

open(IN,"Src.txt"); #コピー元ファイル　Src.txt をオープン
while(<IN>){　　　　# 一行毎の読み込みループで変数$Bufに読み込む
　$Buf .= $_;}
close(IN);　　　　　#ハンドル IN が不要になったので閉じる

◇デソースに書き出す
open(OUT,"> Dst.txt");　#コピー先ファイル Dst.txt をオープン
print OUT,$Buf;　　　　　#ソースの内容($Buf)を書き出す
close(OUT);　　　　　　　

のように一行ずつ読み込んでく場合と
@line=<IN>;
みたいにいっきに配列に入れてしまうのはどちらが処理としてはいいのでしょうか?

**nobodyさん** · 03/05/26 08:20

>>324
open IN, '<' . $src or die;
open OUT, '>' . $dst or die;
my $buffer_size = 1024; # 適宜調整
my $buffer;
print OUT $buffer while read IN, $buffer, $buffer_size;
close OUT;
close IN;

**nobodyさん** · 03/05/26 08:36

>>325さん
それが最適なのですか。
勉強になります…。
サイズ1024は何を意味しているのだろう…

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/05/26 11:18

>>326
1024 byte は 1 kbyte だろ？
コンピュータの基礎じゃねえか。

ま、俺だったらFile::Copyモジュールを使うかも。
バグがあるかも知れないソース書くより楽だし。

**326** · 03/05/26 14:05

my $buffer_size = 1024; # 適宜調整
すいません。
これを記述することで何が得なのかを知りたいのでした。

**nobodyさん** · 03/05/26 14:38

>>329
実行エンジンにもよるんだけども、メモリを確保する場合、8byte単位とかそういうのが多いから
(アライメント）。
Perlだとどうだか？って気もするけども。

**nobodyさん** · 03/05/26 14:57

8・・・

**nobodyさん** · 03/05/26 18:41

>>329
微妙に意味がわからんな……
推測をして回答してみる。
1.$buffer_sizeを設定することで、何バイトずつコピーするのかの設定が可能になる。
この数値を小さくすると、コピー回数が増えるが、メモリーへの負担は減る。
この数値を逆にすると、その逆。
サーバーの具合を見て適宜調整することができる。
2.わざわざ変数を一つ設定することの意味は、変数の名前をわかりやすくすることで、
その変数が何に使われているのかをわかりやすくする。
「昨日の自分は他人」の言葉どおり、後から見た時になんでその数値にしたのか等が判断しやすくなる。

何が聞きたいんだろう……

**nobodyさん** · 03/05/26 21:27

3. 設定(定数)と実働部分はできるだけ分離する。
>>324のコード片がスクリプトのどこに埋もれていても、
変数 $buffer_size としてスクリプトの頭の方で定義しておけば
簡単にバッファサイズを変更できる。定数で埋め込んでしまうと
変更したい時にいちいち探し回る事になる。

**nobodyさん** · 03/05/26 21:28

s/324/325/

**nobodyさん** · 03/05/26 21:32

Perlは最適化とかしないのかな？
@buf = <IN>
のほうが早かったりして。

**nobodyさん** · 03/05/26 21:50

open(IN, $src);
open(OUT, '>'.$dst);
print OUT while(<IN>);
close(IN);
close(OUT);

こう書くかも。
readで読み出すバイト数は多い方が速いと思う。当然だけど。
ただ多過ぎるとそれはそれでメモリくったり。

**nobodyさん** · 03/05/26 22:07

>>335-336
ベンチ取れば分かる事だが、@buf = <IN> はメモリを一気に
確保する = System CPU time を食う。行入力演算子による
取得は「行末」を探す = 可変長入力なので潜在的に read
より遅い処理。もちろん扱うデータのフォーマット & 量次第
だけどね。

どうしても行入力演算子でやりたければ
$/ = \1024;
while (<IN>) { ... }
で 1024 byte 単位で読めるけど、素直に read 使った方が
速かったかと。

**336** · 03/05/27 01:07

たしかにそうですね。
改行コードを探しながら進むので遅いと。

**山崎渉** · 03/05/28 17:05

　　　　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾）＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

**nobodyさん** · 03/05/28 18:05

age

**nobodyさん** · 03/05/28 23:45

ファイルの書き込みを追記にしたばあいの負荷ってどうなるんですか。
たとえば書き込むものは同じとして、
追記先のファイルが1行のときと1000行のときでは
ＣＰＵメモリ負荷はどうなるんでしょう。
追加するだけだから大して変わらないかなと思ったんですけど。

**あぼーん** · NG

あぼーん

鷹 · 03/05/29 00:29

$kazu=(((($my_tech-int(rand($my_tech/4)))*$job_dmg[$job])*$tarou)/$mstamina)*$stamina;
このように一気に計算させるのと、
いくつもに分けて計算させていくのでは
負荷は変わるのでしょうかね?
変わるのならどちらが軽いと思いますか?

**nobodyさん** · 03/05/29 00:52

>>341
追記の場合、元のファイルの大きさはほぼ影響しない。
Cをやっている人間ならわかる（はず）だが、
追記と言うのは、ハードディスク上のファイルの終端を探し出して、
そこから新たなデータを埋めて行き、最後にファイルの大きさを示す数値を変更する作業だ。
従って、ファイルの終端を探し出す作業だけが、ベンチマークに影響する。

**nobodyさん** · 03/05/29 00:54

>>343
メモリの占有率を調べたいなら、そういうソフト入れてベンチマーク取ればわかる。
そして結果を発表すると皆から感謝される。

むしろ、その式は人間が見やすいかどうかを考慮した方がいいと思う。

**nobodyさん** · 03/06/01 05:17

下記の中で最も負荷が少ないのはどれでしょうか？

1.printを使い一行ずつ出力
2.ヒアドキュメントで出力
3.別ファイルを作り読み取らせて出力

3は後々便利そうだけど、負荷が気になる…。

**nobodyさん** · 03/06/01 07:32

**nobodyさん** · 03/06/01 10:16

>>346
負荷が少ないって、どっちの？

「省メモリ」？それとも「ＣＰＵ占有の少なさ」？

**nobodyさん** · 03/06/01 11:08

>>346
>3.別ファイルを作り読み取らせて出力
>3は後々便利そうだけど、負荷が気になる…。

じゃあ外部ライブラリとかあまり使わない方がいいよ。CPANもね。

**nobodyさん** · 03/06/01 12:28

>>346
1.出力処理が遅い。
2.出力処理は早い。
3.良識ある人間のやること。

一般に、メモリ占有量の低いものの方がウェブには向いているよ。

**nobodyさん** · 03/06/01 13:28

>>350
そうか？次々とくる要求に迅速に対応するために処理速度を優先しない？

**nobodyさん** · 03/06/01 14:21

webプログラムは、サーバへの負荷も気をつけないといけないと思うけど、
それよりも、トラフィックを一番に考えてる俺は間違ってますか？

**nobodyさん** · 03/06/01 16:03

>>347-351
どうもです。

**nobodyさん** · 03/06/01 16:59

そんな細かい事ぐらいでｻｰﾊﾞｰから言われる事はまず無いので
私も処理速度を優先させるべきだと思うねぇ。
というか、気にするほど大して変わらない。
基地外なほど膨大なデータを扱うならまだしも。

**nobodyさん** · 03/06/01 23:12

想定同時アクセス1000くらいの小さな案件で、
鯖を用意してやるなら、保守性を一番においても問題ないと思う。

**nobodyさん** · 03/06/01 23:24

>>355
>想定同時アクセス1000
これって小さいの? 秒間同時アクセス数1000ってことだよね?

**nobodyさん** · 03/06/02 02:48

共有メモリを活用する、繰り返し使用する正規表現はlexで、
大きなプロセスは常駐させてローカルソケットでCGIと通信してCGIは小さく作る、
データベースは下手に使わない、巧く使える場合にだけ使用する。

**nobodyさん** · 03/06/03 01:39

>>354
サーバーがつんでるメモリーの量によってどっち優先かは変わると思われ。
メモリー使い切ったらswapのオーバーヘッドがかかってかえって遅くなるし。
まあ、最近のサーバーはメモリーを湯水のように持っているからそんなこと考える必要ないのかな?

**nobodyさん** · 03/06/03 05:54

Perl5からＰｅｒｌでもコンパイルした状態で設置できるようになったと読んだんですがどうすればできますか？