Perl에서 ISO 형식 (% Y- % m- % dT % H : % M : % SZ)으로 날짜와 시간을 비교하는 방법은 무엇입니까?

Question

ISO 형식 —의 두 날짜 비교 (파일로부터 동적으로 수신)를 찾고 있습니다. 2011-12-14T17:22:52Z — in Perl. 내가 어떻게 해?

Answer 1

당신이 보여 ISO 8601 표기법의 가장 큰 장점은 그것이 문자열 비교와 비교 될 수 있다는 것입니다 :

이

my $v1 = "2011-12-14T17:22:52Z"; 
my $v2 = "2012-01-03T19:13:49Z"; 

print "$v1 earlier than $v2\n" if $v1 lt $v2; 

이 값이 모든 줄루 시간에 가정 (Z 일명, UTC 시간대입니다) . 다른 시간대가있는 경우 단일 표준 시간대로 표준화해야합니다 (UTC는 현명한 선택입니다).

---

주의해서 유의하십시오. 'string comparison'.

Perl에서 < 연산자는 두 개의 숫자를 비교합니다. 제시된 값은 훅, 도둑 또는 무력과 무지로 숫자로 강요됩니다. 예를 들어 if ("A" == "B")이 참이면 "A"이 숫자로 처리되므로 0이되고 "B"이됩니다. 날짜/시간 문자열은 숫자 비교를 사용하는 경우에만 숫자가 연도 구성 요소 인 것처럼 처리됩니다. (그 니모닉 원래 포트란 비교 연산자에 따라 될 수 있습니다 lt, le, gt, ge, eq, ne 및 cmp)

문자열 비교 연산자는 문자열을 비교하는 데 사용됩니다. 숫자 비교를 위해 숫자 비교기 (<, <=, >, >=, !=, == 및 <=>)를 사용합니다. 당신이하고 싶은 비교 유형을 구분하도록주의하십시오.

Answer 2

날짜 인 경우 하지 반드시 동일한 시간대 (질문이 명시 적으로 언급하지 않았다)에, 다음 구문 분석 및 날짜 문자열을 직접 계산하는 것보다 전용 날짜 & 시간 모듈을 사용하여 더 나을 것입니다. 여기 DateTimeDateTime::Format::ISO8601 및 모듈을 사용하는 예이다 : 비교 캐릭터 기반의 않음 문자열 비교 달리 두 개체 사이의 수치 비교를 사용

use DateTime::Format::ISO8601; 

my $dt1 = DateTime::Format::ISO8601->parse_datetime('2011-12-14T17:22:52Z'); 
my $dt2 = DateTime::Format::ISO8601->parse_datetime('2011-12-14T17:22:52+01:00'); 

if ($dt1 < $dt2) { 
    print "$dt1 is first\n"; 
} else { 
    print "$dt2 is first\n"; 
} 

참고있다. DateTime이 비교 연산자와 문자열 보간 "연산자"를 오버로드했기 때문에이 방법이 효과적입니다.