Maintenir un cache persistant

On aborde un des grands problèmes des applications WEB, en particulier des applications CGI, qui consite à maintenir un cache de données tout en offrant la possibilité de gérer l'expiration des données.

Le principe est simple, les données sont persistantes entre les applications sur une durée donnée et une fois l'expiration atteinte elles ne le sont plus. Voila ce que permet le module Cache::Cache .

use Cache::FileCache;

my $cache = new Cache::FileCache();
my $name = $cache -> get('name');
if(not defined($name)) {
        print "Please insert your name \n";
        $name = <STDIN>;
        chomp($name);
        $cache -> set('name',$name,'15 s');
}
say "Hello $name !";