--- Brian Hersey <[EMAIL PROTECTED]> wrote:
> my $presesntdate = (localtime);
my ( $day, $month, $year ) = (localtime)[3..5];
$month++; # assume you want 1-12 instead of 0-11
$year += 1900;
> 2. How do I compare the date values, so that I can get a numerical value of
> days since the user first registered?
You could try the Date::Calc module
(http://theoryx5.uwinnipeg.ca/mod_perl/cpan-search?dist=Date-Calc-4.3). From the
documentation
(http://theoryx5.uwinnipeg.ca/CPAN/data/Date-Calc/Calc.html):
use Date::Calc qw/ Delta_Days /;
$difference = Delta_Days($year1,$month1,$day1, $year2,$month2,$day2);
Cheers,
Curtis Poe
=====
Senior Programmer
Onsite! Technology (http://www.onsitetech.com/)
"Ovid" on http://www.perlmonks.org/
__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail - only $35
a year! http://personal.mail.yahoo.com/
