3.1 今日の日付を取得する
# 方法1 ($day, $month, $year) = (localtime)[3,4,5]; # 方法2 use Time::localtime; $tm = localtime; ($day, $month, $year) = ($tm->mday, $tm->mon, $tm->year);
# 方法1 ($day, $month, $year) = (localtime)[3,4,5]; # 方法2 use Time::localtime; $tm = localtime; ($day, $month, $year) = ($tm->mday, $tm->mon, $tm->year);