CGI・Perl例文集

1月を日本では睦月（むつき）とも呼ぶ。このような旧暦の名称を取得するにはどうすれば良いだろう？

指定した年(西暦年)が、干支(子・丑・寅・卯・辰・巳・午・未・申・酉・戌・亥)で何年かをプログラムで計算し求めたい。

約4年に一度、2月29日が発生する閏年(うるうどし)かどうかを判定するには、次のロジックを素直に実装すれば良い。

• 4で割り切れる年は閏年
• ただし、100で割り切れる年は閏年ではない
• しかし、400で割り切れる年は閏年である

明日、また昨日の日付を計算したい。
Date::Simpleモジュールを使用すると、非常に簡潔に記述することができる。

ある日付が何曜日が調べたいがどうすれば良いだろうか？
Date::Simpleモジュールの機能を利用し、簡単に調べることが出来る。

ある日から15日先(または前)の日付を計算するなどしたいが、どうすれば良いだろうか？
time値が分かっていれば簡単に求めることが出来るが、それが全く分からない。

今回はDate::Simpleを使った解法を示すことにする。

明日、また昨日の日付を計算したい。
timeの戻り値が分かっている場合は非常にシンプルに求めることが出来る。