Dotaz: perl skript pro analyzu logu

[Leoš Literák]

Ahoj,

nasel by se zde nejaky perlman, ktery by mi napsal skript pro analyzu logu? Nechce se mi na to pouzivat javu

toto jsou data:

2002-06-09 17:26:38,773 | 52 | 212.47.8.34
2002-06-09 17:28:26,717 | 54 | 212.47.8.34
2002-06-09 18:04:13,278 | 52
2002-06-09 18:06:11,761 | 53

v podstate bych potreboval ziskat asociativni pole, kde klicem je cislo "| [0-9]+[ |]" a hodnotou pocet vyskytu tohoto cisla. A pak to pole jeste setridit vzestupne.

Takze z prikladu bych ziskal

[52,2]
[53,1]
[54,1]

Kdyz budu mit toto, ziskam jeste z databaze URL tohoto cisla a budu mit nadherne vystupy:

/download/abicko-2002-6.pdf : 2
/download/abicko-2002-6.txt : 1
/download/abicko-2002-5.txt : 1

nasel by se zde nekdo ochotny? predem diky

Odpovědi

[Leoš Literák]

Marian Cavojsky mi zaslal nasledujici skript, za coz mu moc dekuji:

#!/usr/bin/perl -w
use strict;
my %pocet;

while(<>){
   $pocet{$1}++ if( /^[0-9., :-]+\|\s*(\d+)/);
}

foreach( sort keys %pocet){
   print "[$_,$pocet{$_}]\n";
}