[Perl] CPANのCacheモジュールを使ってみる

　Perl プログラムでファイルキャッシュ機構を提供する CPAN モジュール Cache::File についてのメモ

use lib './extlib';
use constant CACHE_KEY_NAME => 'a key name';
use constant CACHE_EXPIRE => '600 sec';

;# 相対パス指定の場合、実行パス基準ではなく /tmp/my_cache に作られる
my $cache_path = './my_cache';
;#my $cache_path = '/home/your/account/path/cache';

my $cache = Cache::File->new (cache_root => $cache_path)
	or die 'Cache::File->new';

;# キャッシュパスを確認
printf "cache_root = %s¥n", $cache->cache_root ();

my $data = $cache->get (CACHE_KEY_NAME);
unless ($data) {
	printf "cache data is expired. generate new value¥n";
	$data = localtime ();
	$cache->set (CACHE_KEY_NAME, $data, CACHE_EXPIRE);
}
printf "now = %s¥n", localtime ();
printf "cached data = %s¥n", $data;

　extlib に含まれるモジュールの一覧；

コメントを投稿する

名前	(必須/公開)
メール	(必須/非公開)
返信先
コメント	お気軽にコメントをお寄せください・コメントを投稿するにはブラウザの JavaScript を有効にしてください・入力された通りに改行位置で改行されます・HTML タグは使用できませんが、文中の URL は自動的にリンクされます・"<" は "<"、">" は ">" と書いてください
投稿確認	コメントスパム防止のため投稿前にを入力してから投稿してください。お手数ですがご協力のほど宜しくお願いいたします。(必須)

ヘッダメニュー

[Perl] CPANのCacheモジュールを使ってみる

この記事を読んだ人はこんな記事も読んでいます

この記事のアーカイブ

関連記事/トラックバック

この記事にトラックバックを送るには？

コメントを投稿する

リファレンス

ブロガープロフィール

ツール

モバイル

ナビゲーション

記事検索

勝手におすすめ

最近のコメント/関連記事

最近の人気記事

フッタメニュー

ヘッダメニュー

[Perl] CPANのCacheモジュールを使ってみる

この記事を読んだ人はこんな記事も読んでいます

その他の関連する記事

この記事のアーカイブ

関連記事/トラックバック

この記事にトラックバックを送るには？

コメントを投稿する

リファレンス

ブロガープロフィール

ツール

モバイル

ナビゲーション

記事検索

勝手におすすめ

最近のコメント/関連記事

最近の人気記事

フッタメニュー