use Time::HiRes qw(time);
use POSIX qw(strftime);
my $t = time;
my $date = strftime "%Y%m%d %H:%M:%S", localtime $t;
$date .= sprintf ".%03d", ($t-int($t))*1000; # without rounding
print $date, "\n";
# cat > ttt.pl
# perl ttt.pl
Perl 日期时间函数(date time)
最新推荐文章于 2022-12-02 07:12:02 发布