Date Range Problem

Question

Date Range Problem

I have a log file that has the first few characters of each line as a timestamp.

2010-06-01 04: 56: 02 802 DEBUG {Thread-27} Some text message
2010-06-01 04: 56: 02 802 DEBUG {Thread-27} Some text message
2010-06-01 04: 56: 02 802 DEBUG {Thread-27} Some text message
2010-06-01 04: 56: 02 802 DEBUG {Thread-27} Some text message
2010-06-01 05:22: 02,802 DEBUG {Thread-27} Some text message
2010-06-01 05:22: 02,802 DEBUG {Thread-27} Some text message
2010-06-01 05:22: 02,802 DEBUG {Thread-27} Some text message
2010-06-01 05:22: 02,802 DEBUG {Thread-27} Some text message
2010-06-01 06: 43: 02 802 INFO {Thread-27} Some text message
2010-06-01 06: 43: 02 803 INFO {Thread-27} Some text message
2010-06-01 06: 43: 02 804 INFO {Thread-27} Some text message
2010-06-01 06: 43: 02 804 INFO {Thread-27} Some text message
2010-06-01 06: 43: 02 809 DEBUG {Thread-27} Some text message
2010-06-01 06: 43: 02 809 DEBUG {Thread-27} Some text message
2010-06-01 06: 43: 02 809 DEBUG {Thread-27} Some text message
2010-06-01 07: 08: 02,809 DEBUG {Thread-27} Some text message
2010-06-01 07: 08: 02,809 DEBUG {Thread-27} Some text message

My goal is to find all such lines that have a timestamp 1 hour before the current time.

How can this be achieved?

+3

perl

ungalnanban Jun 01 '10 at 5:40

3

Zaid · Answer 1 · 2010-06-01T13:32:30+0000

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 time

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

close $logFile;

Aryabhatta · Answer 2 · 2010-06-01T05:47:39+0000

, Binary Search .

, , ( , ), ( ), . , , , .

, , - , Interpolation Search, .. .

, .

perl: http://perl.plover.com/yak/lightweight-db/materials/slides/slide024.html

David Wall · Answer 3 · 2010-06-09T19:19:42+0000

? , File:: ReadBackwards. , , . , , . (, .)

Date Range Problem

More articles: