【協力願】Boo2008(旧Boo80)で串を食べませんか？　その8

# それぞれを整理整頓
# otakaraから
my %DUP_Hash;
@Otakara =
sort # そっとソート
map { $_->[0] . "¥n" } # 元に戻す。
grep { not $DUP_Hash{$_->[1]}++ } # 重複を排除。　←これとか
grep { time < $_->[2] } # 時間切れを排除。
map { [$_, split /<>/] } # リファレンスに。
@Otakara;

これがいかんのだろうなぁ。。。@Hack72_Cron.pl

♯be.2ch.netが止まったる？

そしてHack72_Cron.plをデバグ中。

print $boo2008_DB->put($key[0], $BBQ51_Status); # それ以外なら登録
この行でstatusも返さずに黙り込んでいる。。。どうしたのかなぁ。。。