CGI Perl総合at HACKCGI Perl総合 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト312:まる 03/02/26 17:19 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; } } 313:まる 03/02/26 17:20 LdfLNDiY ありゃ・・・タグ無効処理・・・<>のタグが通ってしまった（しかも逆だ。） 314:まる 03/02/26 17:28 Σ（＠＠；； 板違いでしたね・・申し訳ない。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch