[[Perl]]

参考サイト 

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