in reply to What is the best way to get a list of all Mondays until the end of the year?
Golfing - with no modules:
Really you should look at DateTime or Date::Manip or Date::Calc or ... - but sometimes it makes sense not to.
Human readable and explained:perl -e '@N=gmtime;$t=time+86400*(1-$N[6]);while(1){@n=gmtime($t+=7*86 +400);last if $n[5]!=$N[5]; printf("%d-%02d-%02d\n",$n[5]+1900,$n[4]+1 +,$n[3])}'
perl -e ' my @N = gmtime; # today (calculations in gmtime to avoid tz offset +s) my $t = time + 86400 * (1 - $N[6]); # calculate the time of Monday +(1) while(1) { my @n = gmtime($t += 7*86400); # advance a week at a time last if $n[5] != $N[5]; # done if the year doesn't mat +ch today's printf ("%d-%02d-%02d\n", $n[5]+1900, $n[4]+1, $n[3]); # print re +sult }'
Really you should look at DateTime or Date::Manip or Date::Calc or ... - but sometimes it makes sense not to.
my @a=qw(random brilliant braindead); print $a[rand(@a)];
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: What is the best way to get a list of all Mondays until the end of the year?
by Krambambuli (Curate) on Aug 19, 2008 at 16:27 UTC | |
by broomduster (Priest) on Aug 19, 2008 at 16:41 UTC | |
by Krambambuli (Curate) on Aug 19, 2008 at 16:58 UTC | |
by Rhandom (Curate) on Aug 19, 2008 at 19:20 UTC |
In Section
Seekers of Perl Wisdom