Date::Calcを使って今月の日数を知る
今月は何日間あるか、日数を知りたい。 そんな時にはDate::Calcに丁度よいモノが。
use Date::Calc qw(:all); my ($year, $month, $day) = Today(); my $days = Days_in_Month($year, $month); print "$year - $month - $day\n $days days in this month.\n";
これで行けます。
今月は何日間あるか、日数を知りたい。 そんな時にはDate::Calcに丁度よいモノが。
use Date::Calc qw(:all); my ($year, $month, $day) = Today(); my $days = Days_in_Month($year, $month); print "$year - $month - $day\n $days days in this month.\n";
これで行けます。