はじめてさわってみる　DWS（その２）


【ほんの少しだけいたわってあげましょう？】


あれ？　DWSで作ったページが真っ白・・・？

あれ？

あれ？あれ？

あれれ？

　うーん・・・？　考えること３秒・・・
システム障害？？？

とサイトへ直行
　・・・

緊急メンテナンスのお知らせ

DWSのご利用ありがとうございます。

ただいま、緊急メンテナンスを行っております。



　　あー　緊急メインテなんすですかぁ・・・

ということで

少しコードを変更

 my $content = get $url;
を
 my ($content);
 $content = get $url;
に変更

if (($content eq '')) {
   # 何らかの障害？なので　別のページ用関数を呼び出しておわり？
   print '現在表示できません';
   exit;
　}

なんだか　ウェブサービスブログをみていると
システムが かよわそう

　ついでなので

少しだけ
　ホント　少しだけですよ

システムをいたわってあげようと思い
１分間だけ　ファイルをキャッシュするように変更

my ($content);
  $content = get_stocked_dataFrom_db($url, 1); # キャッシュ時間（分）
  if (($content eq '')) {
     $content = get $url;
     $content =~ s/\x00//img;
     # if (!($content eq '')) {
       stock_db($url, $content);
     # }
  }

※ get_stocked_dataFrom_db, stock_db　は、
　　当方のオリジナル関数なので世界を探してもおそらくありません。
　似たような物は世界中に出回っています。

少しの DBの知識さえあれば簡単に作れます