use Date::Manip qw[ ParseDate UnixDate ];
use Data::Dumper;

$ENV{TZ} = 'PST';

my @date = UnixDate( ParseDate("today"), qw[%Y %m %d %W ] );
print join "|",@date,$/;

print join "|",UnixDate( ParseDate("$date[3] week $date[0]"), qw[%Y %m
+ %d %W ] ),$/;
print join "|",UnixDate( ParseDate(1+$date[3]." week $date[0]"), qw[%Y
+ %m %d %W ] ),$/;
[download]

$firstday = Date_GetPrev($date, $fdow, 1);
[download]

use Date::Manip;
$weekno = 30; # want the 30th week of the year;
$day = &DateCalc("1/1/2003","+${weekno}week");
$daydiff = 7 - &UnixDate($day, "%w");
$day1 = &DateCalc($day, "+${daydiff}day");
$day2 = &DateCalc($day1, "+6day");
print "$day1, $day2\n";
[download]

Yet another way to do it...

use DateTime::Event::Recurrence;

my $now = DateTime->now;
my $weeks = DateTime::Event::Recurrence->weekly;

print $weeks->current( $now )->ymd,"\n";
print $weeks->next( $now )->ymd,"\n";

# output
2003-09-08
2003-09-15
[download]

update: s/previous/current/

Thank you for the unbelievable fast help!

Georg

use DateTime;

my $now = DateTime->now;
my $week = $now->week_number;

print $now->ymd," now (week $week)\n";

my $first = DateTime->new(
    year => $now->week_year,
    month => 1,
    day => 1,
);


print $first->ymd," beginning of the year \n";;

$first->add( weeks => $now->week_number );

print $first->ymd, " beginning of week $week\n";

$first->add( weeks => 1 );

print $first->ymd, " end of week $week\n";

__END__
2003-09-08 now (week 37)
2003-01-01 beginning of the year
2003-09-17 beginning of week 37
2003-09-24 end of week 37
[download]

I'm glad to see others using DateTime, but that's not quite right. January 1st is not neccessarily the beginning of the week, I modified your snippet like so
Read more... (3 kB)
update: aren't I funny {grin} every year has 52 weeks ($last->week_number, lol).

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"

I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).

** The third rule of perl club is a statement of fact: pod is sexy.

2003-09-08 now (week 37)
2003-01-01 beginning of the year
2003-09-17 beginning of week 37
2003-09-24 end of week 37
[download]

Well, it's nice that people test their code before posting it, but if you don't look at the output then what's the point? According to your program, Sep 8 is between Sep 17 and Sep 24.

Abigail

How do you draw that conclusion? (nowhere do I say that Sept8 is between Sept17 and Sept24). It's like you're purposefuly being rude ;(