perlで作った掲示板、エラーが出てしまう。

質問

課題でperlの掲示板を作成したのですが、動作せず困っています。間違いを教えてください。

#!C:/Perl/bin/perl

require 'html_data.pl';
require 'cgi-lib.pl';
require 'jcode.pl'

if($ENV{'REQUEST_METHOD'}eq"POST"){

&ReadParse(*answer);

$name=$answer{'name'};
$mail=$answer{'mail'};
$title=$answer{'title'};
$text=$answer{'text'};

$name=~s/,/，/g;
$name=~s/&/&/g;
&name=~s/"/"/g;
$name=~s/<</g;
$name=~s/>/>/g;

$mail=~s/,/，/g;
$mail=~s/&/&/g;
&mail=~s/"/"/g;
$mail=~s/<</g;
$mail=~s/>/>/g;

$title=~s/,/，/g;
$title=~s/&/&/g;
&title=~s/"/"/g;
$title=~s/<</g;
$title=~s/>/>/g;

$text=~s/,/，/g;
$text=~s/&/&/g;
&text=~s/"/"/g;
$text=~s/<</g;
$text=~s/>/>/g;

$data="$name,$mail,$title,$text";

&jcode'convert(*data,'sjis');

if($name ne""&& $title ne""&& $text ne""){

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time());

$mon=$mon+1;

@youbi=('日','月','火','水','木','金','土');

$time="$mon月$mday日$youbi[$wday]曜日$hour時$min分";

$all_data="$time,$data\n";

open(ANSWER,"<answer.dat");

@all=<ANSWER>;

close(ANSWER);

unshift(@all,$all_data);

open(ANSWER,">answer.dat");

flock(ANSWER,2);

print ANSWER @all;

flock(ANSWER,8)

close(ANSWER);

}

}

&form;

open(ANSWER,"<answer.dat");
@all=<ANSWER>;

foreach(@all){

($time,$name,$mail,$title,$text)=split(/,/,$_);

&toukou;

}

close(ANSWER);

&footer;

exit;

回答No.1

steel_gray · ベストアンサー

syntax error at *** line 7, near "){"
syntax error at *** line 74, near ")

とりあえず、下記を２行目に以下を入れておくといいでしょう。（参考URL）
use CGI::Carp qw(fatalsToBrowser);

参考URL：

http://allabout.co.jp/career/cgiperl/closeup/CU20040209A/