週末には少しPerlを。

Perlスクリプトの学習日記です。

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";

これで行けます。