テキストカウンターのエラー　詳しい方教えて！！

2023/08/03 15:35

このQ&Aのポイント

テキストカウンターのエラーについて詳しい方に教えてください！
ローカルのアパッチで試してもできないし、webサーバーでは500エラーが出ます。
ソースのミスを指摘されましたが、自分ではエラーが出てしまいます。エラーを直す方法やパーミッションの設定方法についても教えてください。

ベストアンサー

テキストカウンターのエラー　詳しい方教えて！！

2006/10/29 10:50

ttp://up.kabubu.net/cgi/img2/15270.zip これがソースですフレーム分割してテキストカウンターを表示させるやつです一週間でマスターするCGI for　Macintoshについてきたものです本通りにやってもできません　ローカルのアパッチでも試しましたが webサーバーだと500エラーがでました本にはサポートページもありませんでした一応ソースのせます #!/usr/bin/perl open(COUNT, "+<countdata") || die "File 'countdata' Open Error."; flock(COUNT,2); $counter = <COUNT>; $counter_new = $counter + 1; seek(COUNT, 0, 0); print COUNT "$counter_new?n"; close(COUNT); flock(COUNT,8); print "Content-type: text/html?n?n"; print << "END_OF_HTML"; <HTML> <BODY> <CENTER> ようこそ あなたは $counter_new 人目のお客様です </CENTER> </BODY> </HTML> END_OF_HTML ソースミスを指摘してもらいましたが　自分でやるとエラーがでるのでどなたかエラーがでないようにソースを直して下さいあとパーミッションも御願いします本にのってた通りのパーミッションではファイル　countdataは606 counter.cgiは705 main.htmlは404 index.htmlは404 briage.gifは404 となっております　ディレクトリの名前はcounterですパーミッションは755 ソースエラーを指摘されましたが難しいのでどなたか動作確認できてから書き直して載せて下さい御願いします

noname#35759

CGI
回答数2
ありがとう数1

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

akuhijrwq
ベストアンサー率35% (381/1064)

2006/10/29 10:52 回答No.1

http://virus.okwave.jp/kotaeru.php3?q=2503235

その他の回答 (1)

miharahiromi
ベストアンサー率19% (32/168)

2006/10/29 13:59 回答No.2

＞エラーがでないようにソースを直して下さいエラーなんてでません。そのzipファイル内cgiを何も手を加える必要もなく、「ようこそあなたは ○ 人目のお客様です」とカウンター表示できます。＞あとパーミッションも御願いしますあなた頭は大丈夫ですか？他人のサーバのパーミッションを第三者が知るはずないでしょ。とりあえず本の通りでいいんじゃないの。こんな簡単なcgiをアップロードすらできないようならcgiに手をつけるのはまだまだのようですね。

関連するQ&A

