重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら>

【GOLF me!】初月無料お試し

現在Perlで予約画面を作成しています。

ソースは↓のような感じです。

==============================
#! c:/perl/bin/perl

#DBより取得
@type = ();
@type=('シングル','ツイン');

&display;

#-------------------------------------------------
sub display {
print "Content-type: text/html\n\n";
print <<EOM;
<html>
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<title></title>
</head>
<body>
<form>
<table border="0">
<tr>
<td>タイプ</td>

##Loop Start
<td><input type="checkbox" name="kotsu" value="1"></td>
<td>$type[0]</td>
<td><input type="checkbox" name="kotsu" value="2"></td>
<td>$type[1]</td>
##Loop End

</tr>
<tr>
<td>お名前</td>
<td colspan="4"><input type="text" size="28" name="name">(全角文字)</td>
</tr>
<tr>
<td><input type="submit" id="submit" value=" 送 信 ">   <input type ="reset" value="リセット"></td>
</tr>
</table>
</form>
</body>
</html>
EOM
exit;
}
==============================

HTMLのLoopと記述している部分にDBより取得した値をfor文で記述したいのですが、うまくいきません。
HTML内にPerlの処理を組み込むには、どうすればいいのでしょうか?

A 回答 (1件)

「HTML内にPerlの処理を組み込むには、どうすればいいのでしょうか?」


逆でしょ?
Perlの中にHTMLを埋め込んでいるのですから、forループで回したいときはヒアドキュメントをいったん止めればよいかと。
    • good
    • 0
この回答へのお礼

早々のご回答ありがとうございます。
ご指摘の通りです。意味不明な書き方をしてすいません。
アドバイスの通りでうまくいきました。
ありがとうございます。

お礼日時:2008/04/29 21:31

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!