つぶやき/2009-6-16

 十二宮[yssh06]

モジュールqreki.pmに，与えられる日付から十二宮を0〜11の値で返す機能を追加。

sub get_sign { my($year,$mon,$day) = @_; 

引数 : 新暦年月日(年はダミーとなる)
戻値 :  0:白羊宮 3/21〜4/19    1:金牛宮 4/20〜5/20   2:双児宮 5/21〜6/21   3:巨蟹宮 6/22〜7/22
        4:獅子宮 7/23〜8/23    5:処女宮 8/24〜9/22   6:天秤宮 9/23〜10/23  7:天蠍宮 10/24〜11/22
        8:人馬宮 11/23〜12/21  9:磨羯宮 12/22〜1/20 10:宝瓶宮 1/21〜2/18  11:双魚宮 2/19〜3/20

プラグイン側の変更をしていないので，現時点で配布しないが，「package plugin::qreki::qreki;」を「package qreki;」として「./lib」に置く予定で，単独で利用できる形へ変貌させようとしている。
オマケで，数値だけでは物足りない場合に備えて，

sub tbl_sign { my($year,$mon,$day) = @_; 

では，カンマで区切った文字列を返すことにしている。