Date::Horoscope - Date operations based on the horoscope calendar
#!/usr/bin/perl
use Date::Horoscope; use Date::Manip;
$date='1969-05-11';
$zodiac_sign_name = Date::Horoscope::locate($date); $zodiac_sign_posn = $Date::Horoscope::horoscope{Date::Horoscope::locate($date)}->{position},$/;
This module was written to help with zodiac processing. It returns an all-lowercase zodiac sign name based on a given date parseable by Date::Manip. You can take this string and use it as a key to %horoscope to get a position in the zodiac cycle.
Provide any date parseable by Date::Manip and it turns an all-lowercase zodiac name.
This hash contains the position, and start and end dates for a zodiac sign. The zodiac starts with Aries as far as I know. Some idiot didn't think taurus was number 1.
I cannot say how tickled I am that RCS changes my <scalar>Date code into as RCS string for me.
T.M. Brannon
Many thanks to Stephen McCamant for his detection of missing Pisces on Leap Year. Fixed now!
