On Tue, 16 Mar 2004 16:54:18 +0000 Gary Stainburn <[EMAIL PROTECTED]> 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)[EMAIL PROTECTED];        
    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.

---------------------------(end of broadcast)---------------------------
TIP 2: you can get off all lists at once with the unregister command
    (send "unregister YourEmailAddressHere" to [EMAIL PROTECTED])

Reply via email to