EODの使用方法

解決済

質問者：mizumaki22
質問日時：2005/11/11 23:10
回答数：2件

ゼミでperlの勉強をしているものです。それで今回プログラムを作ることになったのですが

syntax error at ./speak.cgi line 5, near "print"

というエラーがでて実行することができません。
5行目はEOCを利用したプログラムが書かれたところなのでたぶん、EOCの使い方に問題があると思いいろいろ調べましたが解決できませんでした。プログラムの一部を掲載します。

#!/usr/bin/perl
require 'cgi-lib.pl';
&ReadParse

print <<"EOD1";
Content-type:text/html
<html><head></head><body>
<h2>My BBS</h2>
<form method="post" action="speak.cgi">
<b>新規発言</b><br>
<table>
<tr><td>タイトル</td><td><input type="text" size=40 name="title"></td></tr>
<tr><td>E-mali</td><td><input type="text" size=40 name="email"></td></tr>
<tr><td>内容</td><td><textarea cols=40 rows=3 name="cont"></textarea><br></td></tr>
<tr><td></td><td><input type="submit" value="発言する">
<input type="buttone" value="最新表示" onclick="javaScript:location.href='speak.cgi'"><td></tr>
</table>
</form>
EOD1

このエラーを消す方法を教えて下さい。お願いします。

ちなみに掲載のプログラムは掲示板のフォームです。