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!

Date::Manip