※ ChatGPTを利用し、要約された質問です（原文：初歩的なアクセスカウンタ作成で）
初歩的なアクセスカウンタ作成でperlを学びはじめて間もない初心者です
このQ&Aのポイント
初心者がperlを学び始め、アクセスカウンタを作成していますが、問題が発生しています。
アクセスカウンタが加算されず、1のままになっています。
どの部分をチェックすれば良いかわからないため、アドバイスや教授を求めています。
perlを学びはじめて間もない初心者です。よろしくお願いします。
書籍を参考にしながらperlを学んでいます。書籍の中のアクセスカウンタを作ってみるという部分で、下記のスクリプトを書き試してみたのですが、アクセスカウンタが加算されません。1のままとなっています。
何が問題であるのか全く見当がつかないのですが、まず何からチェックして行けばよいのでしょうか？
アドバイスやご教授をいただけたらと思います。
よろしくお願いします。
それから環境は、http://www.futomi.com/lecture/macosx/index.html を元にMacOS X での Apache サーバーでのローカルでテスト環境 で試し低ます。
# カウントファイルの読み込み
open(IN, "<./count.dat");
$count = <IN>;
close(IN);
++$count;
# カウントファイルの書き込み
open(OUT, ">./count.dat");
print OUT $count;
close(OUT);
# サーバー出力
print <<END;
Content-type: text/html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head><title>あくせすかうんたー</title></head>
<body>
<p>あなたは……$count番目の訪問者です。</p>
</body>
</html>
END
お礼
daibutsuyoさん、書き込みありがとうございます。 .datファイルのパーミッション設定の問題だったのですね。無事問題を解決することが出来ました。（あ"～～何時間も自力でいろいろ試しては失敗ばかりで疲れました。。。） ロック処理などは使っている書籍の次項でちょうどでてくるので、これからやってみるつもりです。 とても助かりました。 ありがとうございました。