- 569 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:18:56.85 ]
- time + 60 で秒を使わずに 00 にして十分かと
my($year,$month,$day,$hour,$min) = (localtime(time + 60))[5,4,3,2,1];
my $tatoeba = sprintf('%04d-%02d-%02d %02d:%02d:00', 1900+$year,$month+1,$hour,$min);
こんな感じ。釣りなのは分かってるけどね。
