PerlAccess Ver.2.20について masa |
2014/04/30(水) 10:06 No.2878 |


解析結果を、全て、ホスト名が、出る様に、伝言板を参考に、 下記の様にしましたが、これで良いのでしょうか? 宜しくお願い致します。 perlaccess.cgi 130行目から142行目までを、 [修正前] elsif ($log[1] eq "") { @addr = split(/\./,$log[2]); $log[1] = join('.',@addr[0..$#addr-1],'xx'); } else { @host = split(/\./,$log[1]); if ($#host == 2) { $log[1] = "$host[$#host-1]\.$host[$#host]"; } else { $log[1] = "$host[$#host-2]\.$host[$#host-1]\.$host[$#host]"; } }
[修正後] else { $host[1] = $host[2]; }
|
|