Select Code to Download

From: Oliver Paukstadt <***>
Reply-To: Stuttgart Perl Mongers <stuttgart-pm@pm.org>
...

Gruss 
Oliver

perl -le'{@l=localtime($t-=((localtime$t)[3]-1)*86400);$t+=(($l[6]<3?7
+:14)-$l[6]+2)*86400;$t<time?($t+=2592000,redo):print$..localtime$t}'

perl -le '{@l=gmtime($t-=((gmtime$t)[3]-1)*86400);$t+=(($l[6]<3?7:14)-
+$l[6]+2)*86400;$t<time?($t+=2592000,redo):print$..gmtime$t}'

perl -le 'sub f{gmtime$_*86400}$_+=30while($_+=9+7*(($x=(f$_-=(f)[3]-1
+)[6])>2)-$x)*86400<time;print~~f'