#ホスト名による判別 if ($rhost =~ /(proxy|prox|squid|cache|www|dns|ns|gateway|gatekeeper|gate|^gw|^fw|firewall)/i){ $rhost =~ s|$&|<FONT color=\"$proxy_color\"><b>$&</b></FONT>|; $prx=$prx+1; push(@proxy_detect,"PROXY特有のドメイン名($&)が検出されました。"); }