Вот пытаюсь разобрать логи squid`а и посчитать сколько пользователь инета повыкачал.
Делаю так:

Код

cat access.log | ./1.pl | less

Код

#!/usr/bin/perl while (<STDIN>){  @t=split(/[ \t]+/);  if ($t[8]=~m/DIRECT/){   $ex{$t[7]}+=$t[$4]  } } foreach (sort keys %ex){ print "\n$_\t".($ex{$_}/1024/1024)."Mb"; }

У меня получаются терабайты за день Хотя больше гига за месяц ни кто не качает.

$t[$4] - вот в чём трабл!

надо $t[4]

Это сообщение отредактировал(а) Secandr - 4.4.2005, 15:40

а пета-байты ... слабо скачать ?

bilbobagginz чего?