1size 1M未満か

memcached

キャッシュ失敗

#!/usr/bin/perl

use Cache::Memcached::Fast;

my $cache = Cache::Memcached::Fast->new({servers => [ '127.0.0.1:12345']});

my $x = 'a' x 1024 x 1024;

my $time = time;
for(1..1000){
    my $key = $time  . $_;
    $cache->set( $key , $x );
    warn length $cache->get( $key );

}

キャッシュ成功

#!/usr/bin/perl

use Cache::Memcached::Fast;

my $cache = Cache::Memcached::Fast->new({servers => [ '127.0.0.1:12345']});

my $x = 'a' x 1024 x 1023;

my $time = time;
for(1..1000){
    my $key = $time  . $_;
    $cache->set( $key , $x );
    warn length $cache->get( $key );

}