How about using...
Time::Zone
Kind regards,
Trevor J. Joerges
--------------------------------------------
$_=q;rrUSFWPSZK.ZKPFSHFT,rkvtuZbopuifsZQZibdl
rrqpxfsfeZcyZQ,,riuuq://xxx.%.dpn,ru~@%.dpn ,rrr8-)
;;s;\~;kpfshft;g;s;\%;tfoenjnf;g;y;B-x;A-w;;
s;P;perl;g;s;,;\n;g;s;Y; ;g;s;q;\t;g;print;
--------------------------------------------
----- Original Message -----
From: "Barta, Hank" <[EMAIL PROTECTED]>
To: "'Wechsler, Steven'" <[EMAIL PROTECTED]>
Cc: "'activeperl'" <[EMAIL PROTECTED]>
Sent: Thursday, May 16, 2002 8:08 AM
Subject: RE: Need help parsing time
: Here's what I use:
: sub BEGIN
: {
: # the following code shamelessly copied from a post by Larry Rosler
: # (to determine timezone for Date::Manip) (needed for Win32 platform
: unless (exists $ENV{TZ})
: {
: my ($l_min, $l_hour, $l_year, $l_yday) = (localtime $^T)[1, 2, 5,
: 7];
: my ($g_min, $g_hour, $g_year, $g_yday) = ( gmtime $^T)[1, 2, 5,
: 7];
: my $tzval = ($l_min - $g_min)/60 + $l_hour - $g_hour +
: 24 * ($l_year <=> $g_year || $l_yday <=> $g_yday);
:
: # now use it to set the time zone for Date::Manip
: $tzval=sprintf( "%+2.2d:00", $tzval);
: $ENV{TZ}=$tzval; # set time zone for Date::Manip
: }
: }
:
: --
: Hank Barta
: At The Hull Group, Chicago
: (312) 655-4636
:
:
:
: -----Original Message-----
: From: Wechsler, Steven [mailto:[EMAIL PROTECTED]]
: Sent: Wednesday, May 15, 2002 2:31 PM
: To: 'activeperl'
: Subject: Need help parsing time
:
:
: I need to run a loop that terminates at a particular time, which is going
to
: be specified by the user. I will then append it to the current date and
from
: that, determine the number of seconds from the epoch in order to compare
it
: to TIME. However, I can't find anything that's in PPM that can do it. CPAN
: lists Date::Parse, which I believe would do the trick, but it's not at
: Activestate. I tried Date::Manip, but it complains about the time zone.
:
: Your assistance is appreciated.
:
: Thanks,
:
: Steve
: --
: Steve Wechsler/Application Manager/Wall St. Access
: [EMAIL PROTECTED]
: "There is no reason anyone would want a computer in their home."
: -- Ken Olson, president, chairman and founder of DEC, 1977
:
: _______________________________________________
: ActivePerl mailing list
: [EMAIL PROTECTED]
: To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
: _______________________________________________
: ActivePerl mailing list
: [EMAIL PROTECTED]
: To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
:
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
