Re^3: Determining if I have a particular Friday off

in reply to Re^2: Determining if I have a particular Friday off
in thread Determining if I have a particular Friday off

I am generally aware of my schedule for the current week, so this isn't particularly helpful. (I need to know if I'm working the current week's Friday so I can record my time properly!)

Comment on Re^3: Determining if I have a particular Friday off

Replies are listed 'Best First'.
Re^4: Determining if I have a particular Friday off by RedElk (Hermit) on Oct 25, 2012 at 14:16 UTC
Yeah, I concur. But, FWIW it was easy to extend for a minimal forecast: `#! usr/local/bin/perl # rdo.pl use strict; use warnings; print +(localtime)[7] / 7 % 2 ? "This Friday: Work\n" : "This Friday: +Free\n"; print +(localtime)[7] +1 / 7 % 2 ? "Next Friday: Work\n" : "Next Frida +y: Free\n"; print +((localtime)[7] +2) / 7 % 2 ? "Friday the week after: Work\n" : + "Friday the week after: Free\n";` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Determining if I have a particular Friday off
by RedElk (Hermit) on Oct 25, 2012 at 14:16 UTC

Yeah, I concur. But, FWIW it was easy to extend for a minimal forecast:

#! usr/local/bin/perl
# rdo.pl

use strict;
use warnings;

print +(localtime)[7] / 7 % 2 ? "This Friday: Work\n" : "This Friday: 
+Free\n";
print +(localtime)[7] +1 / 7 % 2 ? "Next Friday: Work\n" : "Next Frida
+y: Free\n";
print +((localtime)[7] +2) / 7 % 2 ? "Friday the week after: Work\n" :
+ "Friday the week after: Free\n";
[download]

[reply]
[d/l]

In Section Cool Uses for Perl