Open MagicVox.net
#!/usr/bin/perl
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
", $cache->cache_root ();
my $data = $cache->get (CACHE_KEY_NAME);
unless ($data) {
printf "cache data is expired. generate new value
";
$data = localtime ();
$cache->set (CACHE_KEY_NAME, $data, CACHE_EXPIRE);
}
printf "now = %s
", localtime ();
printf "cached data = %s
", $data;
extlib に含まれるモジュールの一覧；
English