Forum Debian Users Gang

kombinacja sort, uniq i head? może awk?

choć wydaje mi sie, że lepiej by było użyć pythona, perla czy innego "wyższego" języka, powinien być bardziej wydajny (zwłaszcza przy takiej skali)

Ostatnio edytowany przez azhag (2008-09-17 15:36:07)

czadman napisał(-a):

Zależy też co znaczy "pd kątem danego ip" i "na bieżąco" ....

Czyli przykładowo w access.log wyskoczy ip 10.0.0.1 i ten hit ma być zaliczony na "konto" 10.0.0.1.
Na końcu skrypt ma przedstawić top 10 adresów IP.

#!/usr/bin/perl

use strict;
use warnings;

my $file = 'sciezka/do/pliku';
my %ips;

open FILE, '<'.$file or die "Nie można otworzyć $file tylko do odczytu: $!\n";
while (<FILE>) {
        if (/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/) {
                my $count = $ips{$1} ? $ips{$1} : 0;
                $ips{$1} = $count + 1 ;
        }
}
close FILE;

#--------------------------------------------------
# http://www.devdaily.com/perl/edu/qanda/plqa00016/
#-------------------------------------------------- 
sub hashValueDescendingNum {
        $ips{$b} <=> $ips{$a};
}

my $i = 0;
foreach my $key (sort hashValueDescendingNum (keys(%ips))) {
        last if ($i++ >= 10);
        print $ips{$key} . " wystąpień adresu ".$key . "\n";
}

Z FAQ-a wynika, że perl czyta plik linia po linii (nie kopiuje go całego do pamięci), więc zużycie zasobów powinno być minimalne niezależnie od wielkości pliku. Ale możesz poobserwować czy tak będzie rzeczywiście (jeżeli jest tam bardzo dużo różnych adresów IP, to jednak może być zauważalnie).

Tak między nami, powinieneś potrafić sam sobie to napisać.

Prościej :) .