各月の日数を取得したい。もしくは各月の最終日を取得したい。 use Date::Calc qw( Today Days_in_Month ); my ( $year, $month, $day ) = Today; $days = Days_in_Month( $year, $month ); こんなんも見つけた。 各月の日数。 @list = ( 31, ((($y % 4 == 0) and ($y % 100)) or ($y % 400 == 0)) ? 29 : 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 ); しかし、時間の計算系はいっぱいモジュールがあるなぁ。