Perl Date Function

[Nzsquall]

Hi Code Masters,

I have a function to calculate current date as

sub currentDate {
    my @timeParts=localtime;
    my ($day, $month, $year) = ($timeParts[3],$timeParts[4],$timeParts[5]);
    return ($month+1)."/".$day."/".($year+1900);
}
 

How do I calculate two months after today's date?

Many thanks.

[toolic]

Date::Calc

use strict;
use warnings;
use Date::Calc qw(Today Add_Delta_YMD Date_to_Text);
 
my @today = Today();
my @date = Add_Delta_YMD(@today, 0,2,0);
print "2 months from now will be: ", Date_to_Text(@date), "\n";
 
__END__
 
2 months from now will be: Thu 28-Oct-2010

[Nzsquall]

Cool, thanks very much.

[Nzsquall]

Is there a way that I can get rid of the Thu to simply display as "28-Oct-2010"?

[toolic]

Read the documentation. The return value of the Date_to_Text function is clearly specified:

my @today = Today();
my @date = Add_Delta_YMD(@today, 0,2,0);
my $date_fmt = (split /\s+/, Date_to_Text(@date))[1];
print "2 months from now will be: $date_fmt\n";

[Nzsquall]

I really appreciate this, sorry for the laziness this time. I will try to do it myself the next time, thanks.