CGI Perl総合 (461ﾚｽ)

CGI Perl総合 http://mevius.5ch.net/test/read.cgi/hack/984669133/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

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

---

311: まる [] 03/02/26 17:19 ID:LdfLNDiY すみません、ちょっと教えてください。 一部のタグだけを有効にする掲示板を作っています。こんなやり方をしたのですが有効になるタグまで文字化されてしまいました。 配列で有効にするタグの中身を設定して、それに合致しないものは>などで文字化する、というふうに考えたのですが・・。 ＃もっとスマートな書き方もあるような気がするけど・・（^-^; #設定項目 @tag = "('b'.'/b'.'i'.'/i'.'u'.'/u'.'s'.'/s')"; #タグ無効処理 sub tag { $value =~ s/</>/g; $value =~ s/>/</g; } http://mevius.5ch.net/test/read.cgi/hack/984669133/311

312: まる [] 03/02/26 17:19 ID:LdfLNDiY （311の続き） #タグ有効処理 sub decode{ if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("本文が長すぎます"); } read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name,$value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # S-JISコード変換 &jcode'convert(*value,'sjis'); # タグ処理 if ($value ne "<@tag(.*)>") { &tag; } #改行処理 $value =~ s/\r\n/<br>/g; $value =~ s/\r/<br>/g; $value =~ s/\n/<br>/g; #削除情報 if ($name eq "del") { push(@DEL,$value); } $FORM{$name} = $value; } } http://mevius.5ch.net/test/read.cgi/hack/984669133/312

313: まる [] 03/02/26 17:20 ID:LdfLNDiY ありゃ・・・タグ無効処理・・・<>のタグが通ってしまった（しかも逆だ。） http://mevius.5ch.net/test/read.cgi/hack/984669133/313

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.013s