誰かが作った関数を発見。 親切な方もいるものだ。 これでかなり仕事が楽になります〜！ ありがとう、神よ♪使い方 my @nen = DaysOfMonth(2005,1); sub DaysOfMonth { # my変数の宣言 my($check_year, $check_mon); # 引数のチェックと変数の作成 if ( $_[0]…