thank you

skirrow — Thu, 13 Jul 2000 10:19:13 +0000

THANKS A LOT!!!!

Neil

OK, I'll try ...

anti — Thu, 13 Jul 2000 09:52:40 +0000

But beware I have no perl at hand, so it all commes from my head.
(And I'll go via the shell, since Idon't want to write a sorter ...)

#!/usr/bin/perl

$INFILE="LOG";

system( ( "/bin/sh", "-c", 'cut -d"|" -f 2 <'.$INFILE.' | sort  | uniq -c | sort -n | tail -n 10 | cut -f 2 >TOP10IP' ) );

open( TOP10IP, "<TOP10IP" );
while( <TOP10IP> ){
	print $_;
}

Note:
This is not very fast or resource friendly,
but I assume this is for your private datamining only anyway, so it will be OK.

And yes, I thought it would be more code ...

Anti

A tiny hint if possible :o)

skirrow — Wed, 12 Jul 2000 15:40:53 +0000

Hi,
Thanks anti!
Okay. Maybe this is asking a bit much! But I havn't programmed seriously for over a year so I'm extremely rusty!

Could you possibly just write the top 10 IPS section?
All of it, including how to print them.
It can't be much code looking at what you showed me!

Thanks a lot!
Neil

anti — Wed, 12 Jul 2000 15:10:00 +0000

Just some common tips...

If you use "|" seperated tables, always end the line with an "|".
There is a very good reason for it, but I used to many RDBMS to remember right now.

Use the system if you can.
Under UNIX tail, sort, uniq, etc are your friends.

Last 100 logins:
tail -n 100 LOGFILE > LAST100
Last login:
tail -n 1 LOGFILE > LAST1
Top 10 IPs:
cut -d"|" -f 2 TOP10IP

If you want to do this in pure perl you would use a similar approach.
Depending on the logfile size you could do it in memory.
But why bother. Just let the shell to all the work ...

If you have _tried_ to do it and find some specific problems ask again.
Nobody can/will help you with "I need the script, please write it."

ciao
Anti
ps:
If you really can't do it, but need it ... buy it ... my price is 250US$/hour (discount for TWF members included).