Perl で 四柱推命があれば

質問

Perl で作った四柱推命のスクリプトはどこかに
公開されていないでしょうか。
処理を参考にしてみたいのです。

回答No.1

Mizyu

Cでなら以前業務で作ったことがあります。
ずいぶん前の話なので、あまり覚えていません。
ですが、四柱推命の占い結果はその占い師によって変わる、と聞いています。
ですからサンプルとして公開されているものはあまりないと思います。（占い師の沽券、著作権（？）、コストの関係で）
日付から九星、干、支を出し、（Swith文だったと思います）それによって結果をテーブルから導き出して表示、という単純なものだったと記憶してます。

お礼

回答ありがとうございます。

> 四柱推命の占い結果はその占い師によって変わる、
> と聞いています。

そう思います。。。はっきりいって経験上Ｗｅｂ上のは
　アテになりませんので、自分で納得行くものを作りたい
　と思うのです。処理自体はそう難しくありませんし。
　で、問題なのは、結果を導き出す干支表を１から
　打ち込むのが手間です。
　信頼できる干支表は手元にあるのですが、極力開発
　する時間をはぶきたいので、公開されているものが
　あれば、そのテーブルとすり合わせをし、多少の手直し
　でも流用したいと考えていました。
　うーん、干支表とか都合よくないか・・・