!/bin/sh
tail -f /usr/local/squid/logs/access.log | perl -e 'use Socket;use Term::ANSIC
olor;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
]");
$min=0 x (2-length($min)).$min;
$hour=0 x (2-length($hour)).$hour;
$val = join(" ", @val);
print color ("reset"), ("IP:", $addr[0]?$addr[0]:$val[2],"\tUser:"
, $val[7], "\tResult:", $val[3], "\n", "Size:", $val[1], " Byte\t", "$hour:$min"
, "\t", $val[6], "\n");
print color ("red"), ("___________________________________________
_____________________________________", "\n")}' ;
такая еще есть./