掲示板を作りたい
perlを勉強中です
掲示板に挑戦してみました
引用の文字色を変えたいと思っています。下記のように>>をいれるとその行の文字色を改行まで変えたいです
>>引用文
しかし、やってみると、他の置換えがあってうまくいきません。
どうすればうまくいくのでしょうか？
よろしくお願いします
sub form_decode{
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $form, $ENV{'CONTENT_LENGTH'}); }
else { $form = $ENV{'QUERY_STRING'}; $NG = 1; } @pairs = split(/&/,$form);
foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
$name =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
$value =~ s/>(>[^<]*|>[^<]*)/>><font color=\"red\">$1<\/font>/g;
$value =~ s/>/>/g;
$value =~ s/</</g;
$value =~ s/\r//g;
$value =~ s/\n//g;
&jcode'convert(*value,'sjis');
&jcode'convert(*name,'sjis'); $FORM{$name} = $value;
}
}
お礼
プログラミングの勉強ですか? 本なども売っているのでしょうか？