| 記事No | ： 6239 |
| 投稿日 | ： 2009/08/04(Tue) 19:43:14 |
| タイトル | ： Web Patio v3.21で引用符に色をつける |
| ID情報 | ： FLANKER |
| 投稿者 | ： フランカー |
| URL | ： http://su-37jk.sakura.ne.jp/zz_cgi/patio/patio.cgi |
Web Patio v3.21を使用しているのですが、引用符に色をつけたくて過去ログを検索しました。
http://www.kent-web.com/support/old/64/0186.html
しかし、V1.5あたりものの為なのか上手くいきません。
read.cgiの
# スレッド読み込み
open(IN,"$logdir/$in{'no'}.cgi") || &error("Open Error: $in{'no'}.cgi");
$top1 = <IN>;
$top2 = <IN>;
chop($top2);
($no,$sub,$res,$key) = split(/<>/, $top1);
($no2,$sub,$nam,$eml,$com,$dat,$ho,$pw,$url,$mvw,$myid,$tim,$upl{1},$upl{2},$upl{3}) = split(/<>/, $top2);
$com = &auto_link($com, $no);
$resub = "Re: $sub";
$pno = $no;
を弄り、
# スレッド読み込み
open(IN,"$logdir/$in{'no'}.cgi") || &error("Open Error: $in{'no'}.cgi");
$top1 = <IN>;
$top2 = <IN>;
chop($top2);
($no,$sub,$res,$key) = split(/<>/, $top1);
($no2,$sub,$nam,$eml,$com,$dat,$ho,$pw,$url,$mvw,$myid,$tim,$upl{1},$upl{2},$upl{3}) = split(/<>/, $top2);
$com = &auto_link($com, $no);
$com =~ s/([\>]|^)(>[^<]*)/$1<font color=\"#800000\">$2<\/font>/g; ←●追加
$resub = "Re: $sub";
$pno = $no;
としたのですが、間違っているのでしょうか？
$com =~ s/([\>]|^)(>[^<]*)/$1<font color=\" ●→#800000\">$2<\/font>/g;
TeraPadだと、「●→」以降が単なる文字列で認識されるのですが、やはり間違っているのでしょうか。
よろしくお願い致します。