利用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;
    }
  }

}

本文出自 “mcshell學習部落格” 部落格，請務必保留此出處http://mcshell.blog.51cto.com/803455/910822