[ 最初の画面に戻る ]


PerlAccess Ver.2.20について
masa2014/04/30(水) 10:06No.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];
}

Re: PerlAccess Ver.2.20について
飾り職人ひで2014/05/01(木) 09:11No.2879
このメッセージに返信する ホームページ

else {
    $host[1] = $host[2];
}

上記は不要です。
130行目から142行目までを削除するだけで結構です。

Re: PerlAccess Ver.2.20について
masa2014/05/01(木) 11:12No.2880
このメッセージに返信する

はい、解りました。
有り難うございました。



PerlTreeBBS Ver.2.31