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时间戳，请使用formats that MySQL understands中的任何一个。

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

Answer 2

您可以使用自5.9以来一直是Perl核心一部分的核心模块Time::Piece：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');

SQL和perl时间格式化

3 个答案: