perlで星座取得するDate::Horoscope

perlで星座を取得する。

Date::Horoscopeを使う。
英語表記の星座名、もしくは１月のみずがめ座から始まる配列番号を返してくれる。
占い系のコンテンツを作ったりする時に使う。

ソース

use Date::Horoscope;

## 誕生日
my $date='1969-05-11';

## 星座名で取得（英語表記）
my $seiza_key = Date::Horoscope::locate($date);
## (aquarius)と表示。９月のてんびん座の意味。

## 星座の配列番号取得
my $seiza_num = $Date::Horoscope::horoscope{Date::Horoscope::locate($date)}->{position},$/;
## 7が返り値。-1をすると配列順でアクセスできる。