Keep It Simple, Stupid | |
PerlMonks |
Cyclical Japhby liverpole (Monsignor) |
on Nov 02, 2006 at 13:22 UTC ( [id://581888]=obfuscated: print w/replies, xml ) | 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).
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
Back to
Obfuscated Code
|
|