▼スレッド
│
└◇751:Re[2]:負荷軽減案、いろいろ [moon] 08/26 09:04

　└◇752:Re[3]:負荷軽減案、いろいろ [masaki] 08/27 09:42
　　└◇755:Re[4]:負荷軽減案、いろいろ [moon] 08/27 20:24
　　　└◇760:Re[5]:負荷軽減案、いろいろ [masaki] 08/30 15:58<-last

> ここがよくわからないのですが、(1)の処理というのはどのようなものでしょうか？（＾＾；
> (2)はこのへんでしょうか？？(汗
> 　　　　open(IN,"$usrdir$_[0]\.dat") || &error("ID $_[0]は存在しません");
> 　　　　@_ = <IN>;
> 　　　　close(IN);
> 　　　　if (!@_) { &error("読みこみエラー") }

(2)はsub get_userの@_ = <IN>;からreturn @_;までです。
そして、(1)は読み込み部分を$userline = <IN>;のように1行だけ読み込むようにしマイレコード部分は読み込まないようにします。
# (1)を実行したにも関わらず間違って&userout;をしてしまうとマイレコードが消えてしまうので注意。
考えられるメリットデメリットは、
・メリット : メモリ使用量、HDアクセスの減少
・デメリット : ifの判定が1つ多くなるだけ

---- 昨日書いたことの訂正 ----

> # もしくはさらに進んで、
> # return $_[0] + $_[1] ? (int($_[0] / ($_[0] + $_[1]) * 100) * $_[0] + ($_[2] - $_[3]) * 100) : (($_[2] - $_[3]) * 100);
> # 無駄な括弧は気分で付けただけなので無くても大丈夫だと思います。

デフォルトのように殺害数や死亡数が勝利数と敗北数が0だと必ず0なら、: (($_[2] - $_[3]) * 100)は: 0でもOK。

> メリット : ファイルアクセスが最低1回は少なくなるのでHDのシークにかかる時間が少なくなる。

分割した場合、と比べてのメリットです。

> 基本コンセプトが同じだと思われるもの

実際、同じということは無いと思うので「似たようなもの」に訂正。

> > ここがよくわからないのですが、(1)の処理というのはどのようなものでしょうか？（＾＾；
> > (2)はこのへんでしょうか？？(汗
> > 　　　　open(IN,"$usrdir$_[0]\.dat") || &error("ID $_[0]は存在しません");
> > 　　　　@_ = <IN>;
> > 　　　　close(IN);
> > 　　　　if (!@_) { &error("読みこみエラー") }
>
> (2)はsub get_userの@_ = <IN>;からreturn @_;までです。
> そして、(1)は読み込み部分を$userline = <IN>;のように1行だけ読み込むようにしマイレコード部分は読み込まないようにします。
> # (1)を実行したにも関わらず間違って&userout;をしてしまうとマイレコードが消えてしまうので注意。
> 考えられるメリットデメリットは、
> ・メリット : メモリ使用量、HDアクセスの減少
> ・デメリット : ifの判定が1つ多くなるだけ
呼び出すときは、&get_user("$Fm{'id'}");をどのように変えればいいのでしょうか？？（＾＾；
質問ばかりですみません。。

> 呼び出すときは、&get_user("$Fm{'id'}");をどのように変えればいいのでしょうか？？（＾＾；
> 質問ばかりですみません。。

すみません。勘違いをしていました。
正しくは、
　　if($_[1]){ # 0ではなく1
　　　　# (1)
　　}
　　else{
　　　　# (2)
　　}
です。
そして、呼び出す場合は、
　　&get_user($Fm{'id'});
および、
　　&get_user($Fm{'id'}, 1);
で大丈夫だと思います。

> > 呼び出すときは、&get_user("$Fm{'id'}");をどのように変えればいいのでしょうか？？（＾＾；
> > 質問ばかりですみません。。
>
> すみません。勘違いをしていました。
> 正しくは、
> 　　if($_[1]){ # 0ではなく1
> 　　　　# (1)
> 　　}
> 　　else{
> 　　　　# (2)
> 　　}
> です。
> そして、呼び出す場合は、
> 　　&get_user($Fm{'id'});
> および、
> 　　&get_user($Fm{'id'}, 1);
> で大丈夫だと思います。
やってみました（＾＾；
返信遅れてすみません。
軽くなった(ような？)気がします(汗
ありがとうございました！