Perlfunc: mysql_date  

sub mysql_date() { my ($epoch,$inc_time) = @_; $epoch ||= time(); my @date = localtime($epoch); my $ret = sprintf("%04d-%02d-%02d", $date[5] + 1900, $date[4] + 1, $date[3]); if ($inc_time) { $ret .= sprintf(" %02d:%02d:%02d", $date[2], $date[1], $date[0]); } return $ret; }
Leave A Reply - 1 Reply
Replies
smee 2006-04-10 02:31pm - No Email - Logged IP: 72.248.106.174
sub mysql_date() { my $epoch = shift() || time; my $time = shift(); my @date = localtime($epoch); return sprintf ( "%04d-%02d-%02d %02d:%02d:%02d" ,$date[5] + 1900 ,$date[4] + 1 ,$date[3] ,($time?$date[2]:0) ,($time?$date[1]:0) ,($time?$date[0]:0) ); }
All content licensed under the Creative Commons License