08/05/31 08:37:39 GgvLi62R
教えていただいて、以下でやってみましたがうまくいきませんでした。
ご指導をよろしくお願いいたします。
bbs.cgi の 置き換え のところの
（…）
$FORM{'MESSAGE'} =~ s/([^>])>>([\d]+)/$1<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$2&to=$2&nofirst=true" target="_blank">>>$2<\/a>/g;
# $FORM{'MESSAGE'} =~ s/>>([\d]+)(?!\-[\d])/<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$1&to=$1&nofirst=true" target="_blank">>>$1<\/a>/g;
# $FORM{'MESSAGE'} =~ s/>>([\d]+)\-([\d]+)/<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$1&to=$2" target="_blank">>>$1-$2<\/a>/g;
あたりの後にでも
$FORM{'MESSAGE'} =~s/禁止ワード/置き換えるワード/g;
例
$FORM{'MESSAGE'} =~s/ハゲ/発毛の不自由な人/g;