Tadashi Okoshi
slash****@users*****
2005年 6月 29日 (水) 19:40:17 JST
Index: affelio/lib/Affelio/misc/Time.pm diff -u affelio/lib/Affelio/misc/Time.pm:1.3 affelio/lib/Affelio/misc/Time.pm:1.4 --- affelio/lib/Affelio/misc/Time.pm:1.3 Tue Jun 28 00:24:58 2005 +++ affelio/lib/Affelio/misc/Time.pm Wed Jun 29 19:40:17 2005 @@ -4,14 +4,14 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: Time.pm,v 1.3 2005/06/27 15:24:58 slash5234 Exp $ +# $Id: Time.pm,v 1.4 2005/06/29 10:40:17 slash5234 Exp $ package Affelio::misc::Time; { use strict; use Exporter; @Affelio::misc::Time::ISA = "Exporter"; - @Affelio::misc::Time::EXPORT = qw (get_timestamp get_expire_stamp timestamp2string); + @Affelio::misc::Time::EXPORT = qw (get_today get_timestamp get_past_timestamp get_expire_stamp timestamp2string); sub timestamp2string{ my $timestamp = shift; @@ -32,9 +32,30 @@ $wday, $yday, $isdst) = localtime(time()); return sprintf("%04d%02d%02d%02d%02d%02d", - $year+1900, $mon+1, $mday+1, + $year+1900, $mon+1, $mday, $hour, $min, $sec); } + + + sub get_past_timestamp{ + my $past_sec = shift; + my ($sec, $min, $hour, $mday, $mon, $year, + $wday, $yday, $isdst) = localtime(time()-$past_sec); + + return sprintf("%04d%02d%02d%02d%02d%02d", + $year+1900, $mon+1, $mday, + $hour, $min, $sec); + } + + + sub get_today{ + my ($sec, $min, $hour, $mday, $mon, $year, + $wday, $yday, $isdst) = localtime(time()); + + return sprintf("%04d%02d%02d000000", + $year+1900, $mon+1, $mday); + } + sub get_expire_stamp{ my $p_mday = shift; @@ -46,7 +67,7 @@ $year+= 1900; $mon += 1; - $mday += 1; +# $mday += 1; $min += $p_min; if($min >= 60){
