利用squidclient清理nginx多台缓存服务器cgi程序
#!/usr/bin/perl use strict;use warnings;
use CGI;
my $req = new CGI;
print $req->header;
print< textarea name = url rows = 5 cols = 60 > < / textarea > < P > < input type = submit > < input type = reset > < / form > HTML my $url = $req->param("url");
$url = ~tr / + //;
$url = ~s / % () / pack("C", hex($1)) / eg;
my @ url = split / \ n /, $url;
foreach (@ url) {
my $purge_url = $_;
if (/ http : \ / \ / (\ S + ?) (? = \ /) /) {
if ($1) {
my $squid_req = system("squidclient -h$1 -p80 -mPURGE $purge_url");
print $squid_req;
}
}
}
页:
[1]