日付処理

 use POSIX 'strftime';
 
 my $now = strftime "%Y/%m/%d %H:%M:%S", localtime;
 print $now, "\n";
 use Time::Local
 $time = timelocal($sec,$min,$hour,$mday,$mon,$year); # 2000年7月 => $year=100 $mon=6

日付処理(日付のみ)

 use Date::Simple;
 
 my $date = Date::Simple->new();
 print $date->format('%Y/%m/%d'), "\n";

トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS