[[Perl]] 参考サイト 参考サイト http://d.hatena.ne.jp/perlcodesample/20090126/1231670137 use POSIX 'strftime'; # MySQLの日付時刻型( datetime型 ) my $current_datetime = strftime( "%Y-%m-%d %H:%M:%S" , localtime ); # MySQLの日付型( date型 ) my $current_date = strftime( "%Y-%m-%d", localtime );