WEB相談室

Webページ作成に関しての何でも掲示板です。

タイトル:重複取得防止処理について

0:[投稿] キミキミ [2005/12/25 01:46 ] [環境:WIN XP perl5]

過去ログ(http://www.ybi.co.jp/koike/qa2500/qa2927.htm)を調べてみましたが、クッキー、JSを使わないでどうにかしたいです。
(掲示板とは違い、検索エンジンのキーワード取得が目的です。)
 具体的には、下記ソースの「『REMOTE_ADDRと$keys』が$logに記録されている先頭と一致すれば記録しない」という処理をさせればいいと思うのですが知識と技術不足で解決できません。

if ($in{'Keyword'} ne '') {
        $max = 100;# 最大ログ保持数
        $host = $ENV{'REMOTE_ADDR'};
        open(IN,"$log") || &Error("Open Error : $log");# ログ読み込み
        @accesslog = <IN>;
        close(IN);
    foreach (@kensaku) {
        if ($keys =~ /$_/i) { last; }
        while ($max < @accesslog) { pop(@accesslog); }
        if ($in{'Keyword'} ne '' && !@MESSAGE) {
            unshift(@accesslog,"<em>$keys</em><>$host<>\n");}#ヒット無し
        else { unshift(@accesslog,"$keys<>$host<>\n");}

        open(OUT,">$log");
        print OUT @accesslog;
        close(OUT);
                }
    }

どこをどのようにすれば良いのか教えていただけ無いでしょうか。
宜しくお願いします。


1:[回答] AC1号 [2006/01/01 13:15 ]

とりあえず出所の分からない変数が多いので、その意味を教えてください。

$in{'Keyword'}
@kensaku
$keys
@MESSAGE

回答(必須): 状態:

お名前(必須):

URL:




[戻る]