比较简单，一行命令实现了。

awk '{print $7}'  /data/var/logs/access.log |grep '^http://' |sort |uniq -c |sort -nr |head -10

去掉sort 的-n这个参数后得到的结果可以作为列表传递给Net::Squid::Purge这个Perl模块来清除Squid它们的缓存。

     本文转自xiaoyuwang 51CTO博客，原文链接：http://blog.51cto.com/wangxiaoyu/527283，如需转载请自行联系原作者