如何将日期时间格式的当前日期复制到 perl 中的变量?
假设当前日期是 2013-05-30 那么复制到变量的值
$time='2013-05-30 15:10:23'
我怎样才能在 perl 中做到这一点?
使用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');