将datetimeformat中的日期复制到perl中的变量

Question

如何将日期时间格式的当前日期复制到perl中的变量？

假设当前日期是2013-05-30，然后将值复制到变量

$time='2013-05-30 15:10:23' 

我怎样才能在perl中执行此操作？

Answer 1

使用localtime和sprintf：

my ($sec, $min, $hour, $mday, $mon, $year) = localtime;
my $time = sprintf '%d-%02d-%02d %02d:%02d:%02d', 1900+$year, 1+$mon, $mday, $hour, $min, $sec;

或者，使用Time::Piece（核心从5.9.5开始）：

use Time::Piece;
my $time = localtime->strftime('%Y-%m-%d %H:%M:%S');