Perl BBS 掲示板 改行処理
改行処理について教えてください。
今まで書き込み処理で
unshift @DATA, "$tm,$FORM{'name'},$FORM{'title'},$FORM{'text'}\n";
としていたのですが、これを
use CGI;
my $form = new CGI;
my $NAME = $form->param('name');
my $TITLE = $form->param('title');
my $TEXT = $form->param('text');
unshift(@DATA,"$tm,$NAME,$TITLE,$TEXT\n");
に変更しました。
すると
sub loadFormdata
が聞かなくなり、
改行処理他が対応しなくなってしまいました、
この場合、 loadFormdataの部分のどこを変えればよいでしょうか?
|------書き込み処理------|
sub printdata{
use CGI;
my $form = new CGI;
&loadFormdata();
open(FILE, "<$FILE");
eval{ flock(FILE, 1) };
@DATA = <FILE>;
close FILE;
my $tm = time;
my $NAME = $form->param('name');
my $TITLE = $form->param('title');
my $TEXT = $form->param('text');
unshift(@DATA,"$tm,$NAME,$TITLE,$TEXT\n");
while(@DATA > $MAX) {
pop @DATA;
}
open(FILE, ">$FILE") or die("error :$!");
eval{ flock(FILE, 2) };
print FILE @DATA;
close FILE;
}
|------改行処理他------|
sub loadFormdata
{
my ($query, $pair);
if($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
}
else {
$query = $ENV{'QUERY_STRING'};
}
foreach $pair (split(/&/, $query)) {
my $key = ("$NAME,$TITLE,$TEXT");
my ($key, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg;
$value =~ s/&/&/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\x0D\x0A\s*/<br>/g;
$value =~ s/\s+/ /;
$FORM{$key} = $value;
}
}
お礼
回答ありがとうございました。おっしゃるとおりのようなことを見直してましたら、できました。ルーチンの中に質問にあるソースが入ってなかったことや、$FORMと変数の違いが不一致で起きていました。順調に動いてうれしいです。