くだすれPerl（超初心者用）

くだすれPerl（超初心 ..

523:nobodyさん
07/11/30 15:31:46 8pPZwPu7
どうも、こんにちは。
CGIゲームの改造（TOWN）をしている者です。
独自タグを導入しようと思っています。

#タグ処理
$in{'a_com'} =~ s/\[i\](.+?)\[\/i\]/$1<\/em>/gi;
$in{'a_com'} =~ s/\[b\](.+?)\[\/b\]/$1<\/strong>/gi;
$in{'a_com'} =~ s/\[u\](.+?)\[\/u\]/$1<\/u>/gi;
$in{'a_com'} =~ s/\[pre\](.+?)\[\/pre\]/<pre>$1<\/pre>/gi;
$in{'a_com'} =~ s/\[s([1-7])\](.+?)\[\/s\]/$2<\/font>/gi;
$in{'a_com'} =~ s/\[c=(\S+)\](.+?)\[\/c\]/$2<\/font>/gi;
$in{'a_com'} =~ s/</</g;
$in{'a_com'} =~ s/>/>/g;
$in{'a_com'} =~ s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<a href=\"$2\" target=\"_blank\">$2<\/a>/g;
$in_a_com = $in{'a_com'};#koko2006/11/07

このような感じにしたのですが、独自タグを記述してもタグのままでてしまいます。
独自タグを入力すると、変換はされるのですが、結果が表示されません。

このような場合どのようにすれば良いでしょうか？
宜しくお願いします。

次ページ