テキストカウンターができない詳しい人教えて！
#!/usr/bin/perl # 読み書きモードでファイルオープン # オープンできないときは強制終了 open(COUNT, "+<countdata") || die "File 'countdata' Open Error."; # ファイルをロックする #flock(COUNT,2); # ファイルから一行読みこむ $counter = <COUNT>; # カウントアップ $counter_new = $counter + 1; # ファイルポインタを先頭に戻す seek(COUNT, 0, 0); # ファイルに出力＝書き込み print COUNT "$counter_new?n"; # ファイルクローズ close(COUNT); # ファイルロックを解除する #flock(COUNT,8); # -------　出力はここから　------- # print "Content-type: text/html?n?n"; print << "END_OF_HTML"; <HTML> <BODY> <CENTER> ようこそ あなたは $counter_new 人目のお客様です </CENTER> </BODY> </HTML> END_OF_HTML をcounter.cgiに保存してcountdataに0と打ち込んでwebサーバーにアップしましたが500エラーで見れません CGIの本通りに行いましたができませんサポートページもなく困っています　ソースミスなどここが違うなどあったら教えて下さいあとパーミッションなども御願いします
- ベストアンサー
- CGI
flockが使えない場合のスクリプトを教えて下さい
こんにちわ。私はwindows meなのですがflockが使えないようなのでその場合はどのようなスクリプトで表現したらよいのか方法があったら教えて下さい。このflockの部分に代わるものを教えて下さい、又他の方法があればアドバイス下さい。宜しくお願いします。 open(COUNT,"+<countdata.txt") || die "File'countdata.txt'Open Error\n"; #flock(COUNT,2); $counter=<COUNT>; $counter_new=$counter+1; print"$counter_new\n"; seek(COUNT,0,0); print COUNT"$counter_new\n"; close(COUNT); #flock(COUNT,8);
- ベストアンサー
- 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こずつではなく、4つとか5つとかずつ増えてしまいます。ですが、html内の 本日の数は<img src="./count.cgi?today">です 昨日の数は<img src="./count.cgi?yeaday">です を削除すると、ちゃんと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> トータルカウント数は<img src="./count.cgi?total">です 本日の数は<img src="./count.cgi?today">です 昨日の数は<img src="./count.cgi?yeaday">です </body> </html> ＜＜count.dat＞＞トータル数：本日のカウント数＜＜logday.dat＞＞今日の日：昨日のカウント数
- ベストアンサー
- Perl
以下のような記述では　エラーになります？
cgi初心者です #!/usr/bin/perl $kinoko='../kino.txt'; open DATA "+<$kinoko"; $mokk=<DATA>; $mokk++; print DATA $mokk; close DATA; print <<END_HTML; <html> <body> $mokkです </body> </html> END_HTML exit; どこに問題があると考えられるでしょうか
- ベストアンサー
- 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
アクセスカウンタについて
#!/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> あなたは……$count番目の訪問者です。 </body> </html> END 以上のように書きcount.datを作成して同じディレクトリ内においたのですが、カウントが１から増えません。サーバがいけないのか、スプリクトがわるいのかよくわかりません；；ちなみにサーバはlinuxで構築しています。
- ベストアンサー
- Perl
SSIの実行
アクセスカウンタ作成についての質問です。あるプロバイダが提供している領域を使い、 public_htmlフォルダ直下に count.cgi、count.shtmlというファイルを置き、 count.shtmlからcount.cgiを呼び出して、自前のアクセスカウンタを実行しようとしましたが、アクセス数の部分が表示されず困っています。 ("カウント数は"の後が空白で何も表示されません。エラー表示等はありません) チェック方法項目等ありましたらお教え頂けませんでしょうか。よろしくお願い致します。 ※public_htmlフォルダ及び、対象2ファイルには　それぞれ755のパーミッションを設定しています。以下、html文です。 ------------------------------ <html> <head><title>アクセスカウンタ</title></head> <body> カウント数は  </body> </html> 以下、CGIプログラムです。 ------------------------------ #! /usr/local/bin/perl $filename = "count.txt"; if (!open ( FP, "$filename")) { $no = 0; } else { $no = <FP>; close(FP); } $no++; print "$no" if (!open ( FP, ">$filename")) { print "ファイル $filename がオープンできませんでした ($!)\n"; } else { print FP $no; close(FP); }
- 締切済み
- CGI
エラー表示の意味を解説してください
ＣＧＩ初心者です。自分の端末でサーバ設定し、テスト中の段階です。ｈｔｍｌファイルはブラウザからきちんと表示されました。が、ＣＧＩファイルを表示させようとすると、 CGI エラー - Content-Type ヘッダが正しくありません。 CGI 出力メッセージ: Can't open perl script "C:\www\hiro\ISO": No such file or directory とエラーがでます。ちなみに、スクリプトには #!/usr/bin/perl print"Content-type: text/html\n\n"; print"<HTML>\n"; print"<HEAD>\n"; print"<TITLE>CGI No1</TITLE>\n"; print"</HEAD>"; print"<BODY>\n"; print"CGIプログラムＮｏ．１，テスト成功!\n"; print"</BODY>\n"; print"</HEAD>\n"; と記述しました。なにがいけないのか教えてください。
- ベストアンサー
- CGI
TOK2で基礎的なCGIをUPしたが動かない。
TOK2（http://tok2.com/）に「posttest2.cgi」をUPしました。ファイルマネージャで確認すると、CGIのパーミッションは700、 CGIを設置するディレクトリーのパーミッションは701です。以下 posttest2.cgiです。 -------------------START----------------------- #!/usr/bin/perl print "Content-Type:text/html\n\n"; print "<html>\n"; print "<head><title>テスト</title></head>\n"; print "<body>\n"; print "TEST"; print "</body></html>\n"; ------------------- END ----------------------- IEでこのCGIを開くと「500 Internal Server Error 」になってしまいます。。なにが悪いのでしょう？
- ベストアンサー
- CGI