こうした
http://ninja.2ch.net/test/re-dis/re-03.cgi

print "<p>===========<br>破門された忍者IDを格納するDB<p>\n";

my $xxx = 60*24*60*60 ;

$r->select($NINJA_Hamon_DB);
my @keys = $r->keys("*");
foreach my $listed_ninjaid (@keys)
{

my $timestamp = $r->get($listed_ninjaid);
my $ttl = $r->ttl($listed_ninjaid);
if($ttl >= $xxx)
{
print "$listed_ninjaid: $timestamp: $ttl　<br>\n";
}
}