Re: working with unix timestamp

On Tue, 16 Mar 2004 16:54:18 +0000 Gary Stainburn <gary.stainburn@ringways.co.uk> sat down, thought
long and then wrote:

> Hi folks.
> 
> I've got a last_updated field on my stock records of type timestamp.
> 
> This last_updated field I get using the perl code:
> 
> my $timestamp=(stat "$localcsv/VehicleStock.$data_suffix")[10];
> 
> How can I insert the  integer timestamp in $timestamp into my table?


I usually use somethinge like the following little function for getting an ISO timestamp. The
result is suitable for a PostgreSQL timestamp field (without special timezone).

# Subroutine for ISO-Timestamp
sub mydatetime {   my ($time)=@_;       my ($sec,$min,$hou,$mday,$mon,$yea,$wday,$jday,$sz)=localtime($time);   if
($sec< 10) {$sec="0".$sec;}   if ($min < 10) {$min="0".$min;}   if ($hou < 10) {$hou="0".$hou;}   if ($mday < 10)
{$mday="0".$mday;}  $mon++;   if ($mon < 10) {$mon="0".$mon;}   $yea=$yea+1900;   my $t=$yea."-".$mon."-".$mday."
".$hou.":".$min.":".$sec;  return $t; }
 

Regards, Frank.