Zacatecnicky dotaz

[Tom Mueller]

> open(LOG,"log") or die "LOG:$!\n";
> while($zaznam = <LOG>) {
>   ($serial, $any, $ip, $protocol, $size, $metoda, $adresa, $c1, $direct, 
>   $c2) = split(" ",$zaznam);
>   $velikost{$ip} += $size ." "; 
>   foreach $ip (sort keys %velikost) {}
>   open(FAO, ">>fao") or die "FAO:$!\n";
>   print FAO "$ip,$velikost{$ip}", "\n";
>   close FAO;
> }

Telo toho while-cyklu ma zpracovat jednu prave nactenou radku (zaznam),
tzn. najit v ni IP adresu a pocet bytu a v hashi %velikost nascitavat
pocty bytu pro jednotlive IP adresy. Nakonec, az se zpracuje cely log,
vytiskne se napr. do fao prehled po jednotlivych IP adresach.
-- 
Tom Mueller