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