▼スレッド
│
└◇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つ多くなるだけ
呼び出すときは、&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);
> で大丈夫だと思います。
やってみました（＾＾；
返信遅れてすみません。
軽くなった(ような？)気がします(汗
ありがとうございました！