mysql - SQL 和 perl 时间格式化

Question

我似乎无法找到一种在 perl 中格式化字符串以在 MySQL DateTime() 字段中使用的方法。

 my $time = "Sat Jun 29 11:20:28 2013 -0400"

我需要格式化时间，以便可以将其输入 MySQL DateTime() 字段

   Format: YYYY-MM-DD HH:MM:SS

我打算使用 perl mysql 模块输入这个

   $createQuery = "INSERT INTO something (dated) Values(?) ";
   $sqlQuery = $dbh->prepare($createQuery);
   $sqlQuery->execute($time);

Answer 1

您不必自己进行任何格式化。

$time = time;
$createQuery = "INSERT INTO something (dated) Values( FROM_UNIXTIME( ? )) ";
$sqlQuery = $dbh->prepare($createQuery);
$sqlQuery->execute($time);

如果您确实需要一个字符串并且您的数据源不是 unix 时间戳，则只需使用MySQL 可以理解的任何格式。

$time = '2013-06-29 18:50:00';
$createQuery = "INSERT INTO something (dated) Values( FROM_UNIXTIME( ? )) ";
$sqlQuery = $dbh->prepare($createQuery);
$sqlQuery->execute($time);

Answer 2

您可以使用核心模块Time::Piece，它自 5.9 以来一直是 Perl 核心的一部分：corelist。

use Time::Piece;
my $time = q(Sat Jun 29 11:20:39 2013 -0400);
my $t = Time::Piece->strptime($time, '%a %b %d %H:%M:%S %Y %z');
print $t->strftime("%Y-%m-%d %H:%M:%S\n");

Answer 3

如果您没有 perl 5.9，Date::Manip将对您进行排序：

$date_as_mysql_likes = UnixDate(ParseDate($your_date_here), '%Y-%m-%d %H:%M:%S');