Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re^3: How to get TZ difference?

by Anonymous Monk
on Sep 08, 2014 at 09:42 UTC ( [id://1099854] : note . print w/replies, xml ) Need Help??


in reply to Re: Re: How to get TZ difference?
in thread How to get TZ difference?

you forgot to compare the months in case when we have last day of the month, around midnight it will return inccorect results

Replies are listed 'Best First'.
Re^4: How to get TZ difference?
by Anonymous Monk on Sep 14, 2016 at 18:37 UTC
    perl -e 'print ( ( (localtime)[2] - (gmtime)[2] + 12 ) % 24 - 12 )'

    ...works across midnight, end of month, etc without all those pesky conditionals. Works because perl has a useful definition of modulo operator (%) for negative operands, but beware this can be compromised in certain situations. See perlop#Multiplicative-Operators.