关于datetime:如何在Perl中解析日期和转换时区?

How can I parse dates and convert time zones in Perl?

我在Perl中使用了localtime函数来获取当前日期和时间,但需要在现有日期中进行解析。 我有以下格式的GMT日期:"20090103 12:00"我想将其解析为我可以使用的日期对象,然后将GMT时间/日期转换为我当前的时区,这是当前的东部标准时间。 所以我想将"20090103 12:00"转换为"20090103 7:00"任何关于如何做到这一点的信息将不胜感激。


因为Perl内置的日期处理接口有点笨拙,你最终传递了六个变量,更好的方法是使用DateTime或Time :: Piece。 DateTime是全唱,全舞蹈的Perl日期对象,你可能最终想要使用它,但Time :: Piece更简单,完全适合这项任务,具有5.10的优势,技术是两者基本相同。

这是使用Time :: Piece和strptime的简单,灵活的方式。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/bin/perl

use 5.10.0;

use strict;
use warnings;

use Time::Piece;

# Read the date from the command line.
my $date = shift;

# Parse the date using strptime(), which uses strftime() formats.
my $time = Time::Piece->strptime($date,"%Y%m%d %H:%M");

# Here it is, parsed but still in GMT.
say $time->datetime;

# Create a localtime object for the same timestamp.
$time = localtime($time->epoch);

# And here it is localized.
say $time->datetime;

对比之下,这是手动方式。

由于格式是固定的,正则表达式会很好,但如果格式改变,你将不得不调整正则表达式。

1
2
my($year, $mon, $day, $hour, $min) =
    $date =~ /^(\d{4}) (\d{2}) (\d{2})\ (\d{2}):(\d{2})$/x;

然后将其转换为Unix纪元时间(自1970年1月1日起的秒数)

1
2
3
4
5
use Time::Local;
# Note that all the internal Perl date handling functions take month
# from 0 and the year starting at 1900.  Blame C (or blame Larry for
# parroting C).
my $time = timegm(0, $min, $hour, $day, $mon - 1, $year - 1900);

然后回到当地时间。

1
2
3
4
5
(undef, $min, $hour, $day, $mon, $year) = localtime($time);

my $local_date = sprintf"%d%02d%02d %02d:%02d
"
,
    $year + 1900, $mon + 1, $day, $hour, $min;


这是一个使用DateTime及其strptime格式模块的示例。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use DateTime;
use DateTime::Format::Strptime;

my $val ="20090103 12:00";

my $format = new DateTime::Format::Strptime(
                pattern => '%Y%m%d %H:%M',
                time_zone => 'GMT',
                );

my $date = $format->parse_datetime($val);

print $date->strftime("%Y%m%d %H:%M %Z")."
"
;

$date->set_time_zone("America/New_York");  # or"local"

print $date->strftime("%Y%m%d %H:%M %Z")."
"
;

$ perl dates.pl
20090103 12:00 UTC
20090103 07:00 EST

如果您想解析本地时间,请按以下步骤操作:)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use DateTime;

my @time = (localtime);

my $date = DateTime->new(year => $time[5]+1900, month => $time[4]+1,
                day => $time[3], hour => $time[2], minute => $time[1],
                second => $time[0], time_zone =>"America/New_York");

print $date->strftime("%F %r %Z")."
"
;

$date->set_time_zone("Europe/Prague");

print $date->strftime("%F %r %Z")."
"
;


这就是我要做的......

1
2
3
4
5
6
7
#!/usr/bin/perl
use Date::Parse;
use POSIX;

$orig ="20090103 12:00";

print strftime("%Y%m%d %R", localtime(str2time($orig, 'GMT')));

您也可以使用Time::ParseDateparsedate()代替Date::Parsestr2time()。请注意事实上的标准atm。似乎是DateTime(但您可能不想仅使用OO语法来转换时间戳)。


拿你的选择:

  • DateTime :: *(或者,在datetime.perl.org)
  • 日期:: MANIP
  • Date :: Calc(2004年最后一次更新)

毫无疑问,还有其他人,但他们可能是最有力的竞争者。


1
2
3
4
5
6
7
use strict;
use warnings;
my ($sec,$min,$hour,$day,$month,$year)=localtime();
$year+=1900;
$month+=1;
$today_time = sprintf("%02d-%02d-%04d %02d:%02d:%02d",$day,$month,$year,$hour,$min,$sec);
print $today_time;