質問: ; close(f); $count++; open(f, ">$data"); print f "$count"; close(f); print "content-type:text/html\n\n"; print "\n"; print "ポイント $count\n"; print "このページに共感した人は、好きなだけここを押してください。"; print "\n";
回答: まず print << 'end'; cache-control: no-cache\n pragma: no-cache\n location: count.html\n\n end の部分ですが、改行は \n を使わないでそのまま改行してください。 例 print << 'end'; cache-control: no-cache pragma: no-cache location: count.html end それと日本語の扱いには注意が必要です。 2バイト文字の場合、どちらかのバイトが " 等の文字と同じだったりすると、perlはそれを " と解釈してしまいます。 文字の前後に\を置いたりすると解消されます。 解消法の例 ×print"表示"; ↓ ○print"表\示"; 補足 #!/usr/local/bin/perl -w とすると文法エラーなんかに警告を出してくれるようになります。 蛇足 が不明です。 meta要素の属性に charset ってありましたっけ?・・・ 例