Làm thế nào để phân tích một chuỗi thành một đối tượng DateTime trong Perl?

Question

Tôi biết về mô-đun DateTime Perl và nhiều mô-đun DateTime::Format:: để phân tích các loại định dạng ngày/giờ cụ thể. Tuy nhiên, một số ví dụ về chuỗi ngày/giờ, làm thế nào tôi có thể tìm ra (tại thời điểm mã hóa/thiết kế, không phải khi chạy) mà tôi nên sử dụng mô-đun cụ thể nào?

Ví dụ, tôi muốn phân tích chuỗi như: October 28, 2011 9:00 PM PDT

Có một danh sách ở đâu đó trong những ngày/định dạng thời gian phổ biến nhất mà tôi có thể xem xét điều này và tìm thấy đó sẽ là mô-đun thích hợp nhất?

Tôi cũng biết về một số mô-đun cố gắng "đoán" định dạng cho từng chuỗi đã cho lúc chạy và làm tốt nhất. Nhưng, đối với các ứng dụng nhạy cảm, tôi muốn xác định (đúng nhất có thể) định dạng đầu tiên khi thiết kế một ứng dụng và sau đó sử dụng một mô-đun sẽ cảnh báo cho tôi nếu một chuỗi không khớp với định dạng được chỉ định.

Tôi nên làm như thế nào?

Answer 1

DateTime::Format::Strptime mất ngày/giờ chuỗi và phân tích chúng thành các đối tượng DateTime.

#!/usr/bin/perl 

use strict; 
use warnings; 

use DateTime::Format::Strptime; 

my $parser = DateTime::Format::Strptime->new(
    pattern => '%B %d, %Y %I:%M %p %Z', 
    on_error => 'croak', 
); 

my $dt = $parser->parse_datetime('October 28, 2011 9:00 PM PDT'); 

print "$dt\n"; 

Chuỗi ký tự được sử dụng trong mẫu là tiêu chuẩn POSIX. Xem 'man strftime' để biết chi tiết.

Answer 2

Hãy xem mô-đun Date::Parse, tức là chức năng str2time(). Nó có hỗ trợ cho hầu hết các định dạng thường được sử dụng.

Ví dụ:

use Date::Parse; 
use DateTime; 

my $str = "Tue, 20 Sep 2011 08:51:08 -0500"; 
my $epoch = str2time($str); 
my $datetime = DateTime->from_epoch(epoch => $epoch); 

Answer 3

Tôi có xu hướng sử dụng Time::Piece đơn giản chỉ vì nó là một phần của bộ mô-đun Perl chuẩn kể từ phiên bản 5.10.

Bạn không thể đánh bại khả năng của nó là parse date strings.

my $time = Time::Piece->strptime(
     "October 28, 2011 9:00 PM PDT", 
     "%B %d, %Y %r %Z"); 

Answer 4

Nếu bạn đang tìm kiếm ngày common/định dạng thời gian có một cái nhìn tại DateTime::Locale

use DateTime::Locale 
my $locale = DateTime::Locale->load('DE_de'); 

The following methods return strings appropriate for the DateTime->format_cldr() method:

$locale->date_format_full() 
$locale->date_format_long() 
$locale->date_format_medium() 
$locale->date_format_short() 
$locale->date_format_default() 
$locale->time_format_full() 
$locale->time_format_long() 
$locale->time_format_medium() 
$locale->time_format_short() 
$locale->time_format_default() 
$locale->datetime_format_full() 
$locale->datetime_format_long() 
$locale->datetime_format_medium() 
$locale->datetime_format_short() 
$locale->datetime_format_default() 

Bạn có thể phân tích Ngày với các module DateTime::Format::CLDR

use DateTime::Format::CLDR; 
# 1. Basic example 
my $cldr = DateTime::Format::CLDR->new(
    pattern  => 'dd.MM.yyyy HH:mm:ss', 
    locale  => 'de_DE', 
    time_zone => 'Europe/Berlin', 
); 
my $dt = $cldr->parse_datetime('26.06.2013 11:05:28');