Thomas Williams wrote:
> I got dates in the yyyy-mm-dd format, and I need to compare them to
> today's date, as well do stuff like date += 2 months.
>
> How do I do it?
check out Date::Manip. Example:
#!/usr/bin/perl -w
use strict;
use Date::Manip;
my $date1 = ParseDate("2003-02-05"); #-- 02/05/2003
my $date2 = ParseDate("2 months"); #-- 2 months from now
my $date3 = ParseDate("now"); #-- now
print "$date1\n";
print "$date2\n";
print "$date3\n";
#-- compare
if(Date_Cmp($date2,$date3) == 1){
print "$date2 > $date3\n";
}else{
print "$date2 <= $date3\n";
}
__END__
prints:
2003020500:00:00
2003040514:55:29
2003020514:55:29
2003040514:55:29 > 2003020514:55:29
david
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
