Диапазон дат Задача

Question

У меня есть файл журнала, который имеет первые несколько символов каждой строки в качестве метки времени.

2010-06-01 04: 56: 02802 DEBUG {Thread-27} Некоторые текстовые сообщения

2010-06-01 04: 56: 02802 DEBUG {Thread-27} Некоторые текстовые сообщения

2010-06-01 04: 56: 02802 DEBUG {Thread-27} Некоторые текстовые сообщения

2010-06-01 04: 56: 02802 DEBUG {Thread-27} Некоторые текстовые сообщения

2010-06-01 05: 22: 02802 DEBUG {Thread-27} Некоторые текстовые сообщения

2010-06-01 05: 22: 02802 DEBUG {Thread-27} Некоторые текстовые сообщения

2010-06-01 05: 22: 02802 DEBUG {Thread-27} Некоторые текстовые сообщения

2010-06-01 05: 22: 02802 DEBUG {Thread-27} Некоторые текстовые сообщения

2010- 06-01 06: 43: 02,802 INFO {Thread-27} Некоторое текстовое сообщение

2010-06-01 06: 43: 02803 INFO {Thread-27} Некоторые текстовые сообщения

2010-06-01 06: 43: 02804 INFO {Thread-27} Некоторые текстовые сообщения

2010-06-01 06: 43: 02804 INFO {Thread-27} Некоторые текстовые сообщения

2010-06-01 06: 43: 02809 DEBUG {Thread-27} Некоторые текстовые сообщения

2010-06-01 06: 43: 02,809 DEBUG {Thread-27} Некоторые текстовые сообщения

2010-06-01 06: 43: 02809 DEBUG {Thread-27} Некоторые текстовые сообщения

2010-06-01 07: 08: 02809 DEBUG { Thread-27} Некоторые текстовые сообщения

2010-06-01 07: 08: 02809 DEBUG {Thread-27} Некоторые текстовые сообщения

Моя цель, чтобы найти все такие строки, которые имеют метку 1 hr до текущего времени.

Как это можно достичь?

Answer 1

Поскольку временные метки будут отсортированы, вы можете попробовать своего рода Binary Search с твист.

Так как в основном линии не будут иметь одинаковую длину, вы можете просто искать определенное смещение, искать новые строки (или любой другой ограничитель строки), который появляется до и после (после ИЛИ после и один после, что), вы получаете линию кандидата.Теперь сравните дату на линии с той, которую вы ищете, и решите, искать ли снова, или просто осмотрите окрестности этой линии.

При определении того, какое смещение нужно искать дальше, вы можете попытаться использовать что-то похожее на то, что делает Interpolation Search, т. Е. Принять решение о смещении, основанном на разнице между временем, которое вы получили, и временем, которое вы ищете.

Это должно быть намного быстрее, чем линейный поиск.

Для примера, чтобы сделать бинарный поиск в файлах с помощью Perl: http://perl.plover.com/yak/lightweight-db/materials/slides/slide024.html

Answer 2

Модуль DateTime хорошо подходит для нужд этой проблемы:

use strict; 
use warnings; 
use DateTime; 

my $oneHourAgo = DateTime->now()->subtract(hours => 1); 
my $threshold = join ' ', $oneHourAgo->ymd, $oneHourAgo->hms; # Time as string 

open my $logFile, '<', 'logfile.txt'; 

while (my $log = <$logFile>) { 

    chomp $log; 
    my ($time) = split /,/, $log;  # Gets current log's time 

    print $log if $time ge $threshold; # String-compares log's time to threshold 
} 

close $logFile; 

Answer 3

делает заказ, что строки выводятся дело? Если вы не против иметь их с последними в первую очередь, вы можете подумать об использовании File::ReadBackwards. Продолжайте читать назад до тех пор, пока линия не станет более одного часа, а затем остановится. Если вы хотите их в определенном порядке, вы можете сохранить их в массиве и распечатать их, как хотите. (Это предполагает, что это более или менее стандартный файл журнала с последними записями в конце файла.)