You may also want to see Date::Calc on CPAN. http://danconia.org
------------------------------------------------ On Sun, 8 Dec 2002 21:19:22 -1000, "Beau E. Cox" <[EMAIL PROTECTED]> wrote: > Hi - > > Look at Date::Manip on CPAN: > > http://search.cpan.org/author/SBECK/DateManip-5.40/Manip.pod > > Aloha => Beau. > > -----Original Message----- > From: R. Joseph Newton [mailto:[EMAIL PROTECTED]] > Sent: Sunday, December 08, 2002 9:07 PM > To: Beginners--Perl > Subject: Standard time and calendar functions for Perl? > > > Hi, > > I feel like I've just spent my afternoon reinventing the wheel. I'm > working on a Perl script that is highly dependent on relative time, and I > find myself having to create low-level functionality such as: > > > sub NextMonth { > my ($Month) = @_; > %NextMonths = qw( > Jan Feb > Feb Mar > Mar Apr > Apr May > May Jun > Jun Jul > Jul Aug > Aug Sep > Sep Oct > Oct Nov > Nov Dec > Dec Jan); > return $NextMonths{'$Month'}; > } > > I've had to write similar functions for detedting leap years, and right > now am holding back from just writing a whole damn library of essential > time. I wouldn't mind doing this in a separate project if need be, but > it's just distracting as all get out when the subject of my program is > whether to insert a weather closure alert into a weather report page or > pass the page through unchanged. Essentially, I'm looking for functions > whose signatures, in C++ argot, would resemble: > > Date AddDays(Date baseDate, long offset); > Date AddMonths(Date baseDate, long offset); > Date AddYear(Date baseDate, long offset); > Time AddHours(Time baseTime long offset); > Time AddMinutes(Time baseTime long offset); > Time AddSeconds(Time baseTime, double offset); > > Is there anything out there like this for Perl? If they're not, I guess > I'll shrug my shoulders, roll my eyes, and write them myself. I'd really > like to mone on with my project, though. > > Thanks, > > Joseph > > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
