|Perl: the Markov chain saw|
Cyclical Japhby liverpole (Monsignor)
|on Nov 02, 2006 at 13:22 UTC||Need Help??|
This obfuscation was a good chance for me to become more familiar with the Date::Calc module.
(Update: I should have made this more clear -- as my coworker discovered this morning -- you need to actually have Date::Calc installed, otherwise the program won't produce any output.)
The script takes either a single argument, in the form of a date (eg. "8/22/98" or "Aug-22-1998"), or two dates (earlier one first).
And the purpose of the program is ...
... displaying biorhythms. Try giving your birthdate as a single argument and it will display your biorhythm chart for the current date. Giving a second date argument will display your biorhythm for that date instead. Optionally, a third argument will specify the total number of days to display.
The 3 cycles are P=Physical (23 days), E=Emotional (28 days) and I=Intellectual (33 days).