Как сравнить даты с помощью perl?

Question

Как я могу сравнить две даты в формате с помощью Perl:

"dd mon yyyy hh:mm:ss GMT" 

.: 12 например May 2013 10:10:20 GMT

Я не могу установить любые внешние модули Perl. Пожалуйста, совет.

Answer 1

Если у вас есть Perl v5.9.5 или новее, вы можете использовать основной модуль Time::Piece. Вот простая демонстрация соответствующих операций

• Преобразование даты из строки в Time::Piece объекта

  my $date = "12 May 2013 10:10:20 GMT"; 
  my $tp1 = Time::Piece->strptime($date, "%d %B %Y %T %Z"); 
  my $tp2 = ... 
  

• Найти разницу между 2 раза

  my $diff = $tp2 - $tp1; 
  

  , который дает вам Time::Seconds объект ,

• Наконец, отобразите разницу в единицах секунд (или что-то еще).

  print $diff->seconds; 
  

• Или вы могли бы просто сравнить два напрямую (спасибо stevenl)

  $tp2 > $tp1 
  

---

Ссылки:

1. Time::Seconds
2. Time::Piece
3. man strftime для форматной строки для использования с Time::Piece->strptime
4. man strptime для форматной строки для использования с $tp->strftime
   • Обратите внимание, что только символы формата aAbBcdHIjmMpSUwWxXyYZ% безопасны, если вы используете не-Unix системы (например, Window Perl не поддерживает спецификатор %e).

Answer 2

Один из самых популярных модулей даты - DateTime. Он имеет a FAQ, который может помочь вам приступить к работе.

sub to_comparable { 

     my ($date) = @_; 
     my ($H,$M,$S,$d,$m,$Y) = $date =~ m{^([0-9]{2}):([0-9]{2}):([0-9]{2}), ([0-9]{2})/([0-9]{2})/([0-9]{4})\z} 
      or die; 
     return "$Y$m$d$H$M$S"; 
    } 

    if (to_comparable($date2) < to_comparable($date1)) { 
     ... 
    } else { 
     ... 
    } 

Answer 3

Преобразование даты в формат yyyymmddhhmmss (например, 20130512101020) и сравнить как строки. Тем не менее, обработка часовых поясов может оказаться сложной без модулей.