Re: Converting to epoch time.

[rbi]

in reply to Converting to epoch time.

this (untested) should print the UTC date in the format you require:

sub get_date {
    use Time::gmtime;
    my $tm = gmtime;

    return sprintf "%4.4d-%2.2d-%2.2d %2.2d:%2.2d:%2.2d",
    $tm->year+1900,
    ($tm->mon)+1,
    $tm->mday,
    $tm->hour,
    $tm->min,
    $tm->sec;
}

if you need the epoch time, for example to compute distances in time you can try (untested):

sub epoch {
    use Time::Local;
    my $time = shift();
   my ($tmp_year,$tmp_month,$tmp_day,$tmp_hour,$tmp_min,$tmp_sec) = un
+pack('a4xa2xa2xa2xa2xa2',$time);
  return timegm($tmp_sec,$tmp_min,$tmp_hour,$tmp_day,$tmp_month-1,$tmp
+_year-1900);
}

Hope this helps.