Perl コーディング初心者質問コーナー Part27

>>835
それどこにあるの？

CGIスクリプトにブラウザでアクセスすると、永遠に
Content-type: text/html Content-type: text/html
Content-type: text/html Content-type: text/html
・
・
って表示されるんだけど、何ででしょう？
出力部分は
print "Content-type: text/html", "\n\n";
　　for( &load_format($Format) ){
　　　　s/\$cgi_url/$cgi_url/sg;
　　　　s/\$hoge/$hoge/sg;
　　　　print;
　　}
exit;
こんな感じなんですが・・・

load_formatの中身は？

中華、構文エラーにならない？whileﾏﾆなので forあんま使ったこと無いから
良くわかんないんだけど、ごめんね。

sub load_format{
　　my $file = shift; # $fileはHTMLフォーマットファイル
　　open(FMT, $file) || &error('Failed to open $file: $!)');
　　　　$line = join('',<FMT>);
　　close(FMT);
　　return $line;
}
load_formatの中身です。
どうでしょう？何か悪いところありますか？

>>847
うん、構文エラーにはならないですよ。

試してみましたが、上みたいにループはされないけど、もしかして
print "Content-type: text/html", "\n\n";
略
exit;
この外側でループさせてる？　…のならばそれが問題かも。