このサブルーチン間違っておりませんか？

締切済

質問者：nkmyr
質問日時：2009/07/01 16:19
回答数：2件

以下のサブルーチンを記述したらエラーになります。
どこか間違っておるのでしょうか？
宜しくお願いします。

#-------------------------------------------------

sub head {

print <<"EOM";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>メールフォーム</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
EOM
}

#-------------------------------------------------

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

最新から表示
回答順に表示

No.2

回答者： okmotokun
回答日時：2009/07/02 14:17

考えられるエラーの原因は次の2点ですね。

(1) EOM の前にスペースがある
(2) サブルーチンの呼び出し方が間違っている
　　head();

それと、ヒアドキメントを使うなら、Content-type: text/html\n もその中に入れれば良いのでは、、、
print <<"EOM";
Content-type: text/html\n
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"

- 0
- 件

通報する

No.1

回答者： MOMON12345
回答日時：2009/07/01 16:26

これをブラウザで表示したいのでしょうか？

でしたら最初に
print "Content-type: text/html\n\n";
が必要ですが、他のルーチンで入っていますか？
それであれば問題ないように見えますが、どんなエラーが出るのでしょうか？

この回答への補足

返答をありがとうございます。
「print "Content-type: text/html\n\n";」を付け忘れました。

変更前は以下です。

$html_head = '<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
</head>
<body bccolor=#fafafa color=#222222>
'; # ← この行は消さない

#-------------------------------------------------

ssub head {
print "Content-type: text/html\n\n";
print "$html_head";
}

#-------------------------------------------------

これを下記に変更しました。

sub head {

print "Content-type: text/html\n\n";

print <<"EOM";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"?http://www.w3.org/TR/html4/loose.dtd">?
<html>
<head>
<title>メールフォーム</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
EOM
}

結果「500エラー」が出ます。
一行ずつprintにすればいいと思うかもしれませんが、それも分からないんです…
すみませんが、宜しくお願いします。