Inspired from the chorus:
Tell me why
I don't like Mondays
I want to shoot
The whole day down
(lyrics: Bob Geldof; music: Boomtown Rats)
use Date::Calc qw(
Monday_of_Week Today Date_to_Text
Week_of_Year Weeks_in_Year
);
sub shoot_down { "I don't like $_[0]!\n" }
my ($y,$m,$d) = Today();
for (Week_of_Year($y,$m,$d) .. Weeks_in_Year($y)) {
print shoot_down(Date_to_Text(Monday_of_Week($_,$y)));
}
p.s. while this song's message is actually quite serious, i
see no harm in having a
little fun
with it
jeffa
L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)
