Dotaz: pocet cisel v logu

[root2456]

Zdravim, mam takovy problem, mam log, ktery obsahuje datum a telefoni cislo, co radek to datum a tel. cislo, soubor ma zhruba 1000 radku. potreboval bych to vytridit, tak aby vypsal tel. cislo(a) a kolikrat se tam vyskytuje(í). Toto udelat pro vsechy tel. cisla ktere se v logu obsahuji. Prosim nakopnete me nekdo jak na to. Dekuji moc

Odpovědi

[pasmen]

Skriptik v perlu, cislo a vyskyt ukladat do hashe.

[Marek Pasovsky]

pokud ma soubor oblibny format:

22.08.2004 123456789

tak by melo tacit nasldujici:

awk '{print $2;}' SOUBOR | sort | uniq -c

pokud je pouzit jinny oddelovac, nebo jsou cisla v jinem sloupci, tak

man awk

Marek

[root2456]

Ten soubor ma kapku jiny format , ale pomohlo mi to dekuji moc.

Danek

[unchallenger]

Nenapsals, jak to datum vypadá, takže předpokládám tvar 2004-08-24 (nebo prostě bez mezer).

cut -d' ' -f2 soubor | sort | uniq -c | sort -nr

[pasmen]

Konkretne:

#!/usr/bin/perl -w
open(LOG, "./log");
while (<LOG>) {
    ($datum, $cislo) = split(/\s+/, $_);
    $vyskyt{$cislo}++;
}
foreach (keys %vyskyt) {
    print "cislo: $_ $vyskyt{$_}x\n";
}