memcached_random_data.pl

#!/usr/bin/perl
use strict;
use warnings;
use Cache::Memcached::Fast;
use String::Random;

my $memd = Cache::Memcached::Fast->new({
        servers => [{address => 'localhost:11211'}],
	utf8 => ($^V ge v5.8.1 ? 1 : 0),
});


for ( my $i=0; $i<100000000; $i++ ) {
        my $key = "key-${i}";
        my $data = String::Random->new->randregex('[A-Za-z0-9]{10}');

        $memd->set($key, $data, 60 * 60 * 24);
}