如何将复杂的Perl对象存储到Memcached中?

时间:2013-01-22 12:00:15

标签: perl memcached

我无法将Perl对象存储到Memcached中。我尝试使用Cache::Memcached将复杂的Perl对象存储到Memcached服务器中。 Memcached在默认情况下运行,因此我认为保留了64 MB。无论如何都不应该达到这个限制。

如何将复杂的Perl对象存储到Memcached中?

以下代码无法将对象存储在Memcached服务器中。如果您将迭代量从23_171更改为例如4,则没有问题。

#!/usr/bin/perl
############################################################################
# Script
use strict;
use warnings FATAL => 'all';
use Cache::Memcached;
my $memd = Cache::Memcached->new( servers => ['127.0.0.1:11211'] );
my $obj  = MyModule->new;
$obj->add( MySubModule->new($_) ) for ( 1 .. 23_171 );
$memd->set( 'obj', $obj ) or die "failed";
$memd->disconnect_all;
############################################################################
# Collector-Module
package MyModule;
sub new { bless { jar => [] }, $_[0]; }
sub add { push @{ $_[0]->{jar} }, $_[1]; }
############################################################################
# Entry-Module
package MySubModule;
sub new { bless { id => $_[1], rnd => rand( $_[1] ) }, $_[0]; }
sub id { $_[0]->{id} = $_[0]->{id} // $_[1]; }
sub rnd { $_[0]->{rnd}; }

这个对象不应该使用10 MB而不管使用哪个序列化程序,对吧?

编辑:我刚刚发现20_000次迭代会导致aprox。在Memcached中假设内存为15 MB。

1 个答案:

答案 0 :(得分:3)

您可以在memcached中存储的值的最大大小通常为1兆字节。您的序列化对象是否超过该大小?

memcached的

Version 1.4.2使这个可配置:

memcached -I 128k # Refuse items larger than 128k.
memcached -I 10m  # Allow objects up to 10MB