エラーになってしまいます。

質問

先日、ファイルの一行だけを読込める？と質問した者です。早速教えて頂いた方法でやってみました。

open(IN,"A.txt");
while ($xx = <IN>) {
　　if ($. == 5) {
　　　　print $xx;
　　}
}
close(IN);

とやりました。
サーバーエラーになるのでまず

open(IN, "A.txt");
while ($xx = <IN>) { print $xx; }
close(IN);

とファイルの読み込みでやってみたのですがそれでもサーバーエラーになってしまいました。

エラーの原因がどこにあるのか、わからなく困っています。考えられるような原因は何でしょうか？
ちなみにcgiのパーミッションは７５５です。
あとtxtファイルをどこに置けばいいのか、よくわからないいのですがそれが原因なのでしょうか？

回答No.1

noname#25358 · ベストアンサー

見た限り文法エラーではないようです。俺のマシン（Ｗｉｎｄｏｗｓ２０００）では動きました。

・プログラムの最後の行に改行が入っているでしょうか。
・全角文字が含まれてしまってないでしょうか。
・ＦＴＰで転送するときの「転送モード」はちゃんとアスキーモードになってるでしょうか。
・プログラムの先頭行に #!/usr/local/bin/perl は入ってるでしょうか。（このパス名はプロバイダによって変わりますが、普通はこれでいいはずです）
・最初に "Content-type: text/html\n\n" を出力してるでしょうか。

　ちなみにこのプログラムだと、「A.txt」の位置はプログラムと同じディレクトリ（フォルダのこと）になります。
　なお、今はまだ関係ありませんが、最初のプログラムの「print $xx;」の次の行に「last;」という命令を記述すると、while がただちに終了するので処理時間の節約になります。

補足

お返事ありがとうございます。
"Content-type: text/html\n\n" の\nが一つ抜けていました・・・。
そこを直したらファイルの読み込みはできました。
でも一行を指定してやるとまたサーバーエラーになってしまいます。

回答No.2

noname#25358

質問文中の上の方のプログラムも、特に文法エラーは見受けられません。
　なので、おそらくそれも、＃１に書いたようなミスがあるんじゃないかと思います。
　確認してみてください。

お礼

確認してみたところ、入力ミスでした。
うまくできました。どうもありがとうございました。