Perl/ActivePerl For UNIX/Linux/Windows
 
TryThe Homepage
ソスソスソス゚てゑソスCGI
CGI ソスソスソスソスソスソス
ソス_ソスCソスiソス~ソスbソスNCGI
ソス_ソスEソスソスソスソスソス[ソスh
ソスTソス[ソスrソスX
ソスTソス[ソスoソス\ソスz(Windows)
ソスfソス[ソス^ソスxソス[ソスXソスAソスNソスZソスX
ソスLソスソスソスTソス[ソスrソスX
FAQ
ソスソスソス竄「ソスソスソスせ
ソスソスソスフペソス[ソスWソスソスソスソスソス
ソスsソスソスソスネタソスOソスフ擾ソスソスソス
ソス{ソスソスソスAソスソスソスツ人ソスニゑソスソストは掲ソスソスソスツにタソスOソスソスソスソスソスツゑソスソスソスKソスvソスヘなゑソスソスニ考ソスソスソストゑソスソスワゑソスソスB ソス^ソスOソスヘ、ソスfソスソスソスツゑソスソスリやかソスネ包ソスソスノゑソスソストゑソスソスソス髞スソスハ、ソスソスソスしソスソスソス@ソス\ソスソスソスLソスソスソストゑソスソスワゑソスソスB ソスソスソスフゑソスソス゚難ソスソスTソスCソスgソスフフソスソスソス[ソスEソスFソスAソスナデソスtソスHソスソスソスgソスナタソスOソスソスソスgソスpソスナゑソスソスソスXソスNソスソスソスvソスgソスヘ托ソスソスンゑソスソスワゑソスソスソスB ソスソスソスソスソスソスソスネゑソスソスソスAソスソスマ托ソスソスソスソスフ鯉ソスvソス]ソス頂ゑソスソストゑソスソスソスワゑソスソスフで、ソスuソス^ソスOソスvソスフ使ソスpソスソスソスlソスソスソストみまゑソスソス蛯、ソスB
  1. ソスソスハ的ソスネタソスOソスフ擾ソスソスソス
    ソスソスソスン鯉ソスソスJソスソスソスソストゑソスソスソスXソスNソスソスソスvソスgソスナ、ソスナゑソスソスソスソスソスソスgソスpソスソスソスソストゑソスソスソス^ソスOソスフ擾ソスソスソスソス@ソスヘ、ソス\ソス゚使ソスpソスsソスツのタソスOソスソスoソス^ソスソスソストゑソスソスソスソスA ソス{ソスソスソスソスソスノゑソスソスソスソスフタソスOソスソスソスソスソスツゑソスソスソスホ、ソスソスソスbソスZソス[ソスWソスソス\ソスソスソスソスソス驍ゥソスソスソスソスソスソスソスンゑソスソスソスソスネゑソスソスニ鯉ソスソスソスソスVソスXソスeソスソスソスナゑソスソスB

    $tags[0] = '<img';
    $tags[1] = '<table';
    $tags[2] = '<!';
    $tags[3] = '<hr';
    foreach $tag (@tags) {
        if ($comment =~ /$tag/i) { error(bad_tag); }
    }

    ソスソスソスフ様ソスネ擾ソスソスソスソスソスソスAソスソスソスソスフ変形ソスナゑソスソスB
    ソスソスソスソスノは、ソスソスソスソスソスツゑソスソスフ鯉ソスソス_ソスソスソスLソスソスワゑソスソスB
    ソスワゑソスソスAソス^ソスOソスソスソスソスソスソスノ閉ゑソスソスソスソストゑソスソス驍ゥソスソスソス`ソスFソスbソスNソスoソスソスソスワゑソスソスソスB
    ソス^ソスOソスヤゑソスソスソスYソスソストゑソスソスワゑソスソスソスソスソスAソスフ意に閉ゑソスソスネゑソスソスソスソスソスソス閧キソスソスニどのようソスネ鯉ソスソスロゑソスソスNソスソスソスソスナゑソスソス蛯、ソスH
    ソスtソスHソスソスソスgソス^ソスOソスソスソスノ具ソスソスソスソスト考ソスソスソストみまゑソスソス蛯、ソスB

    <font color=#0000FF size=5>ソスソスソスソスヘ、ソスtソスHソスソスソスgソスTソスCソスYソスTソスフ包ソスソスソスソスソスツ色ソスナ擾ソスソスソスソストゑソスソスワゑソスソスB</font>
    <font color=#FFFFFF>ソスソスソスソスソスソスソスソスソスソスヘ真ソスソスソスソスソスナゑソスソスB

    ソスソスソスフタソスOソスソスソスソスソスsソスソスソスソスニ、
    ソスソスソスソスヘ、ソスtソスHソスソスソスgソスTソスCソスYソスTソスフ包ソスソスソスソスソスツ色ソスナ擾ソスソスソスソストゑソスソスワゑソスソスB
    ソスwソスiソスFソスソスソスソスソスネゑソスAソスソスソスフ以降ソスノ擾ソスソスソスソスソスソスワれたソスLソスソスソスヘ托ソスソスlソスフ包ソスソスワで包ソスソスソスソスFソスuソスソスソスvソスナ会ソスソスソスソスソスソスソスソスネゑソスソスネゑソスワゑソスソスB

    ソスソスソスソスソスソスソスソスソスソスソスソスノは、ソスeソス[ソスuソスソスソスソスソスgソスソスソスソスソス@ソスソスソスLソスソスワゑソスソスソスソスAソスソスソス黷ェソスワゑソスソスソスソスナゑソスソスB
    <table>ソス^ソスOソスヘ具ソスソスツゑソスソストゑソスソスワゑソスソスソスフで、ソスgソスpソスソスソス骼厄ソスヘ出ソスソスソスワゑソスソスが、ソスXソスNソスソスソスvソスgソスソスソスソスソスソスソスナテソス[ソスuソスソスソスソスソス成ソスソスソストゑソスソスソスfソスソスソスツで、 </table>ソスソスソスソスヘゑソスソスソストゑソスソスワゑソスソスニ一発ソスナ掲ソスソスソスツは破ソスさゑソスワゑソスソスB
    ソスソスソス黷セソスソスソスナなゑソスソスA<td><tr>ソスフセソスソスソスソスソス成ソスソスソスソス^ソスOソスソス</td></tr>ソスフようソスネセソスソスソスソスツゑソスソスソス^ソスOソスソス ソス]ソスソスソスノ難ソスソスヘゑソスソスソストゑソスソスワゑソスソスニゑソスソスソスソスワゑソスソスナゑソスソスB
    ソスソスソスソスナは、
    $tags[4] = '</table';
    $tags[5] = '<td';
    $tags[6] = '<tr';
    $tags[7] = '</tr';
    $tags[8] = '</td';
    ソスフようソスノ、ソスヨ止ソス^ソスOソス増やせソスホゑソスソスソスソスニゑソスソスlソスソスソスソスソスソスソスソスソスソスワゑソスソスが、ソスソスソス黷ェソスナ托ソスフ鯉ソスソス_ソスナゑソスソスB
    ソスソスソスソスソスmソスフようソスノ、ソスソスソスンのイソスソスソス^ソス[ソスlソスbソスgソスヘ撰ソスソスワゑソスソスソスソスソスソスソスソスナ費ソスソスWソスソスソストゑソスソスワゑソスソスB
    ソスVソスソスソスソスソスuソスソスソスEソスUソスソスソスJソスソスソスソスソスソス驍スソスムに托ソスマ托ソスソスソスソスフタソスOソスソスソスヌ会ソスソスソスソスソストゑソスソスワゑソスソスB
    ソスソスソスソスソスフ抵ソスソスノは、ソスVソスXソスeソスソスソス制鯉ソスナゑソスソス驪ーソスしソスソスソス^ソスOソスソスソスワまゑソストゑソスソスワゑソスソスBソスソスソスネゑソスソスヘ2ソスOソスOソスソズに及ソスヤゑソスソスラてのタソスOソスソスソスソスソスソスソスmソスナゑソスソスソスソスH
    ソスヌ暦ソスソスメゑソスソスVソスソスソスソスソスuソスソスソスEソスUソスソスソスJソスソスソスソスソスソス驍スソスムに、ソスソスソスラてのタソスOソス調べ、ソスoソス^ソスソスソス骼厄ソスネど不ソスツ能ソスナゑソスソスB
    ソスソスソスフ度ソスノ、ソス_ソスEソスソスソスソスソス[ソスhソスソスノ行ソスソスソスJソスXソス^ソス}ソスCソスYソスソスソスソスソスソスソスソスソスワゑソスソスソスソスH  ソスソスソスモ厄ソスソスナゑソスソスB

    ソスワゑソスソスLソスソスワゑソスソスソスソスAソスソスソスフゑソスソス轤「ソスノゑソスソスト趣ソスソスノ進ソスンまゑソスソス蛯、ソスB

  2. ソスソスソスzソスフ転ソスソス
    ソスソスソスソスナはどゑソスソスソスソスソスホタソスOソスソスソスソスソスソスソスナゑソスソスソスフでゑソスソス蛯、ソスH
    ソスソスソスソスソスソスソス謔、ソスニ考ソスソスソス驍ゥソスソスハ目なのでゑソスソスBソスソスソスソスソスソスソスワゑソスソスソスBソスLソスソスソスネタソスOソスソスソスソスソス生ゑソスソスソスソストゑソスソスフでゑソスソスB
    ソスソスxソスソスソスラてのタソスOソス無鯉ソスソスノゑソスソスAソスソスソスツゑソスソスソス^ソスOソスソスソスソスソス復奇ソスソスソスソスソスソスソスフでゑソスソスB
    ソスソスソスフ包ソスソス@ソスネゑソスAソスソスソスソスソスソスVソスソスソスソスソス^ソスOソスソスソスヌ会ソスソスソスソス黷スソスuソスソスソスEソスUソスナゑソスソスソス閧ソスソスワゑソスソスソスB

    $value =~ s/</&lt;/g;
    $value =~ s/>/&gt;/g;
    ソスソスソスフコソス[ソスhソスヘ、ソス^ソスOソスフ始ソスワゑソスニ終ソスソスソスソスソスソスソスソスソスu<ソスvソスニ、ソスu>ソスvソスソスソスu&lt;ソスvソスニ、ソスu&gt;ソスv ソスニゑソスソスソスソスソスソスソスソスソスノ変奇ソスソスソスソスAソス^ソスOソス無鯉ソスソスノゑソスソストゑソスソスワゑソスソスB
    ソスiソスソスソスTソスCソスgソスフ掲ソスソスソスツは、ソスソスソスナにゑソスソスフコソス[ソスhソスナ厄ソスソスソスソスノなゑソスソストゑソスソスワゑソスソスBソスj
    ソスソスソスソスナ、ソスtソスHソス[ソスソスソスノ難ソスソスヘゑソスソス黷スソス^ソスOソスヘゑソスソスラて厄ソスソスソスソスナ登ソス^ソスソスソス黷スソスソスナゑソスソスB
    ソスソスソスソスソスソスAソス\ソスソスソスソスソス骼橸ソスノ具ソスソスツゑソスソス黷スソス^ソスOソスソスソスソスソス復奇ソスソスソスソスソスソスワゑソスソスB

    <font size=5 color=#FFFF00>ソスソスソスソスヘ会ソスソスF</font>
    ソスソスソスフ様ソスネタソスOソスソスソスワむ包ソスソスソスソスが難ソスソスヘゑソスソス黷スソスニゑソスソスワゑソスソスB
    ソスfソスソスソスツはタソスOソス無鯉ソスソスノゑソスソスワゑソスソスフで、
    &lt;font size=5 color=#FFFF00&ampgtソスソスソスソスヘ会ソスソスF&lt;/font&amp:gt;
    ソスニ記ソス^ソスソスソスソスソスソスナゑソスソスソスソスソスAperlソスフマソスbソス`ソスソスソスZソスqソスソスソスgソスソスソスト擾ソスソスソスソスノマソスbソス`ソスソスソス驍ゥソス調べ、 ソス}ソスbソス`ソスソスソスソスホ厄ソスソスソスソスノゑソスソスソスソスu<ソスvソスニ、 ソスu>ソスvソス復奇ソスソスソスソスソスソストゑソスソスホゑソスソスソスソスフでゑソスソスB

    s/(\&lt;(font.*)\&gt;(.*)\&lt;\/font\&gt;)/<$2>$3<\/font>/i;

    ソスソスソスフコソス[ソスhソスヘ、<fontソスナ始ソスワゑソスA>ソスナ閉ゑソスソスソスソスAソスソスソスソスソスツゑソスソスフ趣ソスソスロに表ソスソスソスソスソス髟カソスソスソスが有ソスソスA
    <\/font>ソスフ綴ゑソスソス^ソスOソスソスソスYソス黷クソスノ難ソスソスヘゑソスソスソストゑソスソスソス鼾ソスノゑソスソスソス
    <font .*>ソスHソスHソスHソスHソスHソスHソスHソスHソスH</font>ソスノ戻ゑソスソストゑソスソスネゑソスソスソスソスニゑソスソスソスソスRソス[ソスhソスナゑソスソスB
    ソス蝠カソスソスソスソスソスソスソスソスソスAソスヌゑソスソスソスナゑソスソスけ付ソスソスソスソス謔、ソスナ鯉ソスノ「iソスvソスソスソスtソスソスソスソスソストゑソスソスワゑソスソスB

    ソスソスソスソスナは十ソスソスソスナはゑソスソスソスワゑソスソスソスヒ。
    ソスソスソスソスソスナゑソスソスAソスソスソスフコソス[ソスhソスネゑソスAソス{ソスソスソスソスソスフタソスOソスPソスツゑソスソスソスソスマ奇ソスソスoソスソスソスワゑソスソスソスB
    ソスソスソスソスソスツ有ソスソスソストゑソスソスマ奇ソスソスナゑソスソスソス謔、ソスソスソス[ソスvソスノゑソスソスソスニ、

    1 while s/(.*)(\&lt;(font[\s\w\=\#\"\']+)\&gt;(.*)\&lt;\/font\&gt;)/$1<$3>$4<\/font>/i;

    ソスニ、ソスネゑソスワゑソスソスB
    ソスソスソスソスニ難ソスソスソスソスvソスフで、ソスソスソスツゑソスソスソス^ソスOソスソスoソス^ソスソスソスソスフでゑソスソスB
    ソスCソスソスソス[ソスWソス^ソスOソスフようソスノ綴ゑソスソス^ソスOソスソスKソスvソスニゑソスソスネゑソスソス^ソスOソスソスソスLソスソスワゑソスソスフで、ソスソスソスソスソスiソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスB

    ソスyソスソスソスソスソスiソスz
    sub tag_change {
        local($_) = $_[0];
        1 while s/(.*)(&lt;(img([!-:A-~\s\=]+))&gt;)/$1<img$4>/i;
        1 while s/(.*)(&lt;(font[\s\w\=\#\"\']+)\&gt;(.*)\&lt;\/font\&gt;)/$1<$3>$4<\/font>/i;
        1 while s/(.*)(&lt;(b)&gt;(.*)<\/b&gt;)/$1<b>$4<\/b>/i;
        1 while s/(.*)(&lt;(i)&gt;(.*)<\/i&gt;)/$1<i>$4<\/i>/i;
        $_;
    }
    ソスソスソスソスネゑソスAソスツゑソスソスYソスソスソス黷スソス^ソスOソスソスソスソスソスソスソストゑソスソスAソスナ新ソスフブソスソスソスEソスUソスナタソスOソスソスソスヌ会ソスソスソスソスソストゑソスソスSソスzソスLソスソスワゑソスソスソスヒ。 ソスTソスソスソスvソスソスソスナは、<font>ソスtソスHソスソスソスgソス^ソスOソスA<img>ソスCソスソスソス[ソスWソス^ソスOソスA<b>ソス{ソス[ソスソスソスhソス^ソスOソスA<i>ソスCソス^ソスソスソスbソスNソス^ソスOソスノ鯉ソスソス閧オソストゑソスソスワゑソスソスB

  3. ソスgソスソスソスソス
    ソスgソスソスソスソスソスヘ簡単ソスナゑソスソスBソスソスLソスフ奇ソスソスソスソスiソスソスソスソスソスネゑソスソスフスソスNソスソスソスvソスgソスフ最鯉ソスノ追会ソスソスソスソスワゑソスソスB
    ソスiソスSソスpソスXソスyソス[ソスXソスヘ費ソスソスpソスノ変ゑソスソストね。ソスj
    ソスマ奇ソスソスソスソスソスソスソスソスソスソスソスソスソスフ格ソス[ソスソスソスソストゑソスソスソスマ撰ソスソスソス\ソスソスソスソスソスソスOソスノ、

    $comment = &tag_change($comment);

    ソスフようソスノ、ソストび出ソスソスソスト変奇ソスソスソスソスソスホゑソスソスソスソスソスソスソスソスナゑソスソスB
    tag_change()ソスヨ撰ソスソスヘ、ソスマ奇ソスソスOソスフ包ソスソスソスソスソスソスソスけ趣ソスソスAソスマ奇ソスソスソスフ包ソスソスソスソスソスソスヤゑソスソスワゑソスソスB

    ソスソスソスソスソスソスソスソスソスフようソスノ、ソスヤ信ソスソスソスtソスソスソストゑソスソスソスfソスソスソスツでは、
    $com = &tag_change($com);
    ソスニゑソスソスソスソスマ撰ソスソスソスソスgソスソスソストゑソスソスワゑソスソスB

    $comment =~ s/\r/<br>/g; ソスソスA
    $com =~ s/\r/<br>/g; ソスソスソスソスソスソスソスソスソストゑソスソスフ会ソスソスノ追会ソスソスソスソスト会ソスソスソスソスソスソスB

    ソス{ソスソスソスヘゑソスソスフようソスノ、ソスtソス@ソスCソスソスソスノはタソスOソスソスソスソスソスナ記ソス^ソスソスソスAソスAソスNソスZソスXソスソスソス黷スソスソスソスノ変奇ソスソスソスソスソスフゑソスソスxソスXソスgソスナゑソスソスソスソスA
    ソスソスソスソスフバソス[ソスWソスソスソスソスソスヘ、ソスソスソスxソスIソスノ厄ソスソスナゑソスソスフで、ソスソスソスeソスソスソス黷スソスソスソスノ茨ソスxソスソスソスソスソスマ奇ソスソスソスソスト保托ソスソスソスソスソスソスソス@ソスノゑソスソスト会ソスソスソスソスソスソスB

    ソスLソスソスソスソスソスソスソスソスソスソスソズサソスuソスソスソス[ソス`ソスソス regist ソスフ最擾ソスソスナ変奇ソスソスソスソス[ソス`ソスソスソスソスソストび出ソスソスソスワゑソスソスB

    sub regist {
        $FORM{'comment'} = &tag_change($FORM{'comment'});

    ソスニ、ソスネゑソスワゑソスソスBソスナ近のスソスNソスソスソスvソスgソスヘフソスHソス[ソスソスソスフ連ソスzソスzソスソスソス $QUERY ソスソスソスgソスpソスソスソストゑソスソスワゑソスソスフで、

    sub regist {
        $QUERY{'comment'} = &tag_change($QUERY{'comment'});

    ソスノゑソスソスワゑソスソスB

Copyright 2004 Terra. All rights reserved. No reproduction or republication without written