#!/usr/local/bin/perl
open (OUT, "fairu.txt");
print OUT "こんにちは";
close (OUT);
exit;
#!/usr/local/bin/perl open (OUT, ">fairu.txt") or die "Can't open file"; print OUT "こんにちは"; close (OUT) or die "Can't close file"; exit;
標準出力に何も出していないからだと思います。
exit する前に、何かしらの応答を返しましょう。
例えば
print "Content-Type: text/html\n\nOK";
おおっ、試してみます。
CGIですか?
標準出力に何も出力していないからブラウザから見ると500エラーになっているのでは。
最後に
print "Content-Type: text/plain\n\n";
print "ok";
とでも追加しておいてはいかがでしょう。
なるほど。
CGI::Carpを使用して、もう少し詳しい情報を収集してみてはいかがでしょうか。
use CGI::Carp qw(fatalsToBrowser);
リンク先有用でした。
うーん、それでも500エラーになってしまいます。他の既成のCGIはちゃんと動くのですが。