well, i took a stab at it, but i didn't have much data to test against, so i made some up. this processes the log file line by line, so it doesn't use as much memory, and only passes through the file once, reading and processing in the same step. it tests the first eight characters of each line (the date,) against a predefined value, $date. if this condition holds, the line is printed, in my example, to the screen.
in order to use this, you'll have to change the DATA handle to LOG, and change print ; to print LOGFILE;
#!/usr/local/bin/perl -w
use strict;
my $date = '20020111';
while( <DATA> ) {
# ignore lines until the first eight characters of the line are
# greater than or equal to $date
next unless( substr($_, 0, 8) >= $date );
print ;
}
__DATA__
20020109 164741 892 26,212 Directories 52,846 Files (805.49 MB) Ba
+cked Up a
20020110 164741 892 26,212 Directories 52,846 Files (805.49 MB) Ba
+cked Up b
20020111 164741 892 26,212 Directories 52,846 Files (805.49 MB) Ba
+cked Up c
20020111 164741 892 26,212 Directories 52,846 Files (805.49 MB) Ba
+cked Up x
20020112 164741 892 26,212 Directories 52,846 Files (805.49 MB) Ba
+cked Up y
20020112 164742 892 26,212 Directories 52,846 Files (805.49 MB) Ba
+cked Up z
20020113 164741 892 26,212 Directories 52,846 Files (805.49 MB) Ba
+cked Up 1
~Particle
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
|
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.