Date manipulations by inbuilt modules.

valavanp has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Date manipulations by inbuilt modules. by moritz (Cardinal) on Aug 28, 2007 at 09:56 UTC
I don't know why you don't want to rely on perfectly good external modules, but here is a solution: `my $n = 60; my @time_array = localtime($n * 24 * 3600 + time);` [download] You can learn the meaning of the entries in `@time_array` from the localtime documentation. Perl 6 in German -- Difficult Sudoku	[reply] [d/l] [select]
Re^2: Date manipulations by inbuilt modules. by Anonymous Monk on Aug 28, 2007 at 16:05 UTC
A good reason to use modules is that people make many mistakes when trying to reimplement the code, like you did. You incorrectly assumed all days are 246060 seconds long. Solution: use Time::Local qw( timegm ); my ($today_y, $today_m, $today_d) = (localtime())[5,4,3]; $today_m += 1; $today_y += 1900; # Use gmt for date arithmetic, # even if the date is localtime. my $today_date = timegm(0,0,0,$today_d,$today_m-1,$today_y); # Every day is 246060 long in GMT. my $plus60_date = $today_date + 246060 * 60; my ($plus60_y, $plus60_m, $plus60_d) = (gmtime($plus60_date))[5,4,3]; $plus60_m += 1; $plus60_y += 1900; printf("Today: %d/%02d/%02d\n", $today_y, $today_m, $today_d); printf("In 60 days: %d/%02d/%02d\n", $plus60_y, $plus60_m, $plus60_d); [download] `Today: 2007/08/28 In 60 days: 2007/10/27` [download] - ikegami	[reply] [d/l] [select]
Re^2: Date manipulations by inbuilt modules. by valavanp (Curate) on Aug 28, 2007 at 10:08 UTC
hi moritz, thanks for your reply. If i want to use the Date::Calc module how should i do that. Thanks for your reply.	[reply]
Re^3: Date manipulations by inbuilt modules. by andreas1234567 (Vicar) on Aug 28, 2007 at 11:02 UTC
`$ perl -l use strict; use warnings; use Date::Calc qw(Add_Delta_Days Today_and_Now); my ($year,$month,$day,$hour,$min,$sec) = Today_and_Now(); print join(q{-},$year,$month,$day); ($year,$month,$day) = Add_Delta_Days($year,$month,$day,60); print join(q{-},$year,$month,$day); __END__ 2007-8-28 2007-10-27` [download] -- Andreas	[reply] [d/l]
Re: Date manipulations by inbuilt modules. by SFLEX (Chaplain) on Aug 28, 2007 at 11:48 UTC
I sometimes like to use CGI.pm's function for time, its the time funtion for the cookie. Has an easy way to input what days, month's, years, est. ahead. `#!/usr/bin/perl use CGI; my $self = CGI::Util::expire_calc('',''); my $selfa = CGI::Util::expires('now',''); my $self2 = CGI::Util::expire_calc('+60d',''); my $selfb = CGI::Util::expires('+60d',''); print "Content-type: text/html\n\n"; print "<html>Current: $self<br>$selfa<hr>+60 days: $self2<br>$selfb<hr +></html>\n";` [download]	[reply] [d/l]
Re: Date manipulations by inbuilt modules. by Anonymous Monk on Aug 28, 2007 at 09:58 UTC
Is there anyway of doing this functionality with inbuilt modules? Back too school. Homework season.	[reply]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks