《Perl関連》助けてください。KentWebさんが配布しているアクセスレポート（http://www.kent-web.com/data/report.html）を複数のユーザーで使えるようにしたいのですがなかなかうまくいきません。

■対策案１

$logfile = ’./￥$id￥replog.cgi’;

というのは、おそらく$idディレクトリごとにファイルを作成する

という理解でよろしいでしょうか。

としますと存在しない場合は、作成する必要があります。

そこで、

「$logfile = ’./￥$id￥replog.cgi’;」を

「# $logfile = ’./￥$id￥replog.cgi’;」とコメントにします。

次に、

「# ログ読み込み

open(IN,”$logfile”) || &error(”Open Error : $logfile”);」を

「# open(IN,”$logfile”) || &error(”Open Error : $logfile”);」とコメントにし、以下を加えます。

#ディレクトリ存在チェック・作成

if (-d $id){

mkdir $id, 0777 || &error(”ディレクトリ作成エラー”);

}

#ファイル存在チェック・作成

if (-e ”$id/$logfile”){

open(INOUT,”$id/$logfile”) || &error(”オープンエラー”);

}else {

open(INOUT,”+>$id/$logfile”) || &error(”ファイルリ作成エラー”);

}

そして、

「# 更新

open(OUT,”>$logfile”) || &error(”Write Error: $logfile”);」を

「# open(OUT,”>$logfile”) || &error(”Write Error: $logfile”);」とコメントにし、以下を加えます。

open(OUT,”>$id/$logfile”) || &error(”Write Error: $id/$logfile”);

■対策案2

$id = $ENV{’QUERY_STRING’};

の$idは、ちゃんと文字列がとれていますでしょうか？

もし取れていなければ、こうしては、いかがでしょうか？

&decode;

$id=$in{’ID’};

#-------------------------------------------------

# デコード処理

#-------------------------------------------------

sub decode {

local($buf, $key, $val);

if ($ENV{’REQUEST_METHOD’} eq ”POST”) {

read(STDIN, $buf, $ENV{’CONTENT_LENGTH’});

} else {

$buf = $ENV{’QUERY_STRING’};

}

foreach ( split(/&/, $buf) ) {

($key, $val) = split(/=/);

$val =~ tr/+/ /;

$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(”H2”, $1)/eg;

# 不要コード削除

$val =~ s/&/&/g;

$val =~ s/”/"/g;

$val =~ s/</</g;

$val =~ s/>/>/g;

$val =~ s/￥r|￥n|￥0//g;

$in{$key} = $val;

}

}

URLはダミーです。

そのスクリプトのコードがないので憶測になっちゃいますが、

$logfile = ’./?$id?replog.cgi’;

が間違ってるんじゃないかなと。

$id を $logfile に対して展開したい場合は、

$logfile = $id . ”replog.cgi”;

あるいは

$logfile = ”${id}replog.cgi”;

ですね。シングルクオートだと変数が展開されないので、文字列連結か、ダブルクオートで ${id} と変数の境界を明示するかどっちかです。

それ以外の部分でだめしたらごめんなさい。