利用squidclient清理nginx多臺緩存服務器cgi程序

此cgi腳本用perl寫的，用於清理多臺nginx緩存服務器。

使用方法：將此腳本放在能夠執行cgi程序的web服務器上。

打開瀏覽器訪問此腳本，輸入需要清理緩存的CSS或者是圖片地址，如果要清理多個緩存，請一行輸入一個地址即可。

code：

#!/usr/bin/perl
use strict;
use warnings;
use CGI;

my $req = new CGI;
print $req->header;
print << HTML;
< form method = "post" action = "post.cgi" name = "form" > < 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 / % ([a - fA - F0 - 9][a - fA - F0 - 9]) / 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;
    }
  }

}