如何在Perl中创建MySQL风格的时间戳？

Question

我需要让我的Perl脚本提供与MySQLs timestamp字段相同的格式。有谁知道怎么做？

这真的只是第一步。我需要对时间戳做的是增加时间。例如，如何在时间戳上添加1周，以便知道日期恰好是7天后的日期？

我被困住了！我讨厌和时间一起工作，这次更糟糕，因为我以前从来没有加时间。

Answer 1

use DateTime::Format::MySQL qw( );

my $dt = DateTime::Format::MySQL->parse_datetime($mysql_ts);
$dt->add( days => 7 );
$mysql_ts = DateTime::Format::MySQL->format_datetime($dt);