Renato obrigado, estou testando essa solução.<br><br>Mas não estou conseguindo colocar nada no cache<br><br>Estou fazendo algo errado ?<br>Segue o meu codigo:<br><br><br><i>#!/usr/bin/perl -w<br><br>use Data::Printer;<br>use strict;<br>
use warnings;<br>use Getopt::Long;<br>use CHI;<br> <br># Choose a standard driver<br>#<br>my $cache = CHI->new( driver => 'Memory', global => 1 );<br><br><br>my $name = $ARGV[0];<br><br><br>my $customer = $cache->get($name);<br>
<br><br>if ( !defined $customer ) {<br>    $customer = get_customer_from_db($name);<br>    $cache->set($name, $customer, "10 minutes");<br>}<br><br><br><br><br>sub get_customer_from_db {<br>    my $name = shift;<br>
    print "Add cache\n";<br>    #$customer = get_customer_from_db( $name );<br>    $customer->{'email_address'} = '<a href="mailto:foo@foo.com">foo@foo.com</a>';<br>    $customer->{'first_name'} = 'foo';<br>
    $customer->{'last_name'} = 'bar';<br>    $customer->{'id'} = $name;<br>    return $customer;<br>}</i><br><br><br><br><br><div class="gmail_quote">Em 2 de setembro de 2012 17:39, Eden Cardim <span dir="ltr"><<a href="mailto:eden@insoli.de" target="_blank">eden@insoli.de</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">>>>>> "Jose" == Jose Nilton <<a href="mailto:jniltinho@gmail.com">jniltinho@gmail.com</a>> writes:<br>

<br>
    Jose> Alguém poderia me indicar uma api de cache simples para guardar na<br>
    Jose> RAM, cache de 2 minutos mais ou menos.<br>
<br>
    Jose> Algo simples e pratico e bem rápido.<br>
<br>
<a href="https://metacpan.org/module/CHI" target="_blank">https://metacpan.org/module/CHI</a><br>
<span class="HOEnZb"><font color="#888888"><br>
--<br>
Eden Cardim                        Software sob medida<br>
<a href="tel:%2B55%2011%209644%208225" value="+551196448225">+55 11 9644 8225</a>              Gestão de projetos de software<br>
<a href="mailto:edenc@insoli.de">edenc@insoli.de</a>            Gestão de servidores e bancos de dados<br>
                            Treinamento em soluções Open Source<br>
     Insolide<br>
Soluções de TI Ltda.     Converse conosco a respeito de como nossas<br>
 <a href="http://insoli.de" target="_blank">http://insoli.de</a>      soluções podem ajudar o seu projeto ou empresa<br>
</font></span><div class="HOEnZb"><div class="h5">=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
 L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>..............................................................................<br><b>Com Deus todas as coisas são possíveis</b> ::: <a href="http://www.linuxpro.com.br" target="_blank">LinuxPro</a><br>
<br><i><font size="1">"A qualidade nunca se obtém por acaso; ela é sempre o resultado do esforço inteligente." (John Ruskin)<br>"A mente que se abre a uma nova ideia jamais volta ao seu tamanho original" (Albert Einstein)</font></i><br>
<br>