読者です 読者をやめる 読者になる 読者になる

Redis.pmでexpireコマンドを実行する

Redis - Perl binding for Redis database - metacpan.org

ぱっと見、ドキュメントにもソースにもexpireメソッドみたいなのがないので、
できないのかと思ったけど、できることをツイッターで教えていただけました。

ということなので、試してみたら行けた。

use strict;
use warnings;
use Redis;

my $redis = Redis->new(
    reconnect => 1,
    every => 500,
);

$redis->set('foo', 'bar');
$redis->expire('foo', 10);

warn $redis->get('foo');

sleep(11);

warn $redis->get('foo');


AUTOLOADで実装されているみたいなので、podに記述されていないコマンドでも実行できるみたいですね。