read.cgi等のタグの追加について

質問

#-------------------------------------------------
# BBCode（特定の文字列をHTMLタグに変換）
#-------------------------------------------------
sub bbcodecnv {
my $str = shift;
$str =~ s/\[b\](.*?)\[\/b\]/<b>$1<\/b>/ig;
$str =~ s/\[i\](.*?)\[\/i\]/<i>$1<\/i>/ig;
$str =~ s/\[u\](.*?)\[\/u\]/<span style=\"text-decoration:underline\">$1<\/span>/ig;
$str =~ s/\[s\](.*?)\[\/s\]/<span style=\"text-decoration:line-through\">$1<\/span>/ig;
$str =~ s/\[code\](.*?)\[\/code\]/<code>$1<\/code>/ig;
$str =~ s/\[url=((?:htt|ft)ps?\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%\,]+)\](.*?)\[\/url\]/<a href=\"$jumpcgi?$1\" target=\"$target\" rel=\"nofollow\">$2<\/a>/ig;
$str =~ s/\[color=(\#[0-9A-F]{6}|[A-Z]+)\](.*?)\[\/color\]/<span style=\"color:$1\">$2<\/span>/ig;
return $str;
}

#-------------------------------------------------
# BBCode削除
#-------------------------------------------------
sub bbcodedel {
my $str = shift;
$str =~ s/\[b\](.*?)\[\/b\]/$1/ig;
$str =~ s/\[i\](.*?)\[\/i\]/$1/ig;
$str =~ s/\[u\](.*?)\[\/u\]/$1/ig;
$str =~ s/\[s\](.*?)\[\/s\]/$1/ig;
$str =~ s/\[code\](.*?)\[\/code\]/$1/ig;
$str =~ s/\[url=((?:htt|ft)ps?\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%\,]+)\](.*?)\[\/url\]/$1/ig;
$str =~ s/\[color=(\#[0-9A-F]{6}|[A-Z]+)\](.*?)\[\/color\]/$2/ig;
return $str;
}

と初期設定でありますが、
リスト形式のものは、どういう風に書いたら
良いのでしょうか？？

いろいろ調べて（試して）みたんですが、
できませんでした。

よろしくお願いします！

ちなみに、
$str =からやっぱり始まるんでしょうか？

回答No.2

mikemike7 · ベストアンサー

これまた、めんどくさいことしたいんですねえ。
簡単に。

$str =~ s/\[list=1\](.*?)\[\/list\]/<ol style="list-style-type: decimal">$1<\/ol>/g;
$str =~ s/\[list=A\](.*?)\[\/list\]/<ol style="list-style-type: upper-alpha">$1<\/ol>/g;
$str =~ s/\[list=a\](.*?)\[\/list\]/<ol style="list-style-type: lower-alpha">$1<\/ol>/g;
$str =~ s/\[list=I\](.*?)\[\/list\]/<ol style="list-style-type: upper-roman">$1<\/ol>/g;
$str =~ s/\[list=i\](.*?)\[\/list\]/<ol style="list-style-type: lower-roman">$1<\/ol>/g;
$str =~ s/\[list\](.*?)\[\/list\]/<ul style="list-style-type: disc">$1<\/ul>/ig;
$str =~ s/\[\*\]/<li>/ig;

でどうでしょう。

ただし、[list=○][/list]内にない[＊]も<li>に変わります。
また、
[list]
[*]aaa
[*]bbb
[/list]
と書いたら<br>が自動で入るのでおかしくなるかも。
[list][*]aaa[*]bbb[/list]
と書けばOK。

完全に対応させる気力はなかった。
ごめんなさい。

これは増やせば増やすほど負荷が増すので注意した方が良いです。

お礼

大変な作業、誠にありがとう御座いました！
テストでやってみたところ、成功しました！！

増やしたら、どんどん負荷がかかってしまうんですね・・・。
気を付けます。

ありがとう御座いました。m(__)m

回答No.1

mikemike7

<blockquote></blockquote>
を入れたい場合。

# フォームアイコン
<a href="javascript:supphtml('blockquote');" title="引用"><img src="$imgurl/blockquote.png" border="0"></a>

# BBCode（特定の文字列をHTMLタグに変換）
$str =~ s/\[blockquote\](.*?)\[\/blockquote\]/<blockquote>$1<\/blockquote>/ig;

# BBCode削除
$str =~ s/\[blockquote\](.*?)\[\/blockquote\]/$1/ig;

# 改行をサニタイジング・BBCode削除(patio.cgi)
$com =~ s/\[blockquote\](.*?)\[\/blockquote\]/$1/ig;

これでもわからなければ、何を挿入したくて、どうやったかを書いてくれれば見てみます。

お礼

例を教えて下さり、ありがとうございます。
何回か試してみたのですが、やっぱりできませんでした。

http://www.gemani-m.org/lpat-gemani/read.cgi?mode=view2&f=3&no=0027
↑これを全部使いたいのですが、

一番上のもので言うと
［*］

# BBCode（特定の文字列をHTMLタグに変換）

$str =~ s/\[*\](.*?)\[\/*\]/<*>$1<\/*>/ig;

一番最後
［list=1］
［*］

# BBCode（特定の文字列をHTMLタグに変換）

$str =~ s/\[list\](.*?)\[\/list\]/<list>$1<\/*>/ig;

私のは、確実に間違ってる感じがしますね。
なんか無知で申し訳ありませんm(_ _)m

補足

まとめると、

http://www.gemani.org/titi4/note.html
↑のBBCodeを使えるようにしたいです。