Perl Tips

単なる覚え書き。うるう年も考慮した各月最終日リスト。

@list = (31, ((($y % 4 == 0) and ($y % 100)) or ($y % 400 == 0))
         ? 29 : 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);