Parsing a Log File

[drushof]

hello im new with perl
i must do parse log file from networker

with format look like this :

Start time: 2-16-07 11:27a
Recovering files of client 'blablabla' from server 'bliblibli'.
Recover: Total estimated disk space needed for recover is 3 MB.
Recovering 5 files within D:\X\Y\ into E:\restore
Requesting 5 file(s), this may take a while...
E:\restore\blab la\blablabla.bl a
E:\restore\blab la\blablabla.bl i
E:\restore\blab la\blablabla.bl u
E:\restore\blab la\blablabla.bl e
E:\restore\blab la\blablabla.bl o
Received 5 file(s) from NSR server 'blablabla'
Recover completion time: Fri Feb 16 11:30:52 2007

and the data,i need:
start time,completion time,client name,server name,total file,and disk space

i have problem with regex,grep,spli t..is anyone can help me?
thx before =)

[KevinADC]

What have you tried so far?

[drushof]

What have you tried so far?

Start time: 2-16-07 11:27a
Recovering files of client 'blablabla' from server 'bliblibli'.
Recover: Total estimated disk space needed for recover is 3 MB.
Recovering 5 files within D:\X\Y\ into E:\restore
----> this is oke..


and then how can i go to the last line to get the completion date,
because every file has different amount of files to recover.(in this example 5 files)
i dont have idea to make the loop

[KevinADC]

Lets see the perl code you have written so far.

[drushof]

Lets see the perl code you have written so far.

o yea i forgot to tell that i just make the prosedur for each line, not a whole file..

[KevinADC]

Please post your code here in this thread.

[drushof]

i've done this :

use strict;
use warnings;

open (LOGFILE, "Restoremarble. log") || die "couldn't open the file!";
my @line = <LOGFILE>;

#line 1
my $list = $line[0];
my @list_t = split(/ /,$list);

my @grepNames = grep(/^\d/, @list_t);
my $el1 = $grepNames[0];
my $el2 = $grepNames[1];

my @list_date = split('-',$el1);
my @list_time = split(':',$el2) ;

print "-----------------\n";
print "day :$list_date[0]\n";
print "month :$list_date[1]\n";
print "year : $list_date[2]\n";
print "time : $list_time[0]-$list_time[1]\n";

#line 2
my $list2 = $line[1];
my @list_t2 = split(/ /,$list2);

my @grepNames2 = grep(//,@list_t2);
my $el1a = $grepNames2[4]; #client
my $el2a = $grepNames2[7]; #server


print "-----------------\n";
print "client : $el1a\n";
print "server : $el2a\n";

#line 3
my $list3 = $line[2];
my @list_t3 = split(/ /,$list3);

my @grepNames3 = grep(/^\d/,@list_t3);
print "--------------\n";
print "Total disk : $grepNames3[0]\n";

#2 last line
my $list4 = $line[-2];
my @list_t4 = split(/ /,$list4);

my @grepNames4 = grep(/^\d/,@list_t4);
print "-----------------\n";
print "Total files : $grepNames4[0]\n";

#last line
my $list5 = $line[-1];
my @list_t5 = split(/ /,$list5);

print "---------------------\n";
print "day : $list_t5[5]\n"; #day
print "month : $list_t5[4]\n"; #month
print "year : $list_t5[7]"; #year
print "time : $list_t5[6]\n"; #time

close(LOGFILE);
exit 0;

is it correct?

[KevinADC]

It's not the way I would do it and the results look incomplete based on the data you posted. When I run your script with the sample data this is the output:

-----------------
day :2
month :16
year : 07
time : 11-27a

-----------------
client : 'blablabla'
server : 'bliblibli'.

--------------
Total disk : 3
-----------------
Total files :
---------------------
day :
month :
year : time :

so while your code could be improved and does not return all the data you wanted, completion time and total file are missing, at least it runs. It uses "strict" and "warnings" (very good), and does produce most of the output you want. Is this school work or some sort of learning excersize?

[drushof]

so what i supossed to do?
this is school work =(

[drushof]

i've improved it :

use strict;
use warnings;

open (LOGFILE, "bla.log") || die "couldn't open the file!";
my @line = <LOGFILE>;

#line 1
my $list = $line[0];
my @list_t = split(/ /,$list);

my @grepNames = grep(/^\d/, @list_t);
my $el1 = $grepNames[0];
my $el2 = $grepNames[1];

my @list_date = split('-',$el1);
my @list_time = split(':',$el2) ;

print "-----------------\n";
print "day :$list_date[1]\n";
print "month :$list_date[0]\n";
print "year : $list_date[2]\n";
print "time : $list_time[0]-$list_time[1]\n";

#line 2
my $list2 = $line[1];
my @list_t2 = split(/ /,$list2);

my @grepNames2 = grep(//,@list_t2);
my $el1a = $grepNames2[4]; #client
my $el2a = $grepNames2[7]; #server


print "-----------------\n";
print "client : $el1a\n";
print "server : $el2a\n";

#line 3
my $list3 = $line[2];
my @list_t3 = split(/ /,$list3);

print "-------------------\n";
print "Total size : $list_t3[9] $list_t3[10]\n";

# my @grepNames3 = grep(/^\d/,@list_t3);
# print "--------------\n";
# print "Total disk : $grepNames3[1]\n";

#2 last line
my $list4 = $line[-2];
my @list_t4 = split(/ /,$list4);

my @grepNames4 = grep(/^\d/,@list_t4);
print "-----------------\n";
print "Total files : $grepNames4[0]\n";

#last line
my $list5 = $line[-1];
my @list_t5 = split(/ /,$list5);

print "---------------------\n";
print "day : $list_t5[5]\n"; #day
print "month : $list_t5[4]\n"; #month
print "year : $list_t5[7]"; #year
print "time : $list_t5[6]\n"; #time

close(LOGFILE);
exit 0;

content of bla.log is same with the first post