From: Oliver Paukstadt <***>
Reply-To: Stuttgart Perl Mongers <stuttgart-pm@pm.org>
To: Stuttgart Perl Mongers <stuttgart-pm@pm.org>
Subject: Re: [Stuttgart-PM] Treffen DIESE Woche


On Mon, 2009-04-06 at 18:59 +0200, Rolf Schaufelberger wrote:
> > 
> > Um das mal dauerhaft und stilgerecht zu lösen :
> > 
> >   perl -MDateTime -e ' for (1..20 ) { my $d=DateTime- 
> >  >new(year=>2009,month=>4,day=>$_); if ( $d->weekday_of_month ==2 &&  
> > $d->day_of_week ==2  )  { print "$_\n"; last; }}'
> > 14
> > 
Couldn't resist:

perl -MDate::Calc=:all -le 'print
Date_to_Text(Nth_Weekday_of_Month_Year(2009,4,2,2))'

Gruss 
Oliver