今日も元気に残件なす 2

[1 名無しの報告 2011/10/15(土) 16:45:15.07 ID:cS+e9Eta0]

> 1 名前：ピロリ[sage] 投稿日：2011/06/16(木) 13:56:37.01 ID:BeCsyWKn0 [PC]
> たぶん残件なす
> 出てきたらはってねー

前スレ
今日も元気に残件なす
http://qb5.2ch.net/test/read.cgi/sec2chd/1308200197/

[624 名無しの報告 2011/10/21(金) 01:26:48.66 ID:19RKKIbV0]

>>621
たしか・・・今は全部　*　でほたりこむ仕様だったっけか…
printの手前でこんな荒業できるのかなー
（redisもPerlもそんな弄ってないからイマイチ構文ルールわかってないので変数の指定とかお察しください）

xxx = 60*24*60*60
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";
}
}

[625 ◆G3E3Ee8IMBFg-隠居♪ 2011/10/21(金) 01:32:53.59 ID:tXDALJv10]

こうした
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";
}
}