At 14:19 +0100 2001.11.21, Louis Pouzin wrote: >The Mac Date & Time control panel keeps the time zone. e.g. Paris. > >Is there a way to grab this info, in MacPerl, or at least the difference from >UTC ?
use Time::Local;
$diff = (timelocal(localtime) - timelocal(gmtime)) / 36;
$diff = sprintf "%+0.4d", $diff; # add sign, leading zero(es)
print $diff;
--
Chris Nandor [EMAIL PROTECTED] http://pudge.net/
Open Source Development Network [EMAIL PROTECTED] http://osdn.com/
