What's my timezone offset?

rokadave has asked for the wisdom of the Perl Monks concerning the following question:

Recently I wrote a program that needed to know the system’s timezone offset from GMT.

I figured could hack it out by measuring the difference returned by localtime and gmtime, but shuddered when I thought of what that would actually be doing. Converting epoch time to local time, by referencing the local timezone rules, converting epoch time to UTC by referencing the local timezone rules, all to infer.... the local timezone rules.

I poked around a bit and discovered Time::Piece. I was satisfied when it provided a method called tzoffset which gave me my offset in seconds. Curious, I peeked into the code to find they were doing the same ugly gmtime-localtime trick, and were even proud enough of that method to include a comment of attribution. Time::Local seems to use the same trick.

Is there no better way? Is the gmtime-localtime trick the slow-but-preferred way for portability and reliability?

Comment on What's my timezone offset?

Replies are listed 'Best First'.
Re: What's my timezone offset? by BigLug (Chaplain) on Feb 10, 2006 at 03:23 UTC
DateTime is your date-and-time sidchrome tool set (or sledgehammer if you don't need to do anything else with date/times): `use DateTime; my $now = DateTime->now( time_zone => 'local' ); print $now->time_zone->offset_for_local_datetime( $now );` [download]	[reply] [d/l]