squid清理缓存 [shell perl php]

缓存的清理脚本是从洒哥那里搞到的

只是根据洒哥的脚本简单的延伸了下，以前那个分享的脚本可以去除域名和特定的文件格式，然后我就想了能不能去除一个网址的所有jpg    或者是 www.92hezu.com/123/bbb/ 这样的。  原来多加上几个后缀，用grep过滤就ok了

qingli.sh      www.xiuxiukan.com

qingli.sh      jpg

qingli.sh       xiuxiukan.com 123  bbb  jpg

 

#!/bin/sh
squidcache_path="/squidcache"
squidclient_path="/home/local/squid/bin/squidclient"
#grep -a -r $1 $squidcache_path/* | grep 'http:' | awk -F 'http: '{print "http:"$2;}' | awk -F\' '{print $1}' > cache.txt
if [[ "$1" == "swf" || "$1" == "png" || "$1" == "jpg" || "$1" == "ico" || "$1" == "gif" || "$1" == "css" || "$1" == "js" || "$1" == "html" || "$1" == "shtml" || "$1" == "htm"   ]]; then
grep -a -r .$1 $squidcache_path/* | strings | grep "http:" | awk -F 'http:' '{print "http:"$2;}' | awk -F\' '{print $1}' | grep "$1$" | uniq > cache.txt
else
grep -a -r $1 $squidcache_path/* | strings | grep "http:" |grep $2$ |grep $3$|grep $4$|grep $5$ |grep $6$| awk -F 'http:' '{print "http:"$2;}' | awk -F\' '{print $1}' | uniq > cache.txt
fi
sed -i "s/\";$//g" cache.txt
cat cache.txt | while read LINE
do
$squidclient_path -p 80 -m PURGE $LINE
done

 

还有一个是web清理缓存的，这个很好用的~！！！！

http://rfyiamcool.googlecode.com/files/squid-nginx-purge_cache_v1.2.3.rar

要放在php的环境运行的！

 

这个是perl清理squid缓存！！！！

#! /bin/env perl
use File::Find;
use Net::HTTP;
our @src_file_dir = ("/usr/local/squid/cache");
our $grp_file = $ARGV[0];
find(\&wanted, @src_file_dir);
sub wanted {
    !-d && search($File::Find::name);
}
sub search {
    my $filename = shift;
    open FH,"strings $filename |";
    while(<FH>) {
        chomp;
        \&purge_cache($_) if (/$grp_file/i and /^http/);
    }
}
sub purge_cache {
    my $url = shift;
    my $conn = Net::HTTP->new(Host => "127.0.0.1") or die $@;
    $conn->write_request(PURGE => $url);
    my($code, $mess, %h) = $conn->read_response_headers;
    print $url,":",$code,"\n";
}