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ソスソスソスソスソス
ソスJソスソスソスフコソスc
ソスソスソスTソスCソスgソスソスソスtソスソスソス[ソスナ鯉ソスソスJソスソスソストゑソスソス髑スソス@ソス\PerlソスソスpソスソスソスCソスuソスソスソスソスperl-lib.plソスソスソスgソスpソスソスソスソスホ、 ソスNソスノでゑソスソスネ単ソスソスCGIソスソスソス成ソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスB ソスソスソスフコソス[ソスiソス[ソスナは、ソスネ単ソスネ掲ソスソスソスツゑソスソスノゑソスソスソスソスPソスソスソスソスCGIソスソスソスソスソスソストみまゑソスソスB ソスソスソスロに1ソスソスソスソスソスソス繧ーソスソスニなゑソスニ、ソスソスソスソスソスソスxソスフ機ソス\ソスソスソスソスソスソスソスソスソスeソスLソスXソスgソスGソスfソスBソス^ソスソスソスKソスvソスナゑソスソスB Windowsソスフソスソスソスソスソスソスナゑソスソスsソスツ能ソスナはゑソスソスソスワゑソスソスが、ソスlソスbソスrソスソスノはフソスソスソス[ソスナ鯉ソスソスJソスソスソスソストゑソスソス骰ゑソス@ソス\ソスネエソスfソスBソス^ソスソスソスLソスソスワゑソスソスフで、 ソスeソスソスソスソスソス閧オソストゑソスソスソスソスソスソスソスソスB
  TaraPadソスフ難ソスソスソス
ソスtソスソスソス[ソスナ鯉ソスソスJソスソスソスソストゑソスソスソスeソスLソスXソスgソスGソスfソスBソス^ソスヘ撰ソスソスソスソスソスソスソスソスンゑソスソスワゑソスソスソスソスA ソスソスソス@ソス\ソスナ軽ソスソスソスノ難ソスソスすソスソスTeraPadソスソスソスgソスpソスソスソスワゑソスソスBPerlソスソスソスモ趣ソスソスソスソスト開ソスソスソスソスソスソストゑソスソスワゑソスソスフで費ソスソスノ便暦ソスソスナゑソスソスB
  1. TeraPadソスフダソスEソスソスソスソスソス[ソスh
    ソスソスメのペソス[ソスWソスuTo Clipソスv ソスソスソスソスナ新ソスナゑソスソス_ソスEソスソスソスソスソス[ソスhソスソスソスワゑソスソスB

  2. ソスZソスbソスgソスAソスbソスv
    lzhソス`ソスソスソスフ場合ソスヘ解凍ゑソスソス驍セソスソスソスナ奇ソスソスソスソスナゑソスソスBTaraPad.exeソスソスソスソスソスsソスソスソス驍セソスソスソスナゑソスソスB
    ソスソスソスソスソスン定すソスソスノゑソス[ソス\ソスソス]-[ソスIソスvソスVソスソスソスソス]ソスソスIソスソスソスソスソスワゑソスソスB

    ソスuソスソス{ソスvソスン抵ソスヘほとゑソスヌ変更ソスソスソスソスKソスvソスヘ有ソスソスワゑソスソスソスB
    ソスuソスソスソスソスソスフ折ゑソスヤゑソスソスvソスソスIソスソスソスソスソスネゑソスソスソスホ抵ソスソスソスソスsソスナゑソスソスソスソスソスソスIソスノ折ゑソスヤゑソスソスソス骼厄ソスソスソスLソスソスワゑソスソスソスフで、 ソスXソスNソスソスソスvソスgソスソスソスソスソスナなゑソスソスAソスfソス[ソス^ソスフ編集ソスノゑソスソスソスソスKソスナゑソスソスB


    ソスuソスソスソスソスソスソスソスsソスRソス[ソスhソスvソスソスソスuLFソスvソスノ設定しソストゑソスソスソスソスホ、TaraPadソスナ編集ソスソスソスソスソスXソスNソスソスソスvソスgソスヘ、 FTPソスフ「ソスoソスCソスiソスソスソスvソスソスソス[ソスhソスナアソスbソスvソスソスソス[ソスhソスソスソストゑソスソスソスソスしソスワゑソスソスB
    ソスソスソスソスuソスeソスLソスXソスgソスvソスソスソス[ソスhソスナアソスbソスvソスソスソス[ソスhソスソスソストゑソスソスソスソスフ厄ソスソスソスソスソスソスソスワゑソスソスソスフで、 ソスuLFソスvソスノ設定しソストゑソスソスソスソスソスソスソスソスソスソスソスソスソスナゑソスソスB

  ソスzソス[ソスソスソスyソス[ソスWソス成ソス\ソスtソスg
ソスソスソスレタソスOソスソスソスソスソスソスソスソスソスニのでゑソスソスソスソスソスノは必ソスvソスLソスソスワゑソスソスが、ソスソスソスソスヘ最ゑソスソスネ単ソスノ開ソスソスソスソスソスソスソスソス@ソスソスソスソスソスミ介しソスワゑソスソスフで、 ソスuソスzソス[ソスソスソスyソス[ソスWソスrソスソスソス_ソス[ソスvソスAソスuソスtソスソスソスソスソスgソスyソス[ソスWソスvソスAソスuDreamweaverソスvソスソスソスフホソス[ソスソスソスyソス[ソスWソス成ソス\ソスtソスgソスソスソスソスソスpソスモゑソスソスソスソスソスソスソスソスB
  ソスfソスソスソスツの作成
ソスソスソスソスナは、ソスソスソス謔「ソスソスfソスソスソスツの作成ソスナゑソスソスB ソスwソスKソスナゑソスソスフで、ソスソスソスソスソスノサソスソスソスvソスソスソスソスソスRソスsソス[ソスソスソスソスフではなゑソスソスAソスソスソスソスソスソスソスナ作成ソスソスソストみてゑソスソスソスソスソスソスソスソスB
  1. ソスtソスHソス[ソスソスソスソスソスfソスUソスCソスソスソスソスソスソス
    ソスワゑソスソスヘ、ソスzソス[ソスソスソスyソス[ソスWソス成ソス\ソスtソスgソスナ難ソスソスeソスtソスHソス[ソスソスソスソスソス成ソスソスソスワゑソスソスB
    ソスソスソスソスソスO
    ソスソスソス[ソスソスソスAソスhソスソスソスX
    ソスソスソスソス
    ソスRソスソスソスソスソスg
    ソスzソス[ソスソスソスyソス[ソスWソス成ソス\ソスtソスgソスネゑソスネ単ソスノ作成ソスナゑソスソスソスニ思ソスソスソスワゑソスソスB ソスソスソスレは、ソスソスソスRソスノ作成ソスソスソストゑソスソスソスソスソスソスソスソスト鯉ソスソス\ソスナゑソスソスソスソスAソスソスソスフサソスソスソスvソスソスソスナは「ソスソスソスeソスメ趣ソスソスソスソスvソスA ソスuソスソスソス[ソスソスソスAソスhソスソスソスXソスvソスAソスuソスLソスソスソスフ題名ソスvソスニ「ソスLソスソスソス{ソスソスソスvソスナゑソスソスB ソスtソスHソス[ソスソスソスtソスBソス[ソスソスソスhソスソスソスン抵ソスツ能ソスネ場合ソスヘ、ソスソスソスフ趣ソスソス_ソスナゑソスソスソスソスOソスノゑソスnameソスAソスソスソス[ソスソスソスAソスhソスソスソスXソスノゑソスemailソスA ソスソスソスソスソスノゑソスsubjectソスAソスRソスソスソスソスソスgソスノゑソスcommentソスニフソスBソス[ソスソスソスhソスソスソスソスソスン定しソストゑソスソスソスソスワゑソスソスB

  2. ソスGソスfソスBソス^ソスノ抵ソスソスソスtソスソス
    ソスヌのようソスネホソス[ソスソスソスyソス[ソスWソス成ソス\ソスtソスgソスノゑソスソス\ソス[ソスXソスソス\ソスソスソスソスソスソス@ソス\ソスソスソスLソスソスワゑソスソスフで、 ソス\ソス[ソスXソス\ソスソスソスワゑソスソスヘ、HTMLソスソスソスソスソスラて選ソスソスソスソスソストコソスsソス[ソスソスソスト、ソスGソスfソスBソス^(TeraPad)ソスノ抵ソスソスソスtソスソスソスワゑソスソスB
    <html>
    <head>
    <meta http-equiv="Content-Type"content="text/html;charset=shift_jis">
    <title>ソスVソスソスソスソスソスyソス[ソスW1</title>
    </head>
    <body>
    <form>
      <table border="1">
      <tr>
        <td align="center">ソスソスソスソスソスO</td>
        <td><input type="text" size=24 name="name"></td>
      </tr>
      <tr>
        <td align="center">ソスソスソス[ソスソスソスAソスhソスソスソスX</td>
        <td><input type="text" size=63 name="email"></td>
      </tr>
      <tr>
        <td align="center">ソスソスソスソス</td>
        <td><input type="text" size=63 name="subject"></td>
      </tr>
      <tr>
        <td align="center">ソスRソスソスソスソスソスg</td>
        <td><textarea name="comment" rows="7" cols="62"></textarea></td>
      </tr>
      </table>
      <input type="submit" value="ソスソスソスソスソスソスソスソス">
    </form>
    </body>
    </html>
    ソスMソスメの場合ソスヘ擾ソスLソスフようソスノ作成ソスソスソスソストゑソスソスワゑソスソスソスソスB ソスソスソスソスソスソスソスソスsソスKソスvソスネタソスOソスソスソス除ソスソスソスネゑソスソスソスホなゑソスワゑソスソスソスフゑソス<form>ソスソスソスソスA</form>ソスソス濶コソスソスソス除ソスソスソスワゑソスソスB
    <form>
      <table border="1">
      <tr>
        <td align="center">ソスソスソスソスソスO</td>
        <td><input type="text" size=24 name="name"></td>
      </tr>
      <tr>
        <td align="center">ソスソスソス[ソスソスソスAソスhソスソスソスX</td>
        <td><input type="text" size=63 name="email"></td>
      </tr>
      <tr>
        <td align="center">ソスソスソスソス</td>
        <td><input type="text" size=63 name="subject"></td>
      </tr>
      <tr>
        <td align="center">ソスRソスソスソスソスソスg</td>
        <td><textarea name="comment" rows="7" cols="62"></textarea></td>
      </tr>
      </table>
      <input type="submit" value="ソスソスソスソスソスソスソスソス">
    </form>
    ソスソスソスソスナ必ソスvソスネフソスHソス[ソスソスソスソスソスソスソスノなゑソスワゑソスソスソスソスソスソスAソスワゑソスソスAソスsソスKソスvソスネゑソスソスフゑソスソスソスソスソスワゑソスソスB ソスソスソスソスヘ、ソスQソスツ以上続ソスソスソスソスソスXソスyソス[ソスXソスニダソスuソスソスソスNソスHソス[ソスeソス[ソスVソスソスソスソス(" )ソスナゑソスソスB TeraPadソスソスソスgソスpソスソスソスソスホ簡単ソスノ削除ソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスB ソスソスソスjソスソスソス[ソスRソス}ソスソスソスhソスフ置ソスソスソスソスソスソスソスソスIソスソスソスソスソスA[ソスソスソスソスソスソスソス髟カソスソスソスソス]ソスノスソスyソス[ソスXソスソスソスQソスツ打ゑソスソスト、 [ソスuソスソスソスソスフ包ソスソスソスソスソス]ソスノは会ソスソスソスソスwソス閧ケソスソスソスA[ソスソスソスラて置ソスソス]ソス{ソス^ソスソスソスソスソスソスソスソスソスワゑソスソスB 1ソスツのスソスyソス[ソスXソスヘ、 ソス^ソスOソスフセソスpソスソスソス[ソス^ソスニゑソスソスト使ソスpソスソスソスソストゑソスソスワゑソスソスフで、2ソスツ以上続ソスソスソスソスソスXソスyソス[ソスXソスソスソスソスソスソスソス除ソスソスソスワゑソスソスB

    ソスソスソスlソスソス[ソスソスソスソスソスソスソス髟カソスソスソスソス]ソスソス"ソスソスソスwソス閧オソスA[ソスuソスソスソスソスフ包ソスソスソスソスソス]ソスノは会ソスソスソスソスwソス閧ケソスソスソスA [ソスソスソスラて置ソスソス]ソス{ソス^ソスソスソスソスソスソスソスソスソスニダソスuソスソスソスNソスHソス[ソスeソス[ソスVソスソスソスソスソスソスソスソスソスラて削除ソスソスソスソスワゑソスソスB
    <form>
    <table border=1>
    <tr>
    <td align=center>ソスソスソスソスソスO</td>
    <td><input type=text size=24 name=name></td>
    </tr>
    <tr>
    <td align=center>ソスソスソス[ソスソスソスAソスhソスソスソスX</td>
    <td><input type=text size=63 name=email></td>
    </tr>
    <tr>
    <td align=center>ソスソスソスソス</td>
    <td><input type=text size=63 name=subject></td>
    </tr>
    <tr>
    <td align=center>ソスRソスソスソスソスソスg</td>
    <td><textarea name=comment rows=7 cols=62></textarea></td>
    </tr>
    </table>
    <input type=submit value=ソスソスソスソスソスソスソスソス>
    </form>
    ソスソスソスソスソスワで出ソスソスソスソスホ、Perlソスフ厄ソスソス゚ゑソスヌ会ソスソスソスソスワゑソスソスB Perlソスフ行ソスフ最鯉ソスノは「;ソスvソスソスソスKソスvソスナゑソスソスフで、ソスソスソスソスソスソスuソスソスソスソスソスソスソスナ追会ソスソスソスソスワゑソスソスB [ソスソスソスソスソスソスソス髟カソスソスソスソス]ソスソス\nソスソスソスwソスソスA[ソスuソスソスソスソスフ包ソスソスソスソスソス]ソスノゑソス\\n";ソスニゑソスソスト置ソスソスソスソスソスソスソスワゑソスソスB ソスuソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスニゑソスソスラての行ソスフ先頭ソスソスprint "ソスソスヌ会ソスソスソスソスワゑソスソスB
    sub form {
      print "<formaction=startbbs.cgi method=POST>\n";
        print "<input type=hidden name=action value=regist>\n";
        print "<table border=1>\n";
        print "<tr>\n";
        print "<td align=center>ソスソスソスソスソスO</td>\n";
        print "<td><input type=text size=24 name=name></td>\n";
        print "</tr>\n";
        print "<tr>\n";
        print "<td align=center>ソスソスソス[ソスソスソスAソスhソスソスソスX</td>\n";
        print "<td><input type=text size=63 name=email></td>\n";
        print "</tr>\n";
        print "<tr>\n";
        print "<td align=center>ソスソスソスソス</td>\n";
        print "<td><input type=text size=63 name=subject></td>\n";
        print "</tr>\n";
        print "<tr>\n";
        print "<td align=center>ソスRソスソスソスソスソスg</td>\n";
        print "<td><textarea name=comment rows=7 cols=62></textarea></td>\n";
        print "</tr>\n";
        print "</table>\n";
        print "<input type=submit value=ソスソスソスソスソスソスソスソス>\n";
      print "</form>\n";
    }
    ソスoソスソスソス繧ェソスソスソスソスソスソスソスソスソスヨ撰ソスソスニゑソスソスト呼び出ソスソスソスソス謔、sub form {ソスニゑソスソスト宣言ソスソスソストゑソスソスワゑソスソスB ソスワゑソスソスAソスソスソスフフソスHソス[ソスソスソスソス[ソスソスソスソスソスソスソスソス]ソス{ソス^ソスソスソスソスソスソスソスソスソス黷スソス鼾ソスノ呼び出ソスソスソスソスソスCGIソスソスソスン定しソストゑソスソスワゑソスソスB ソスニりあソスソスソスソスソスソスソスフサソスソスソスvソスソスソスノゑソスstartbbs.cgiソスニ厄ソスソステゑソスソスワゑソスソスソスソスB print "<input type=hidden name=action value=regist>\n"; ソスヘ、ソスBソスソスソスtソスBソス[ソスソスソスhソスナ趣ソスソスロには表ソスソスソスソスソス黷クソスA ソスソスソスフフソスHソス[ソスソスソスソス[ソスソスソスソスソスソスソスソス]ソス{ソス^ソスソスソスソスソスソスソスソスソス黷スソスソスソスソスstartbbs.cgiソスノ伝ソスソスソス體ュソスソスソスソスソスソスソスワゑソスソスB

  3. ソスソスソスソスソスン定部ソスソスソスソスソス
    ソスルとゑソスヌの場合ソスソスソスソスソスン定部ソスヘ難ソスソスソスソスナゑソスソスワゑソスソスワゑソスソスソスB
    #!/usr/local/bin/perl

    #ソスソスソス{ソスソスRソス[ソスhソスマ奇ソスソスソスソスWソスソスソス[ソスソス
    require 'jcode.pl';
    require 'perl-lib.pl';

    #---------------------------------------
    #ソスソスソスbソスZソス[ソスWソスソスソスiソス[ソスソスソスソスfソス[ソス^ソスtソス@ソスCソスソス
    $datafile = 'startbbs.txt';
    #---------------------------------------
    #ソスoソスbソスNソスOソスソスソスソスソスhソスフ画像ソスtソス@ソスCソスソス
    $bgimg = '';
    #---------------------------------------
    #ソスoソスbソスNソスOソスソスソスソスソスhソスJソスソスソス[
    $bg = '#300030';
    #ソスeソスLソスXソスgソスフ包ソスソスソスソスF
    $text = '#FFFFFF';
    #ソスソスソスソスソスNソスソスソスソスソスF
    $link = '#FFFF00';
    #ソスuソスソスソスソスソスNソスソスソスソスソスF
    $vlink = '#FFEE00';
    #ソス`ソスソスソスソスソスNソスソスソスソスソスF
    $alink = '#FFEEDD';
    #ソスtソスHソスソスソスgソスTソスCソスY
    $fontsize = 11;
    #---------------------------------------
    #ソスRソスソスソスソスソスgソスナ托ソスLソスソスソスソス
    $max = 100;
    #---------------------------------------
    #1ソスyソス[ソスWソスノ表ソスソスソスソスソス骭擾ソスソス
    $pagevew = 10;
    #---------------------------------------
    #ソスソスソスソス
    $timelag = 0;
    #=======================================
    # ソスソスソスソスソスン定がソスKソスvソスネのはゑソスソスソスソスワででゑソスソスB
    #=======================================
    ソスソスソスフコソス[ソスhソスソスformソスヨ撰ソスソスフ擾ソスノ追会ソスソスソスソスワゑソスソスB ソスソスソスソスソスソスソス謫ェソスsソスノゑソスPerlソスフパソスXソスAソスソスソスソスソスソスソスノゑソスjcode.plソスソスperl-lib.plソスフパソスXソスソスソスLソスqソスソスソスソストゑソスソスワゑソスソスB ソスソスLソスフ設抵ソスナは、startbbs.cgiソスニ難ソスソスソスソスfソスBソスソスソスNソスgソスソスソスソスjcode.plソスAperl-lib.plソスソスソスソスソスンゑソスソスソスニゑソスソスソスソスン抵ソスノなゑソスソストゑソスソスワゑソスソスB

  4. ソスソスソスCソスソスソスソスソス[ソス`ソスソスソスフ追会ソス
    ソスソスソスソスソスソスソス轤ェソスfソス[ソス^ソスソスソスソスソスソスソスソスソスソスソスソスAソスソスソスソスソスノゑソス闖茨ソスソスソス分岐するメソスCソスソスソスソスソス[ソス`ソスソスソスナゑソスソスB ソスナ擾ソスソスヘ、ソスソスソスソスソスソスAソスfソス[ソス^ソスソスソス謫セソスソスソスソスヨ撰ソスソスソスソストび出ソスソスソスワゑソスソスB
    #=======================================
    # ソスソスソスソスソスン定がソスKソスvソスネのはゑソスソスソスソスワででゑソスソスB
    #=======================================
    #ソスTソス[ソスoソスソスソスソスソスソスtソスニ趣ソスソスソスソスソスソス謫セソスソスソスソス
    $ENV{'TZ'} = "GMT";
    $DATE = time + $timelag * 3600;
    $DATENOW = jst_time($DATE, 5);
    #CGIソスソスソストび出ソスソスソス黷スソスソスソスフ擾ソスソスソスソスソスfソス[ソス^ソスソスソス謫セ
    readparts('QUERY', '<>=', 'sjis');
    #ソスfソス[ソス^ソスtソス@ソスCソスソスソスフ記ソスソスソスソスソス謫セ
    @DATA = data_read($datafile);
    #HTMLソスフヘソスbソス_ソス[ソスソス骭セ
    html_head($bg, $text, $link, $vlink, $alink, $bgimg, 10, 10, '', $fontsize);
    #ソスtソスHソス[ソスソスソスソスソストび出ソスソス
    &form();
    print "</body></html>\n";
    exit;
    sub form {
      print "<form action=startbbs.cgi method=POST>\n";
    ソスツゑソスソスソスソスソスソスソスソスヌ会ソスソスソスソス黷スソスソスソスCソスソスソスソスソス[ソス`ソスソスソスナゑソスソスB ソスソスソスCソスソスソスソスソス[ソス`ソスソスソスフ最鯉ソスノゑソスexit;ソスソスuソスソスソスソスソスニゑソスYソスソスネゑソスソスナゑソスソスソスソスソスソスソスソスB ソスソスソスソスソスワでで趣ソスソスsソスソスソスト、ソスtソスHソス[ソスソスソスソスソスソスソスフ掲ソスソスソスツは表ソスソスソスナゑソスソスワゑソスソスB

  5. ソスLソスソスソスフ保托ソス
    ソスtソスHソス[ソスソスソスソスソスソスソスフ掲ソスソスソスツゑソスソス\ソスソスソスナゑソスソスソス謔、ソスノなゑソスAソスLソスソスソスソスソスLソスソスソスソスソスト托ソスソスMソスソスソス骼厄ソスソスソスナゑソスソスソス謔、ソスノなゑソスワゑソスソスソスソスソスソスA ソスtソスHソス[ソスソスソスソス[ソスソスソスソスソスソスソスソス]ソス{ソス^ソスソスソスソスソスソスソスソスソストゑソスソスLソスソスソスヘ保托ソスソスソスソスソスワゑソスソスソスB ソスソスソスソスソスソスソスン用ソスフコソス[ソスhソスソスソスソスソスソスソスフでゑソスソスソスソス逑厄ソスRソスナゑソスソスB
    ソスソスソスソスナはソスソスCソスソスソスソスソス[ソス`ソスソスソスノ擾ソスソスソスソスソスソスンコソス[ソスhソスソス}ソスソスソスソスソスワゑソスソス蛯、ソスB
    #ソスfソス[ソス^ソスtソス@ソスCソスソスソスフ記ソスソスソスソスソス謫セ
    @DATA = data_read($datafile);
    #ソストび出ソスソスソスソスソスソスソスノゑソス髟ェソスソス
    if ($QUERY{'action'} eq 'regist') {
      #ソスtソスHソス[ソスソスソスソス[ソスソスソスソスソスソスソスソス]ソス{ソス^ソスソスソスソスソスソスソスソスソスソスソスソス
      #ソスソスソスンまでの記ソスソスソスフ撰ソスソス数ゑソスソスソス
      $count = @DATA;
      #ソスナ托ソスLソス^ソスソスソスソス闡スソスソスソスネゑソスホ古ゑソスソスLソスソスソスソスソス除
      if ($max <= $count) { pop(@DATA); }
      #ソスVソスソスソスソスソスLソスソスソスフコソス[ソスhソスヤ搾ソスソス生撰ソス
      if ($count) {
        #ソスナ鯉ソスノ難ソスソスeソスソスソス黷スソスLソスソスソスフコソス[ソスhソスソス1ソスvソスソスソスXソスソスソスソス
        %FIELD = fields($DATA[0]);
        $newcode = $FIELD{'code'} + 1;
      } else {
        #ソスLソスソスソスソス1ソスソスソスソスソスネゑソスソスソスホ最擾ソスソスフコソス[ソスhソスヘ1
        $newcode = 1;
      }
      #ソスLソス^ソスソスソスソスfソス[ソス^ソスフフソスHソス[ソス}ソスbソスgソス整ゑソスソスソス
      $value = join("\t",
        "code=$newcode",
        "date=$datenow",
        "name=$QUERY{'name'}",
        "email=$QUERY{'email'}",
        "subject=$QUERY{'subject'}",
        "comment=$QUERY{'comment'}",
        "\n"
      );
      #ソスソスソスラての記ソスソスソスフ先頭ソスノ追会ソス
      unshift(@DATA, $value);
      #ソスTソス[ソスoソスノ保托ソス
      data_save($datafile, @DATA);
    }
    #HTMLソスフヘソスbソス_ソス[ソスソス骭セ
    html_head($bg, $text, $link, $vlink, $alink, $bgimg, 10, 10, '', $fontsize);
    ソスツゑソスソスソスソスソスソスソスソスヌ会ソスソスソスソス黷スソスソスソスCソスソスソスソスソス[ソス`ソスソスソスナゑソスソスB ソスtソスHソス[ソスソスソス成ソスソスソスノゑソスソスソスソスソスソスソスワゑソスソスソスソスソスソスAソスtソスHソス[ソスソスソスソス[ソスソスソスソスソスソスソスソス]ソス{ソス^ソスソスソスソスソスソスソスソスソスソスソスニ、 ソスBソスソスソスtソスBソス[ソスソスソスhソスソスactionソスノゑソスregistソスフデソス[ソス^ソスソスソスソスソスMソスソスソスソストゑソスソスワゑソスソスB perl-lib.plソスソスreadpartsソスヨ撰ソスソスヘ、ソスtソスHソス[ソスソスソスソスソス迹暦ソスソス黷スソスfソス[ソス^ソスヘ連ソスzソスzソスソス%QUERYソスノ保托ソスソスソスソスワゑソスソスフで、 ソスtソスHソス[ソスソスソスソス[ソスソスソスソスソスソスソスソス]ソス{ソス^ソスソスソスソスソスソスソスソスソス黷スソスフゑソスソスソスmソス驍スソス゚にゑソス$QUERY{'action'}ソス調べ、 registソスネら書ソスソスソスソスソスン擾ソスソスソスソスソスソスLソスqソスソスソスワゑソスソスB
    ソスソスソスソスナフソスHソス[ソスソスソスノ記ソスソスソスソスソスLソスソスソスソスソスソス[ソスソスソスソスソスソスソスソス]ソス{ソス^ソスソスソスソスソスソスソスソスソスニデソス[ソス^ソスtソス@ソスCソスソスソスustartbbs.txtソスvソスソスソス成ソスソスソスソスA ソスソスソスソスソスソスニ記ソスソスソスヘ保托ソスソスソスソスソストゑソスソスワゑソスソスB

  6. ソスLソスソスソス\ソスソスソスCソスソスソス[ソスWソスソスソスfソスUソスCソスソスソスソスソスソス ソスLソスソスソスソスソスソスソスeソスナゑソスソスAソスロ托ソスソスソスソスソストゑソスソストゑソスソス\ソスソスソスナゑソスソスネゑソスソスソスホ掲ソスソスソスツにはなゑソスワゑソスソスソスB ソスソスソスヘ記ソスソスソスソス\ソスソスソスソスソスソスCソスソスソス[ソスWソスソスソスzソス[ソスソスソスyソス[ソスWソス成ソス\ソスtソスgソスナデソスUソスCソスソスソスソスソスワゑソスソスB ソスソスソスソスソスフ記ソスソスソスヘプソスソスソスOソスソスソスソスソスナ表ソスソスソスナゑソスソスワゑソスソスフで、ソスfソスUソスCソスソスソスソスソスソスフゑソス1ソスソスソスフ記ソスソスソスソスソスソスソスナ鯉ソスソス\ソスナゑソスソスB
    ソスソスソスソスソスノ鯉ソスソスソス ソスソスソスソスソスO ソスソスソス[ソスソスソスAソスhソスソスソスX ソスソスソスeソスソス
    ソスLソスソスソスフ本ソスソス
    ソスソスソスeソスソスソス黷スソスソスソスレは、ソスuソスソスソスソスソスvソスAソスuソスソスソス[ソスソスソスAソスhソスソスソスXソスvソスAソスuソスソスソスソスソスvソスAソスuソスRソスソスソスソスソスgソスvソスナゑソスソスソスソスA ソスソスソスeソスソスソス黷スソスソスソスtソスソスソスロ托ソスソスソスソスソストゑソスソスワゑソスソスフで表ソスソスソスソスソスソス謔、ソスソスソスCソスAソスEソスgソスソスソス成ソスソスソスワゑソスソスB

  7. ソスGソスfソスBソス^ソスノ抵ソスソスソスtソスソス
    ソスtソスHソス[ソスソスソスフデソスUソスCソスソスソスソスソスソスソスlソスノ新ソスソスソスソスソスGソスfソスBソス^ソスソスソスJソスソスソスAソス\ソス[ソスXソス張ゑソスtソスソスソスワゑソスソスB ソスMソスメのホソス[ソスソスソスyソス[ソスWソス成ソス\ソスtソスgソスナは趣ソスソスフようソスノ表ソスソスソスソスソスソスワゑソスソスソスソスB
    <table border="1" width="448">
       <tr><td width="438">
       <table border="0" width="100%" cellspacing="0" cellpadding="4">
           <tr> <td bgcolor="#000080"><font color="#FFFFFF">ソスソスソスソスソスノ鯉ソスソスソス</font></td>
           <td bgcolor="#000080"><font color="#FFFFFF">ソスソスソスソスソスO</font></td>
           <td bgcolor="#000080"><font color="#FFFFFF">ソスソスソス[ソスソスソスAソスhソスソスソスX</font></td>
           <td bgcolor="#000080" align="right"><font color="#FFFFFF">ソスソスソスeソスソス</font></td>
           </tr>
       </table>
       </td></tr>
       <tr><td width="438">
           <blockquote>
           ソスLソスソスソスフ本ソスソス
           </blockquote>
       </td></tr>
    </table>
    ソスソスソスソスソスノゑソスソスAソスtソスHソス[ソスソスソスフ設計ソスソスソスソスソスlソスsソスvソスネスソスyソス[ソスXソスニダソスuソスソスソスNソスHソス[ソスeソス[ソスVソスソスソスソスソスソスソスLソスソスワゑソスソスフで、 ソス除ソスソスソスAprintソスソスソスニ、\n";ソスソスヌ会ソスソスソスソスワゑソスソスB
    ソスソスソスソスニ趣ソスソスフようソスネコソス[ソスhソスソスソスソスソスソスソスソスソスワゑソスソスB
    print "<table border=1 width=448>\n";
    print "<tr><td width=438>\n";
    print "<table border=0 width=100% cellspacing=0 cellpadding=4>\n";
    print "<tr> <td bgcolor=#000080><font color=#FFFFFF>ソスソスソスソスソスノ鯉ソスソスソス</font></td>\n";
    print "<td bgcolor=#000080><font color=#FFFFFF>ソスソスソスソスソスO</font></td>\n";
    print "<td bgcolor=#000080><font color=#FFFFFF>ソスソスソス[ソスソスソスAソスhソスソスソスX</font></td>\n";
    print "<td bgcolor=#000080 align=right><font color=#FFFFFF>ソスソスソスeソスソス</font></td>\n";
    print "</tr>\n";
    print "</table>\n";
    print "</td></tr>\n";
    print "<tr><td width=438>\n";
    print "<blockquote>\n";
    print "ソスLソスソスソスフ本ソスソス\n";
    print "</blockquote>\n";
    print "</td></tr>\n";
    print "</table>\n";

  8. ソスソスソスCソスソスソスソスソス[ソス`ソスソスソスノコソスsソス[
    ソスソスソスソスソスソスソスソスソスLソスソスソスソス\ソスソスソスソスソスソスRソス[ソスhソスソスソスXソスNソスソスソスvソスgソスフソスソスCソスソスソスソスソス[ソス`ソスソスソスノコソスsソス[ソスソスソスト抵ソスソスソスtソスソスソスワゑソスソスB ソスLソスソスソスヘ、ソスtソスHソス[ソスソスソスフ会ソスソスノ表ソスソスソスソスソスワゑソスソスフで、&form();ソスフ抵ソスソスソスノ抵ソスソスソスtソスソスソストゑソスソスソスソスソスソスソスソスB ソスPソスノ抵ソスソスソスtソスソスソスソスソスソスソスソスソスナはデソス[ソス^ソスtソス@ソスCソスソスソスフ難ソスソスeソスソス\ソスソスソスソスソス驍アソスニはでゑソスソスワゑソスソスソスフで、ソスRソス[ソスhソスソスヌ会ソスソスソスソスワゑソスソスB
    &form();
    foreach (@DATA) {
       %FIELD = fields($_);
       print "<table border=1 width=100%>\n";
           print "<tr><td>\n";
           print "<table border=0 width=100% cellspacing=0 cellpadding=4>\n";
               print "<tr> <td bgcolor=#000080><font color=#FFFFFF>$FIELD{'subject'}</font></td>\n";
               print "<td bgcolor=#000080><font color=#FFFFFF>$FIELD{'name'}</font></td>\n";
               print "<td bgcolor=#000080><font color=#FFFFFF>$FIELD{'email'}</font></td>\n";
               print "<td bgcolor=#000080 align=right><font color=#FFFFFF>$FIELD{'date'}</font></td>\n";
               print "</tr>\n";
           print "</table>\n";
           print "</td></tr>\n";
           print "<tr><td>\n";
           print "<blockquote>\n";
           print "$FIELD{'comment'}\n";
           print "</blockquote>\n";
           print "</td></tr>\n";
       print "</table>\n";
       print "<br>\n";
    }
    print "</body></html>\n";
    exit;
    foreachソスヘ、ソスソスソス[ソスvソスソスソス゚ゑソス@DATAソスフ撰ソスソスソスソスソスソスJソスソスヤゑソスソスワゑソスソスB fieldsソスヨ撰ソスソスヘ、perl-libソスフ関撰ソスソスナキソス[=ソスfソス[ソス^ソス`ソスソスソスフ包ソスソスソスソスソスソスAソスzソスzソスソスノ包ソスソスソスソスソスソストゑソスソスソスワゑソスソスB ソスソスソスソスソスソスソスソスソスト、ソスfソス[ソス^ソスロ托ソスソスソスソスソス"name=ソスソスソスソスソスO"ソスナ保托ソスソスソスソスソストゑソスソスソスソス$FIELD{'name'}ソスノ厄ソスソスOソスソスソスiソス[ソスソスソスソスソスニゑソスソスソスソスソスソスニでゑソスソスB ソスfソスUソスCソスソスソスソスソスノ記ソスソスソスソスソストゑソスソスソスソスソスソスtソスBソス[ソスソスソスhソスソスソスソスソスフフソスBソス[ソスソスソスhソスマ撰ソスソスノ置ソスソスソスソスソスソスソスソスホ趣ソスソスロのデソス[ソス^ソスソスソス\ソスソスソスソスソスソスソスニゑソスソスソスソスdソス|ソスソスソスナゑソスソスB ソスソスソスソスナ、ソスミとまゑソスソスヘ掲ソスソスソスツとゑソスソスト難ソスソスしソスワゑソスソスB ソスソスソスソスソスソスソス黷セソスソスソスナは全ソストの記ソスソスソスソスソスソスxソスノ表ソスソスソスソスソスソスAソスSソスソスソスノゑソスソスネゑソスニ托ソスマな趣ソスソスヤゑソスvソスソスソスワゑソスソスB ソスソスソスソスソスナ、ソスwソス閧オソスソスソスソスソスソスソスソス\ソスソスソスソスソスソスソスソス[ソスソスソスフペソス[ソスW]ソス{ソス^ソスソスソスソス\ソスソスソスソスソスソス謔、ソスノゑソスソスワゑソスソス蛯、ソスB
    &form();
    #ソス\ソスソスソスソスソスJソスnソスソスソスソスヤ搾ソスソスニ終ソスソスソスヤ搾ソスソスソスソスvソスZ
    #[ソスソスソスフペソス[ソスW]ソスソスソスソスソスソスソスソスソスホ開ソスnソスフ番搾ソスソスソス
    #ソスOソスフペソス[ソスWソスノ表ソスソスソスソスソスソスソスソスソスソスソスソスJソスn
    if ($QUERY{'next'}) { $start = $QUERY{'next'}; }
    $last = @DATA - 1;
    $end = $start + $pageview - 1;
    #ソス\ソスソスソスソスソスソスソスソスソスfソス[ソス^ソスソスソスソスソスネゑソスソスソスホ最鯉ソスフデソス[ソス^
    if ($end > $last) { $end = $last; }
    foreach ($start .. $end) {
       %FIELD = fields($DATA[$_]);
       print "<table border=1 width=100%>\n";
           print "<tr><td>\n";
           print "<table border=0 width=100% cellspacing=0 cellpadding=4>\n";
               print "<tr> <td bgcolor=#000080><font color=#FFFFFF>$FIELD{'subject'}</font></td>\n";
               print "<td bgcolor=#000080><font color=#FFFFFF>$FIELD{'name'}</font></td>\n";
               print "<td bgcolor=#000080><font color=#FFFFFF>$FIELD{'email'}</font></td>\n";
               print "<td bgcolor=#000080 align=right><font color=#FFFFFF>$FIELD{'date'}</font></td>\n";
               print "</tr>\n";
           print "</table>\n";
           print "</td></tr>\n";
           print "<tr><td>\n";
           print "<blockquote>\n";
           print "$FIELD{'comment'}\n";
           print "</blockquote>\n";
           print "</td></tr>\n";
       print "</table>\n";
       #ソスナ鯉ソスノ表ソスソスソスソスソスソスソスfソス[ソス^ソスソスソスfソス[ソス^ソスフ最鯉ソスナなゑソスソスソスソス
       #[ソスソスソスフペソス[ソスW]ソス{ソス^ソスソスソスソス\ソスソスソスソスソスソス
       if ($end != $last) {
           $next = $end + 1;
           print "<input type=button value=ソスソスソスyソス[ソスW onclick=\"location.href='startbbs.cgi?next=$next'\">\n";
       }
    }
    print "</body></html>\n";
    exit;
    ソスソスソスソスソスソス`ソスDソスDソスDソスソスソスソスナ奇ソス{ソス^ソスフ奇ソスソスソスソスナゑソスソスB
    ソスソスソスソスナ最抵ソスソスソスxソスフ機ソス\ソスソスソスソスソスソスソスソスソスfソスソスソスツの奇ソスソスソスソスナゑソスソスB ソスソスソスニは、ソス^ソスCソスgソスソスソス鞫懶ソスソスAソスソスソスソスソスソスソスsソスソスソスフオソスvソスVソスソスソスソスソスソスtソスソスソス驍セソスソスソスナゑソスソスB

  9. ソスIソスvソスVソスソスソスソスソスフ追会ソス
    ソスyソス^ソスCソスgソスソスソス鞫懶ソスソスtソスソスソスソス ソスz
    #HTMLソスフヘソスbソス_ソス[ソスソス骭セ
    html_head($bg, $text, $link, $vlink, $alink, $bgimg, 10, 10, '', $fontsize);
    #ソス^ソスCソスgソスソスソス鞫懶ソスソス\ソスソス
    print "<img src=title.gif>\n";

    #ソスtソスHソス[ソスソスソスソスソストび出ソスソス
    &form();
    ソスyソスソスソスソスソスソスソスs ソスz
    print "<blockquote>\n";
    #ソスソスソスソスソスソスソスs
    $FIELD{'comment'} =~ s/\r/<br>/g;
    print "$FIELD{'comment'}\n";
    print "</blockquote>\n";
    ソスyソスソスソス[ソスソスソスAソスhソスソスソスXソスノソスソスソスソスNソスソスtソスソスソスソス ソスz
    print "<td bgcolor=#000080><font color=#FFFFFF>";
    $FIELD{'email'} && print "<a href=mailto:$FIELD{'email'}>$FIELD{'email'}</a>";
    print "</font></td>\n";
    ソスソスソスソスソスワでゑソスソスソスソスソスソスiソスTソスソスソスvソスソスソスRソス[ソスhソスヘゑソスソスソスソスソスソスA ソスTソスソスソスvソスソスソスヘゑソスソスソスソスソスナゑソスソスBソスソスソスソスソスソスソスフコソス[ソスhソスニ費ソスrソスソスソストみてゑソスソスソスソスソスソスソスソスB
Copyright 2004 Terra. All rights reserved. No reproduction or republication without written