- ベストアンサー
アクセスカウンタでリロード時のカウントされるのをやめたい！
自分のＰＣでＩＩＳ５．０をインストールして ＣＧＩの作成練習をしています。 簡単なアクセスカウンタを作ったのですが、 どっかのをコピーしただけ。。。 sub counter{ #(読込み） open (IN,"<./count.dat"); $raikyaku = <IN>; close (IN); $raikyaku++; #(書き込み) open (OUT,">./count.dat"); print OUT $raikyaku; close (OUT); } これを、更新ボタンを押した時にカウントされない ようにしたいです。 また、ＢＢＳに埋め込もうと思っているので、 投稿ボタンで再表示された場合も カウントされてほしくありません。
- SEAMOON
- お礼率57% (447/781)
- ホームページ作成ソフト
- 回答数2
- ありがとう数0
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
あるユーザがクリックした情報を、 ・サーバ側のログで保持 ・ユーザのブラウザに保持(cookie使用) して、一定期間中の再アクセス時にカウントアップさせない方法があります。 ここが参考になります。
その他の回答 (1)
- jun2249
- ベストアンサー率30% (67/222)
こんにちは。 クッキーの取得をすればだいじょうぶだと思います。
関連するQ&A
- アクセスカウンタについて
#!/usr/local/bin/perl # カウントファイルの読み込み 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>Perlあくせすかうんたー</title></head> <body> <p>あなたは……$count番目の訪問者です。</p> </body> </html> END 以上のように書きcount.datを作成して同じディレクトリ内においたのですが、カウントが１から増えません。サーバがいけないのか、スプリクトがわるいのかよくわかりません；； ちなみにサーバはlinuxで構築しています。
- ベストアンサー
- Perl
- 初歩的なアクセスカウンタ作成で
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
- ベストアンサー
- CGI
- カウンターで重複カウントの防止について
勉強がてら以下のようなカウンターをつくりたいと思っています。 1 画像つきのカウンタである 2 重複カウンタを防止したい 3 昨日と今日のカウンターも表示させたい で、2でけつまずきました。 何がいけないのでしょうか？ 以下のプログラムだと更新毎にカウンターが回ってしまいます。 ご指摘下さい。よろしくお願い申し上げます。 #!C:\Perl\bin\perl $flg = 0; #IPアドレスの取得と重複カウントの防止============ $ipadd = $ENV{'REMOTE_ADDR'}; #IPアドレスの取得 open (FILE, "<logcount.dat") || die "File Open Err!-logcount.dat\n"; #データをすべて配列logdataに読み込む @logdata = <FILE>; close(FILE); #取得したIPアドレスと履歴のIPアドレスを比較====== for($i=0; $i<=$#logdata; $i++){ if($ipadd eq $logdata[$i]){ #新規のIPデータと過去ログのIPデータが等しかったら $flg = 1; #合致するのは1つのアドレスのみ } } #==================================================================== # $flg = 0 だったら、数をカウント #==================================================================== open(FILE,"<count.dat") || die "File Open Error!-count.dat\n"; #カウントデータの読み込み $count = <FILE>; #変数countにデータを収納 close(FILE); if($flg == 1){ $data = $count; }else{ $data = ++$count; #プラス1をカウント # ログの更新================================== open(FILE, "+<count.dat") || die "File Open Error!\n"; flock(FILE,2); seek(FILE, 0, 0); #.datに上書き保存する為にデータの記位置を調整 print FILE $data; #カウントを記録 flock(FILE,8); close(FILE); # IPアドレスを更新============================= open (FILE, ">>logcount.dat") || die "File Open Err!-logcount.dat\n"; print FILE $ipadd,"\n"; close(FILE); } print $data; #==================================================================== # カウンタの数字に画像を付ける #==================================================================== @count = split(//, $data); foreach $cou(@count){ push(@view, "./img/$cou.gif"); } require "./gifcat.pl"; print "Content-type:image/gif\n\n"; binmode(STDOUT); print &gifcat::gifcat(@view);
- ベストアンサー
- Perl
- @niftyホームページでのアクセスカウンタ（perl）
すごく簡単なアクセスカウンタなのですが実行できません。 ちなみに、perlスクリプトは、count.plというファイルに、 #!/usr/local/bin/perl $countfile="count.dat"; open IN,"$countfile"; $count=<IN>; close IN; $count=$count+1; open OUT,">$countfile"; print OUT $count; close OUT; print $count; html内の記述は、 あなたは、<!--#exec cmd="http://hpcgi3.nifty.com/******/count.pl"-->人目 plファイルを置くディレクトリは間違っていないようです。 perl、@niftyに詳しい方回答お願い致します。
- ベストアンサー
- Perl
- 昨日と今日のカウンタについて ご指摘下さい
昨日と今日のカウンタについて カウンターが1こずつではなく、4つとか5つとかずつ増えてしまいます。ですが、html内の <p>本日の数は<img src="./count.cgi?today">です</p> <p>昨日の数は<img src="./count.cgi?yeaday">です</p> を削除すると、ちゃんと1つずつカウントしていきます。（count.datの本日のカウント数もちゃんと1こずつ増えるのを確認しました。） プログラムの何処が間違っているのでしょうか？アドバイスをお願い申し上げます。 ＜＜count.cgi＞＞ #!C:\Perl\bin\perl # 昨日と今日のカウントの取得 $ENV{'TZ'} = "JST-9"; $mday = (localtime(time))[3]; open (FILE, "<logday.dat") || die "File Open Err!-logday.dat\n"; $logday = <FILE>; close(FILE); ($day, $yesday) = split(/:/, $logday); #それぞれ、今日の日付、昨日のカウント数に分ける open(FILE,"<count.dat") || die "File Open Error!-count.dat\n"; $count = <FILE>; #変数countにデータを収納 close(FILE); ($count, $today) = split(/:/, $count); #それぞれ、トータルカウント数、今日の日付のカウント数に分ける # 数をカウント if($day == $mday){ #同日だったなら、トータルと本日のカウントだけ取る。 &totalcount(); }else{ #違っていたら、本日のカウント数を昨日へ、本日のカウントを0に、日にちを修正 $yesday = $today; $today = 0; open (FILE, ">count.dat") || die "File Open Err!-logday.dat\n"; flock(FILE,2); print FILE "$count\:$today"; flock(FILE,8); close(FILE); open (FILE, ">logday.dat") || die "File Open Err!-logday.dat\n"; flock(FILE,2); print FILE "$mday\:$yesday"; flock(FILE,8); close(FILE); &totalcount(); #その後カウントをとる } # 引数受取 $mode = $ENV{'QUERY_STRING'}; $mode =~ s/\W//g; require "./gifcat.pl"; #画像表示のif文＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ if($mode eq "total"){ &total(); }elsif($mode eq "today"){ &today(); }else{ &yestaday();} exit; # ログの更新================================ sub totalcount{ open(FILE, "+<count.dat") || die "File Open Error!\n"; flock(FILE,2); $count++; #トータルカウント数にプラス1 $today++; #同じく本日のカウント数にもプラス1 seek(FILE, 0, 0); print FILE "$count\:$today"; flock(FILE,8); close(FILE); } # カウンタの数字に画像を付ける sub total{ #トータルカウンタ＝＝＝＝＝＝＝＝＝＝＝＝＝ @countdata = split(//, $count); foreach $cou(@countdata){ push(@view, "./img-t/$cou.gif"); } #画像の出力＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ print "Content-type:image/gif\n\n"; binmode(STDOUT); print &gifcat::gifcat(@view); } sub today{ #今日のカウンタ＝＝＝＝＝＝＝＝＝＝＝＝＝ @countdatadt = split(//, $today); foreach $coudt(@countdatadt){ push(@viewdt, "./img-d/$coudt.gif"); } #画像の出力＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ print "Content-type:image/gif\n\n"; binmode(STDOUT); print &gifcat::gifcat(@viewdt); } sub yestaday{ #今日のカウンタ＝＝＝＝＝＝＝＝＝＝＝＝＝ @countdatady = split(//, $yesday); foreach $coudy(@countdatady){ push(@viewdy, "./img-d/$coudy.gif"); } #画像の出力＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ print "Content-type:image/gif\n\n"; binmode(STDOUT); print &gifcat::gifcat(@viewdy); } ＜＜count.html＞＞ <html> <head> <title>カウンタ</title> </head> <body> <p>トータルカウント数は<img src="./count.cgi?total">です</p> <p>本日の数は<img src="./count.cgi?today">です</p> <p>昨日の数は<img src="./count.cgi?yeaday">です</p> </body> </html> ＜＜count.dat＞＞ トータル数：本日のカウント数 ＜＜logday.dat＞＞ 今日の日：昨日のカウント数
- ベストアンサー
- Perl
- カウンタのcgiについて教えてください。
カウンタのcgiについて教えてください。 open(File,"+<count.dat")or die("エラー"); eval｛flock(File,2);｝; $count=<File>; seek(File,0,0); print File++$count; close(File); print<<END; Content-type:text/html <html> <head> <title>タイトル</title></head> <body>$count人目の訪問者です </body> </html> みたいな感じでカウンタのcgiを作りました。 (Perl・Apache) (携帯からなので、見にくい感じはご容赦ください) これを別htmlファイルにiframeで組み込みました。 今は、単純にファイルが開かれたら＋１なので、Ｆ５などで更新してもカウントされます。 これを同一IPもしくはコンピュータ名からの連続更新はカウントしないようにするのはどのように書き加えればいいのでしょうか？ また、総カウント数だけでなく、昨日のカウント数、今日のカウント数、今月、先月などで集計するためにはどのようにすればよいのでしょうか？ わかりにくいかと思いますが、お願いいたします。 m(__)m
- ベストアンサー
- CGI
- クリックカウンタで隠しページにジャンプさせたい
クリックカウンタについて教えて下さい。 (1)ある特定のカウント（例えば10）になったら隠しページに飛ばしたい (2)その後は何度クリックしてもカウント数はかわらない（動作させない） (3)その後カウントをクリアして再度クリックカウント出来るようにしたい (1)はなんとか出来ました。ですが、その後の動作が上手く出来ません。どなた様かアドバイスをお願い申し上げます。 ＜＜click.cgi＞＞ #!C:\Perl\bin\perl #=================================================== # 各種設定 #=================================================== $lockfile = "./lock"; $jumpurl = "./blog.html"; #ジャンプさせたい隠しページのURL $hikaku = 9; #日時の取得------------------------------ @youbi = ('日', '月', '火', '水', '木', '金', '土'); ($sec,$min,$hour,$mday,$mon,$year,$week,$yday,$sammer) = localtime; $year += 1900; $mon += 1; $yday = ""; $sammer = ""; $now = "$year年$mon月$mday日($youbi[$week]) $hour：$min－$sec秒\n"; #=================================================== # カウントアップ #=================================================== $url = $ENV{'QUERY_STRING'}; &lock; #ログファイルからデータの読み込み---------- open (IN,"<cntdata.dat") || die "Open Error!\n"; $cnt = <IN>; close IN; if($cnt >= $hikaku){ open (FILE, ">text.dat") || die "Open Error!\n"; print FILE "$now<br />10クリックを超えました。ご利用ありがとうございました。"; close FILE; open (OUT,">cntdata.dat") || die "Open Error!\n"; $cnt = 1; print OUT $cnt; close OUT; print "Location: $jumpurl\n\n"; exit; } #記録の更新-------------------------------- $cnt++; #カウントアップ $count = sprintf("%04d", $cnt); open (OUT,">cntdata.dat") || die "Open Error!\n"; print OUT $count; close OUT; &unlock; print "Location: $url\n\n"; #元のページにジャンプさせる exit; #=================================================== # エラーと排他処理サブルーチン #=================================================== sub lock { $retry = 3; if (-e $lockfile) { $locktime = (stat($lockfile))[9]; if ($locktime < time - 60) {&unlock;} } while (!mkdir($lockfile, 0755)) { if (--$retry < 0) {&error;} sleep(1); } } sub unlock {rmdir($lockfile);} ＜＜cntdata.dat＞＞ クリック数 ＜＜text.dat＞＞ 日時とありがとうメッセージ ＜＜index.shtml＞＞ <html> <head> <title>サンプル</title> </head> <body> <a href="./click.cgi?./index.shtml">クリック</a> <p>現在のクリック数：<!--#include file="./cntdata.dat"--></p> <p><!--#include file="./text.dat"--></p> </body> </html> 10クリック超えて、カウンタの数字が1に戻るのですが、その後またクリックすると動きません。なので、(3)にしたい場合には何をすればよいのでしょか。また(3)が無理なら(2)のようにクリックしてもcgiを動作しないようにしたいです。
- ベストアンサー
- Perl
- lockについて
$file = 'file.log'; ------------------------------------ sub a{ &lock;ロック 1: open(IN, $file); # ファイルを開く 2: $count = <IN>; # カウンターを読み出す 3: close(IN); # ファイルを閉じる 4: $count++; # カウンターをひとつ増やす 5: open(OUT, "> $file"); # ファイルを開く 6: print OUT "$count\n"; # ファイルにカウンタを書き込む 7: close(OUT); # ファイルを閉じる 8: print "$count\n"; &unlock;ロック解除 } ------------------------------------ sub b{ 1: open(IN, $file); # ファイルを開く 2: $count = <IN>; # カウンターを読み出す 3: close(IN); # ファイルを閉じる } ------------------------------------ サブルーチンaではロック処理を行っていますが、 サブルーチンbでは書き込む処理がないためロック処理を行っていません。 読み込むファイルは同じでなのですが、 サブルーチンbにもロック処理を入れた方がいいのでしょうか？
- ベストアンサー
- Perl
- perl CGIが開くと勝手に処理してしまうのを防ぎたい
BBSを作成中で、そのBBSに記事ナンバーをつけようと奮闘中です。そこで質問があります。Flashを使って作製していますが、CGIの質問は非常に稚拙だと思いますので、お助けください。 記事のナンバーカウントの値がアップする仕組みをCGIファイルに 組み込んだのですが、書き込みボタンが押されていないのに、 最初にページを開いた瞬間に、カウントがアップしてしまう状態になってしまっています。それ以後は、ページを閉じない限りは、書き込みボタンが押されるたびにカウントの値は１ずつきちんと増えていきます。 要するに、ページを開いたときにカウントが１増えるのを防ぎたいのです。 ちょっとうまく伝えにくいのですが、 以下のような仕組みになります。 count.datファイルの中の数値が一つずつあがっていくようになっています。 #----- ファイルを読み込む $countfile = "./count.dat"; #-----カウントの値の読み込み open(COM,"$countfile"); $cnt=<COM>; close(COM); #-----カウントの値に１プラスする $cnt++; open(COM,">$countfile"); print COM $cnt; close(COM); と、以上のような単純な仕組みなのですが、 最後の「カウントの値に１プラスする」という処理が勝手に実行されてしまいます。 CGIファイルの一番下にカウントの値を１プラスする処理を実行するスクリプトを置いたのですが、 最初に実行されてしまうようです。 宜しくお願い致します。
- ベストアンサー
- CGI
- どうしてもインターナルサーバーエラーになります
#!/usr/bin/perl # アクセスカウンタ print "Content-type: text/html; charset=Shift_JIS\n\n"; # カウントファイルから読み込み open(IN, "counter.txt"); $count = <IN>; close(IN); # カウント増加 $count++; # カウントファイルに書き込み open(OUT, "> counter.txt"); print OUT $count; close(OUT); print <<EOL; <html> <body> <p>あなたは $count 人目のお客様です</p> </body> </html> EOL ------------------------------------------- ↑は、 http://ponk.jp/perl_bbs/index.php?page=2 このサイトからの引用なのですが、どう頑張っても このアクセスカウンターCGIにアクセスしてもインターナルサーバーエラーになってしまい助言お願いにきました。。 ちなみにこのアクセスカウンター編の前の「ブラウザに文字列を表示する」のところでは、しっかりCGIをサーバーにアップロードして ブラウザに表示させることができましたので、なぜアクセスカウンター は表示してくれないのか途方にくれています。 ・パスの確認 ・属性の確認 ・アスキーモードなどの送信形式の確認 等など、あやしいところは全てチェックしてみましたがダメでした・・・。 ブラウザに文字列を表示させるだけの事はできたのになぜ、アクセスカウンタは表示させれないのか全くわかりません。 どなたかわかる方いらっしゃいましたらすいませんがどうか教えてください。よろしくおねがいします。
- 締切済み
- Perl
