mysql - 使用 Perl 更改日期格式

Question

我有一个文本文件，我正在将其转换为 csv 文件，其中包含我想要导入 MySQL 数据库的信息。

我目前的日期格式如下:

Mar 24

我想更改该格式

YYYY-MM-DD

我想在 perl 中执行此操作，因为我已经在 perl 中完成了 csv 文件中的所有其他部分。

Answer 1

这是使用 Time::Piece 解决您的问题的初步解决方案，这是一个核心模块，不需要安装。

我对您的输入日期格式不包含年份感到非常不满意。下面的代码假设当前年份，但我可以想象，如果代码在 12 月 31 日运行，像 Jan 3 这样的日期应该升级到下一年。

年份必须包含在要解析的字符串中，因为 Time::Piece 会将 Feb 29 更改为 Mar 1(对于非-闰年。

use strict;
use warnings;

use Time::Piece;

print bd_to_ymd('Mar 24');

sub bd_to_ymd {
  my ($bd) = @_;
  my $year = localtime->year;
  my $tp = Time::Piece->strptime("$year $bd", '%Y %b %d');
  $tp->strftime('%Y-%m-%d');
}

输出

2014-03-24