Zacatecnicky dotaz

[Honza Pazdziora]

> 10.1.1.12 120	  // ta 120 znamena 120 bytu a je to udaj na 1.radce logu
> 10.1.1.12 150	  // z druhe radky logu pricetl 30 bytu
> atd.
> /* ja ale chci aby se zobrazilo pouze a jenom 10.1.1.12 150 a pak
> rovnou dalsi jinou ip adresu -to jak se to prirazuje postupne me vubec
> nezajima*/   ~~~~~
> 
> zdrojak:
> ~~~~~~~~~~~~~~~~~~
> 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";

Tak ten print ma byt snad az za koncem toho cyklu. A ten foreach by
mel (za koncem) cyklu delat prave ten print, ne?

> Budu vdecny za kazdou radu. Eventualne resil-li nekdo z Vas neco podobneho
> mohli byste mi to poslat k nahlednuti ? Nejlepsi by bylo kdyby to slo
> nejak testovat uz pro vytvareni tech hashu - zkratka nevim uz nekolikrat
> jsem si myslel, ze jsem na spravne stope a misto toho ... Doufam, ze to
> nebudu muset delat v C, nebo bashi.

No, tam ale narazite na uplne stejny problem. Chyba neni ve volbe
jazyka, ale v aplikacni logice. Proste nedriv je potreba vsechno
nacist, a pak teprve chyklit nad vzniklym hashem.

------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 make vmlinux.exe			-- SGI Visual Workstation Howto
Any spam sent to my email will be rewarded by complaint to your ISP abuse
  team and abuse teams of servers that relayed that message. It works.