use Data::Dumper;

use strict;
use warnings;

my $offset = 3;

print Dumper(localtime(time()));
print "\n";
print Dumper(localtime(time() + 24 * 3600 * $offset));

[download]

hie pg, i am totally new to perl. for the Data::Dumper, do i need to install this component or it is already included in the system? Cheers, Darren

Data::Dumper is a core perl Module i.e. should come with Perl. Check the link to see more information about it.

A simple use case

#!/usr/bin/perl

use Data::Dumper;

use strict;
use warnings;

my @list = qw (hi there);
print Dumper(@list);
[download]

Output

$VAR1 = 'hi';
$VAR2 = 'there';
[download]

Data::Dumper is actually not needed, and it was just a handy way to display the result:

use strict;
use warnings;

my $offset = 3;

display(reverse((localtime(time()))[0 .. 5]));
display(reverse((localtime(time() + 24 * 3600 * $offset))[0 .. 5]));

sub display {
    my @t = @_;
    printf("%d-%02d-%02d-%02d:%02d:%02d\n", $t[0] + 1900, $t[1] + 1, @
+t[2 .. 5]);
}
[download]

So far as installing modules, it's usually as simple as running perl -MCPAN -e 'install Date::Calc' if you use *nix, or using ppm in Windows. You can see here for more info: http://www.cpan.org/misc/cpan-faq.html

This is another solution to your question, using Date::Calc:

use strict;
use warnings;

use Date::Calc qw(Add_Delta_Days);

my ($year, $month, $day);

($year, $month, $day) = Add_Delta_Days(2005,8,24,3);
printf "%02d/%02d/%4d\n", $day, $month, $year;

($year, $month, $day) =  Add_Delta_Days(2005,8,24,10);
printf "%02d/%02d/%4d\n", $day, $month, $year;
[download]

I almost always use an array instead of ($year, $month, $day) when working with Date::Calc -- faster to type and clearer to read (especially with the functions like Delta_Days that take two dates). (of course functionally it's exactly the same)

use Date::Calc qw(Add_Delta_Days);

my $date_str = "24/08/2005";

my @start = reverse split "/", $date_str;   # convert to (YYYY, MM, DD
+) array

my @d = Add_Delta_Days(@start,3);
printf "%02d/%02d/%4d\n", $d[2,1,0];   # print DD/MM/YYYY format

@d = Add_Delta_Days(@start,10);
printf "%02d/%02d/%4d\n", $d[2,1,0];   # print DD/MM/YYYY format
[download]

#cdate.pl
use strict;
use Date::Manip qw (DateCalc ParseDate UnixDate);

my $input = ParseDate shift or die 'I need a date';
my $date = DateCalc $input, "+3 days";

my @format = ('%B ', '%e, ', '%Y');
print UnixDate($date, @format)."\n";
[download]

use strict;
use warnings;
use DateTime;

my $dt = DateTime->new(year => '2005', month => '08', day => '24');

$dt->add(days => 10);

print $dt->dmy('/'), "\n"; 
[download]