[ale] Converting time in perl

Christopher Fowler cfowler at outpostsentinel.com
Sat May 7 13:32:38 EDT 2005


I think this works as a hack.  I still have to do some more work like
get the gmtoff of the server instead of having it hardcoded.  I also
have the month hardcoded because in my data I only see May and I'm not
sure what the other text of the months look like.


use POSIX qw(mktime ctime);

sub _time {
        my $string = shift;
        $string =~ m/^(\d+):(\d+):(\d+)\s+(.+)\s+(\d+)-(.+)-(\d+)$/;
        my $year = $7 - 1900;
        print "[$1] [$2] [$3] [$4] [$5] [$6] [$year]\n";
        my $t = mktime($3, $2, $1, $5, 4 ,$year);
        $lt = $t - (3600 * 5);
        print "$t, $lt, ",ctime($lt),"\n";
}

_time "23:50:04 UTC 05-MAY-2005";

On Sat, 2005-05-07 at 12:16, Christopher Fowler wrote:
> Here is my idea.
> 
> 1.  Convert the UTC date to epoch
> 2.  Subract the gmtoff from that value
> 3.  Now I have a value that is an epoch in localtime.
> 
> 
> On Sat, 2005-05-07 at 11:16, Christopher Fowler wrote:
> > I guess a simplier thing I'm trying to explain is that I wantto convert
> > localtime on the device into localtime on the server since all
> > dates in the database are stored in localtime of the server.
> > 
> > On Sat, 2005-05-07 at 10:59, Christopher Fowler wrote:
> > > I am receiving time strings in the format like this
> > > 
> > > "00:00:00 UTC"
> > > 
> > > I could receive timezones like EDT.  What I need to do is convert
> > > that time into an epoch on my server.  The server will receive that 
> > > string from the remote device and the server is in Eastern or Central.
> > > Anywhere in the US.  So I will be converting that UTC time int the exact
> > > time on the server.  Any ideas on how best to accomplish this?
> > > 
> > > Chris
> > > 
> > > 
> > > _______________________________________________
> > > Ale mailing list
> > > Ale at ale.org
> > > http://www.ale.org/mailman/listinfo/ale
> > 
> > _______________________________________________
> > Ale mailing list
> > Ale at ale.org
> > http://www.ale.org/mailman/listinfo/ale
> 
> _______________________________________________
> Ale mailing list
> Ale at ale.org
> http://www.ale.org/mailman/listinfo/ale



More information about the Ale mailing list