X-Recipient: archive-cygwin@delorie.com X-Spam-Check-By: sourceware.org Message-ID: <6910a60712141657x1345ec00j9ea7d645bd516ce@mail.gmail.com> Date: Fri, 14 Dec 2007 19:57:02 -0500 From: "Reini Urban" To: cygwin@cygwin.com Subject: Re: Timezone manipulation within Perl script In-Reply-To: <9761.12995-16991-2031106093-1197667559@email.cz> MIME-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Content-Disposition: inline References: <9761.12995-16991-2031106093-1197667559@email.cz> X-Google-Sender-Auth: 67a3c5f08f762dfa X-IsSubscribed: yes Mailing-List: contact cygwin-help@cygwin.com; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: cygwin-owner@cygwin.com Mail-Followup-To: cygwin@cygwin.com Delivered-To: mailing list cygwin@cygwin.com 2007/12/14, roman.vasicek@email.cz : > Hi all, > I want to ask you how convert time between different timezones in perl script running under cygwin. I have an application which store datetime information in Zulu/GMT. I need to provide date in user timezone. How to do the correct conversion? I want to be able to offer Timezone info like 'Europe/Prague'. Following code snippet will provide correct output when running under Active state Perl (time will differ 1 or 2 hours depending on input date), but when running under cygwin perl no conversion will be done. Can anyone help me? > > $ENV{TZ} = 'Zulu'; > POSIX::tzset(); > $time = timegm($second, $minute, $hour, $day, $month, $year); > > $ENV{TZ} = 'Europe/Prague'; > POSIX::tzset(); > ($second, $minute, $hour, $day, $month, $year) = POSIX::localtime($time); > > Attached program will produce under ActiveState PERL > > Winter (delta should be +1 h) > ZULU : 2007-12-13 11:47:02 Zulu > LOCAL: 2007-12-13 12:47:02 Europe/Prague > > Summer (delta should be +2 h) > ZULU : 2007-06-13 11:47:02 Zulu > LOCAL: 2007-06-13 13:47:02 Europe/Prague > > and under CygWin PERL output will be > > Winter (delta should be +1 h) > ZULU : 2007-12-13 11:47:02 Zulu > LOCAL: 2007-12-13 11:47:02 Europe/Prague > > Summer (delta should be +2 h) > ZULU : 2007-06-13 11:47:02 Zulu > LOCAL: 2007-06-13 11:47:02 Europe/Prague Interesting. For me the standard cygwin perl works okay. $ perl test-1.pl Winter (delta should be +1 h) ZULU : 2007-12-13 11:47:02 Zulu LOCAL: 2007-12-13 12:47:02 Europe/Prague Summer (delta should be +2 h) ZULU : 2007-06-13 11:47:02 Zulu LOCAL: 2007-06-13 13:47:02 Europe/Prague $ printenv TZ Windows XP, currently in the GMT-5 timezone -- Reini Urban -- Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple Problem reports: http://cygwin.com/problems.html Documentation: http://cygwin.com/docs.html FAQ: http://cygwin.com/faq/