# define the seconds in a week
use constant WEEK => 60 * 60 * 24 * 7;
my $now = time();
my $then = $now + WEEK * 2;
[download]

Or, to one-line it:

my $then = time() + 1209600;

--
perl -e "print qq/just another perl hacker who doesn't grok japh\n/"
simeon2000|http://holdren.net/

just tried your solution simeon and the ourtput from $then was 1030012664? I need the output to be in the form of YY-MM-DD Thanks

So, just to expand a little on simeon2000's answer:

#! /usr/bin/perl

use strict ;
use warnings ;
$|++ ;

use constant WEEK => 60 * 60 * 24 * 7 ;

my @later = localtime( time + ( WEEK * 2 ) ) ;
my $fmt_date = sprintf "%04d-%02d-%02d",
                 $later[5] + 1900,
                 $later[4],
                 $later[3] ;
print $fmt_date, "\n" ;

__END__
[download]


_______________
DamnDirtyApe

Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
            --Friedrich Nietzsche

sorry peeps, i wasn't descriptive enough. This is what i realy need to do: get the current date, add 14 days to it, format it to YYYY-MM-DD and then put it into a variable so that i can use it on a command like... adduser myself -e $expirydate

good morning!

simeon2000 offered a great solution, but I thought I'd point you in the direction of two excellent date-manipulation modules: Date::Calc (the link is to a gzipped archive which has a lot of useful calendar modules in it), and Date::Manip. I've used Date::Calc a number of times and find it a pleasure to work with. I've heard equally good things about Date::Manip.

If your date manipulation needs get any more complicated, or you just want to learn the ins and outs of a few useful modules, I'd highly suggest checking out the pods.

good luck with your project,
--au

#!/usr/bin/perl

use Date::Manip;
$two_weeks = UnixDate( DateCalc( "today", "+14 days" ), "%y-%m-%d" );
print $two_weeks, "\n";
[download]

-derby

Hi Chris.

There are many ways to do it. This is another one:

use Date::Tie;
tie my %date, 'Date::Tie';
$date{week} += 2;    # today + 2weeks
print "$date{month}/$date{day}\n";
[download]

update: Re: module installation -- error: Can't locate Date/Tie.pm

Windows:

ppm 
install Date::Tie
[download]

Unix:

perl -MCPAN -e shell 
install Date::Tie
[download]

thansk, when i try to run it i get the error: Can't locate Date/Tie.pm in @inc any ideas?

i take that last question back. is it possible to do this without requiring any additional modules? James

See Add A Number of Days to Today's Date.