2013-10-29から1日間の記事一覧
今月は何日間あるか、日数を知りたい。 そんな時には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";…