Calendar::Simple がよさそう。結局、HTML を吐いてくれるタイプのものは、つかいがってがわるい。 二次元配列でだしてくれるので便利。DateTime に依存しているが、DateTime なしでもうごく。第三引数をあたえれば、週はじまりの曜日も制御可能。 use Calendar::Simple; use Data::Dumper; print Dumper(calendar( 7, 2010 )); $VAR1 = [ undef, undef, undef, undef, 1, 2, 3 ]; $VAR2 = [ 4, 5, 6, 7, 8, 9, 10 ]; $VAR3 = [ 11, 12, 13, 14, 15, 16, 17 ]; $VAR4 = [ 18, 19, 20, 21, 22, 23, 24 ]; $VAR5 = [ 25, 26, 27, 28,