將datetimetimeformat中的日期複製到perl中的變量

Question

如何將日期時間格式的當前日期複製到perl中的變量中？

假設當前日期是2013年5月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');