How do I get this module? PPM Cannot find Time::Zone (Time-Zone) to install. A Search on Time turns up TimeDate but when I type 'describe TimeDate' at the PPM> prompt, it disavows any knowledge of the 'describe' command.
thanks, hank -- Hank Barta At The Hull Group, Chicago (312) 655-4636 -----Original Message----- From: Trevor Joerges [mailto:[EMAIL PROTECTED]] Sent: Thursday, May 16, 2002 3:11 PM To: Barta, Hank; 'Wechsler, Steven' Cc: 'activeperl' Subject: Re: Need help parsing time 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
