my $cache_root_root = "/home/yto/www/foobar/cache";
my $cache_page =
Cache::File->new(cache_root => $cache_root_root."/page",
cache_umask => 000,
default_expires => '48 hours',
size_limit => 10000000,
);
if (defined $cache_page and $key !~ /^\s*$/) {
my $data = $cache_page->get($key);
if ($data) {
print decode('utf8', $data);
print qq(<!-- cached file -->\n);
exit;
}
}
...
my $template = join("", <DATA>);
my $t = HTML::Template->new(scalarref => \$template,
loop_context_vars => 1,
global_vars => 1,
die_on_bad_params => 0);
...
my $out = $t->output();
if ($cache_page and $key !~ /^\s*$/) {
$cache_page->set($key, $out);
}
print $out;
インターネットに散らばる情報からあの有名人の身長を推定します。
あくまで推定値なので、正確さを保障するものではありません。
なお有名人でない場合は推定精度がいちじるしく低下します。

ある事柄についてネット上のテキストから好き嫌いの評価を抽出し集計します。
「簡易」版なのでかなり不正確です。ご了承ください。
