今日も元気に残件なす 2

[621 ◆G3E3Ee8IMBFg-隠居♪ 2011/10/21(金) 01:05:50.37 ID:tXDALJv10]

どこをどうなおせばいいのじゃ?

$r->select($NINJA_checkID_DB);
my @keys = $r->keys("*");
foreach my $listed_ip (@keys) {
if ($r->scard($listed_ip) >= 5)
{
my @listed_ninjaids = $r->smembers($listed_ip);
print "$listed_ip => @listed_ninjaids <br>\n";
}
}
print "<p>===========<br>破門された忍者IDを格納するDB<p>\n";

$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);
print "$listed_ninjaid: $timestamp: $ttl　<br>\n";

}