CGI Perl総合 (461ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

311: まる 03/02/26 17:19 ID:LdfLNDiY(1/3) AAS
すみません、ちょっと教えてください。
一部のタグだけを有効にする掲示板を作っています。こんなやり方をしたのですが有効になるタグまで文字化されてしまいました。
配列で有効にするタグの中身を設定して、それに合致しないものは>などで文字化する、というふうに考えたのですが・・。
＃もっとスマートな書き方もあるような気がするけど・・（^-^;

#設定項目
@tag = "('b'.'/b'.'i'.'/i'.'u'.'/u'.'s'.'/s')";
#タグ無効処理
省4

---

312: まる 03/02/26 17:19 ID:LdfLNDiY(2/3) AAS
（311の続き）
#タグ有効処理
sub decode{
if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("本文が長すぎます"); }
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
省16

---

313: まる 03/02/26 17:20 ID:LdfLNDiY(3/3) AAS
ありゃ・・・タグ無効処理・・・<>のタグが通ってしまった（しかも逆だ。）

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.025s