Есть ли анализатор логов squid в реальном времени?
>Есть ли анализатор логов squid в
>реальном времени?А тут совсем недавно тред был по этому поводу. Вроде кто то прогу написал такую.
>А тут совсем недавно тред был
>по этому поводу. Вроде кто
>то прогу написал такую.А ссылочку можно?
>>А тут совсем недавно тред был
>>по этому поводу. Вроде кто
>>то прогу написал такую.
>
>А ссылочку можно?
>>А тут совсем недавно тред был
>>по этому поводу. Вроде кто
>>то прогу написал такую.
>
>А ссылочку можно?Рабочий скрипт:
tail -f /var/log/squid/access.log | \
-f ./q | \
perl -e 'use Socket;while (<>) {chomp;my @val=split /\s+/,$_;
@addr=gethostbyaddr(Socket::inet_aton($val[2]),Socket::AF_INET);
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)=localtime("$val[0]");
$sec=0 x (2-length($sec)).$sec;
$min=0 x (2-length($min)).$min;
$hour=0 x (2-length($hour)).$hour;
$val = join(" ", @val);
print ($addr[0]?$addr[0]:$val[2],"\t","$mday/",$mon+1," $hour:$min:$sec","\t",$val[6],"\n");}' ;
>Рабочий скрипт:
>
>tail -f /var/log/squid/access.log | \
>-f ./q | \
> perl -e 'use Socket;while (<>) {chomp;my @val=split /\s+/,$_;
>
>
> @addr=gethostbyaddr(Socket::inet_aton($val[2]),Socket::AF_INET);
>
>
> my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)=localtime("$val[0]");
>
>
> $sec=0 x
>(2-length($sec)).$sec;
>
>
> $min=0 x
>(2-length($min)).$min;
>
>
> $hour=0 x
>(2-length($hour)).$hour;
>
>
> $val =
>join(" ", @val);
>
>
> print ($addr[0]?$addr[0]:$val[2],"\t","$mday/",$mon+1,"
>$hour:$min:$sec","\t",$val[6],"\n");}' ;
Спасиюо всем, заработало
Я Такой софт для себя написал, могу письмом выслать (300 кб)
Просьба обращаться по мылу amuch@liana.com.ua