のみまくし日記

テストスクリプト

id:nipotanがテストしたスクリプトをちょっと改造してキャッシュしておく文字数と、何コ保存するかを調整出来るようにしたもの。

use strict;
use Cache::Memcached;

my $size  = $ARGV[0] || 1;
my $count = $ARGV[1] || 10;

my $cache = Cache::Memcached->new({
    servers => ['localhost:11211'],
    debug   => 0,
});

# XXX get immediately after storing
for my $key (0 .. $count) {
    $cache->delete($key);
    $cache->set($key => '.' x $size);
    my $stored = $cache->get($key);
    print "$key :", length($stored), "\n";
}

sleep 1;

# XXX get stored
for my $key (0 .. $count) {
    my $stored = $cache->get($key);
    print "$key :", length($stored), "\n";
}

念のため、再起動。

[zsh takefumi@tinko]$ sudo /etc/init.d/memcached stop
[zsh takefumi@tinko]$ sudo /etc/init.d/memcached start

1文字保存、10回繰り返し

[zsh takefumi@tinko]$ perl memcached.pl 1 10
0 :1
1 :1
2 :1
3 :1
4 :1
5 :1
6 :1
7 :1
8 :1
9 :1
10 :1
0 :1
1 :1
2 :1
3 :1
4 :1
5 :1
6 :1
7 :1
8 :1
9 :1
10 :1

2文字保存、10回繰り返し。

上書きされる。

[zsh takefumi@tinko]$ perl memcached.pl 2 10
0 :2
1 :2
2 :2
3 :2
4 :2
5 :2
6 :2
7 :2
8 :2
9 :2
10 :2
0 :2
1 :2
2 :2
3 :2
4 :2
5 :2
6 :2
7 :2
8 :2
9 :2
10 :2

もっぺん。再起動。

[zsh takefumi@tinko]$ sudo /etc/init.d/memcached stop
[zsh takefumi@tinko]$ sudo /etc/init.d/memcached start

メモリ使い切っちゃえ。

古い順から消えるよ。（id:nipotanのテストと同じ結果)

[zsh taekfumi@tinko]$ perl memcached.pl 200000 10
0 :200000
1 :200000
2 :200000
3 :200000
4 :200000
5 :200000
6 :200000
7 :200000
8 :200000
9 :200000
10 :200000
0 :0
1 :0
2 :0
3 :0
4 :0
5 :0
6 :0
7 :200000
8 :200000
9 :200000
10 :200000

1文字保存、10回繰り返し。

上書きされるとおもきやされない。

[zsh takefumi@tinko]$ perl memcached.pl 1 10
0 :0
1 :0
2 :0
3 :0
4 :0
5 :0
6 :0
7 :0
8 :0
9 :0
10 :0
0 :0
1 :0
2 :0
3 :0
4 :0
5 :0
6 :0
7 :0
8 :0
9 :0
10 :0

新しくも保存出来ないの。

[zsh takefumi@tinko]$ perl memcached.pl 1 15
0 :0
1 :0
2 :0
3 :0
4 :0
5 :0
6 :0
7 :0
8 :0
9 :0
10 :0
11 :0
12 :0
13 :0
14 :0
15 :0
0 :0
1 :0
2 :0
3 :0
4 :0
5 :0
6 :0
7 :0
8 :0
9 :0
10 :0
11 :0
12 :0
13 :0
14 :0
15 :0