Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^4: How to get TZ difference?

by Anonymous Monk
on Sep 14, 2016 at 18:37 UTC ( [id://1171757] : note . print w/replies, xml ) Need Help??


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

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.