I believe it is bundled with TimeDate. Cheers, Trevor
----- Original Message ----- From: "Barta, Hank" <[EMAIL PROTECTED]> To: "'Trevor Joerges'" <[EMAIL PROTECTED]>; "'Wechsler, Steven'" <[EMAIL PROTECTED]> Cc: "'activeperl'" <[EMAIL PROTECTED]> Sent: Thursday, May 16, 2002 4:36 PM Subject: RE: Need help parsing time : 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
