如何比较Perl中不同格式的日期？

任何人都可以帮助我如何将这种日期格式“Mon，24 Aug 2009 17:00:44 +0800”转换成这样的东西，“2009-08-24 17:00:44”在Perl中？我一直在CPAN浏览模块，但仍然无法找到我想要的内容。第一种格式是使用Mail :: POP3Client从电子邮件帐户中检索的。另一个来自数据库中的查询。我的目标是比较这两个日期，但如果它们的格式不同，它将无法工作。任何建议请问？ =）如何比较Perl中不同格式的日期？

来源

2009-08-25 Suezy

我会用Date::Calc

分割字符串来得到所需的值，并使用解码_月（“八月”）

use strict; 
use warnings; 
use Date::Calc qw(:all); 

my $datetime = 'Mon, 24 Aug 2009 17:00:44 +0800'; 

# get each part 
my (undef, $day, $month_text, $year, $time, undef) = split('/,?\s/', $datetime); 

my $month = Decode_Month($month_text); 

# put together in wanted format 
my $newdatetime = sprintf("%04d-%02d-%02d $time", $year, $month, $day);

来源

2009-08-25 08:31:11 Nifle

split /，？\ s /避免前面的s /// – larelogio 2009-08-25 11:37:57

我会使用DateTime::Format::Strptime将日期转换成DateTime对象，然后要求它提供所需的日期表示形式。例如： -

my $parser = DateTime::Format::Strptime->new(pattern => '%a, %d %b %Y %T %z'); 
my $dt = $parser->parse_datetime($original_timestamp); 

# Postgres-format timestamp for db storage 
my $pg_timestamp = DateTime::Format::Pg->format_datetime($dt); 

# Epoch timestamp for if I'm going to do the comparison in code 
my $epoch = $dt->epoch;

来源

2009-08-25 08:48:31

如果您确信您的POP3客户端上的时间戳格式不会改变，那么我会建议转换格式的数据库查询本身。您没有提及您使用的数据库，但是我使用的所有数据库（Oracle，PostgreSQL，MySQL）都具有在您的select语句中为您提供任何格式的功能。

如果你告诉我们你正在使用什么数据库，我可以告诉你什么是时间戳格式化函数。

来源

2009-08-25 10:09:03

如何比较Perl中不同格式的日期？

回答

相关问题