はじめてさわってみる DWS(その2)
【ほんの少しだけいたわってあげましょう?】
あれ? DWSで作ったページが真っ白・・・?
あれ?
あれ?あれ?
あれれ?
うーん・・・? 考えること3秒・・・
システム障害???
とサイトへ直行
・・・
緊急メンテナンスのお知らせ
DWSのご利用ありがとうございます。
ただいま、緊急メンテナンスを行っております。
あー 緊急メインテなんすですかぁ・・・
ということで
少しコードを変更
my $content = get $url;
を
my ($content);
$content = get $url;
に変更
if (($content eq '')) {
# 何らかの障害?なので 別のページ用関数を呼び出しておわり?
print '現在表示できません';
exit;
}
なんだか ウェブサービスブログをみていると
システムが かよわそう
ついでなので
少しだけ
ホント 少しだけですよ
システムをいたわってあげようと思い
1分間だけ ファイルをキャッシュするように変更
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の知識さえあれば簡単に作れます