#!/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
エラー内容
Can't find string terminator "EOL" anywhere before EOF at count.cgi line 20.
1行目にlocalを追加してみたりパーミッションの確認をしてみたりしたのですが、上記のエラーが起こります。
レンタルサーバーはスターサーバーを使っています。
ちなみに、EOLの部分をすべてprint行で書き直してアップロードした場合成功しました。
なぜエラーになるのでしょうか?
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/03/18 04:53
2019/03/19 00:39