http://www.perlmonks.org?node_id=1000669


in reply to Determining if I have a particular Friday off

Does not the following do the same?
print +(localtime)[7] / 7 % 2 ? "Free\n" : "Work\n";
(You might need to switch Free and Work).
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re^2: Determining if I have a particular Friday off
by thmsdrew (Scribe) on Oct 24, 2012 at 17:33 UTC

    No. No it doesn't.

Re^2: Determining if I have a particular Friday off
by RedElk (Hermit) on Oct 24, 2012 at 18:39 UTC

    Is it true that this is telling me whether or not I work the Friday of this week? If so, it worked for me. However, I did have to swap "free/work".

    How does dividing the $yday by 7 with remainder of 2 get one to a Friday - or did I misunderstand?

    UPDATE: Ah, it provides the odd even week.

      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!)

        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";