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;
お礼
ありがとうございます。できました！ 最初、jcode.plを なぜか大文字のファイル名にしたりディレクトリ構造が 違っちゃったりして、直すまで３時間くらいかかりました。(^^;) しかし、ともかく、おかげさまで、一応のものですが 設置できました。 本当にどうもありがとうございました。m(__)m