Hello List,
I need help in extracting a range of lines from a log files, i tried to do
it with this script:
#!/bin/perl
use strict;
use warnings;
open(FILE,"/home/teragram/status_log.txt") or die "can't open file $!\n";
my @line;
while (<FILE>) {
if (/DATE:\s\d.*/../END_TIME:\s\d.*/) ##This line taken from sample
solution on perl cookbook, but I doubt if i did it right what the author
mean.###
{
push @line,$_;
}
}
my $popped = pop @line;
print "\t $popped \n";
### Here the format of logfiles####
DATE: 2003/7/26
START_TIME: 1:5:13
New Update files:
/home/teragram/daily_cycle/updates/headingupdates2003-07-24-16-00.xml
Applying update:
/home/teragram/daily_cycle/updates/headingupdates2003-07-24-16-00.xml
Updated /home/teragram/daily_cycle/data/marc_info.txt
Updated /home/teragram/daily_cycle/data/use_info.txt
Admin files updated
Updated /home/teragram/daily_cycle/data/search_master_file.txt
Updated /home/teragram/daily_cycle/bindata/admin.ha
/home/teragram/daily_cycle/bindata/marc_info.cm updated
/home/teragram/daily_cycle/bindata/use_info.cm updated
Updated /home/teragram/daily_cycle/bindata/headings.hm
Updated /home/teragram/daily_cycle/bindata/search.min.aut and
/home/teragram/daily_cycle/bindata/search.cm
Updated /home/teragram/daily_cycle/bindata/search.alph,
/home/teragram/daily_cycle/bindata/search.idx and /home/teragram/dail
y_cycle/bindata/search.td
END_TIME: 7:13:30
DATE: 2003/7/27
START_TIME: 1:13:35
No Updates found
No updates found
END_TIME: 1:13:46
DATE: 2003/7/28
START_TIME: 1:13:52
No Updates found
No updates found
END_TIME: 1:14:3
Now, I need too accmplished these:
1.Get the text from DATE/format/here to END_TIME/format/here.
2.Get only the latest one or the end portion since this log append the
previous date logs.
with my script above I got only the END_TIME/format/here section, I've tried
also reading it by paragraph but to no avail, is there any modules or tricks
to do the job?
As always.thanks a lot.
/joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
