Re: Best way to pick apart log file.

Try inserting into your while loop:

  next if m/^\s*$/;
[download]

It appears your code is failing because there are blank lines, or lines not delimited with ';'. Is that true?
mkmcconn
By the way, I really admire that line:
($dst, $service) = (split /;/)[11, 12];

Comment on Re: Best way to pick apart log file. Select or Download Code

Replies are listed 'Best First'.
Re: Re: Best way to pick apart log file. by Rich36 (Chaplain) on Dec 27, 2001 at 23:00 UTC
That probably is the case. I ran this with trailing blank lines and got the same error. When the blank lines are removed, the error goes away - even using strict and warnings. The other thing that got rid of another error was to actually define `$count1` as `$count1 = 0`. Otherwise I got an error `Use of uninitialized value in numeric ge (>=) at logtest.pl line 47` at the end of the code. Rich36 There's more than one way to screw it up...	[reply] [d/l] [select]
Re: Re: Best way to pick apart log file. by dru145 (Friar) on Dec 27, 2001 at 23:21 UTC
Yes, that is true, there are blank lines in the logs. I added your next statement and it worked like a champ. By the way, I really admire that line: `($dst, $service) = (split /;/)[11, 12];` Thanks, but I can't take credit for it. It was suggested by a most excellent monk, Juerd, in this post Another Array Problem: comparing.. -Dru Another satisfied monk	[reply] [d/l]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks