CGI Perl総合

CGI Perl総合at HACK

CGI Perl総合 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

309:あ
 03/02/22 17:09 
色々試してみましたがｺﾒﾝﾄは関係なく一番下に一行開いてしまうみたいです

310:あ
 03/02/22 17:15 
IEのみで見られる症状なのでよそ逝って聞いてきます 
ｽﾚ汚しｽﾏｿ

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

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; 
   } 
}

次ページ