Perlについての質問箱 28箱目
■ このスレッドは過去ログ倉庫に格納されています
0799デフォルトの名無しさん
2006/12/13(水) 23:10:12文字列の中で##から始まっている英数文字列があった場合
<font>タグで囲って文字を赤くしようとしていますが、この状態だと
ユーザーが任意にタグを挿入出来てしまうため置換処理を入れました。
ただ、そうしてしまうと<font>タグもむき出しになってしまい赤く表示することができません。
非常に分かりにくくてすみませんが、何かいい方法はないでしょうか?
---
$tmp = '<A> ##B <C>';
$tmp =~ s/</</g;
$tmp =~ s/>/>/g;
$Str = '##[A-Za-z0-9*.?<>\+\#-.,;]+';
$tmp =~ s/($Str)/<font color=FF0000>$1<\/font>/g;
print "$cmt";
---
↓現実
<A> <font color=FF0000>##B</font> <C>
↓理想(##赤は赤い)
<A> ##B <C>
■ このスレッドは過去ログ倉庫に格納されています