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ソスソスソスソスソス
ソスソスソスソスソスフ趣ソスソスソスソス
ソスソスソスフコソス[ソスiソス[ソスナは、ソスtソスソスソス[ソスナ鯉ソスソスJソスソスソスソストゑソスソスソスCGIソスXソスNソスソスソスvソスgソスソスソスソスソスソスソスソスソスフ好ソスンのデソスUソスCソスソスソスノ変更ソスソスソスソスソスソスA CGIソスソスソスフゑソスソスフに機ソス\ソスソスヌ会ソスソスソスソストカソスXソス^ソス}ソスCソスYソスソスソスソスソスソス@ソスソスソスwソスKソスソスソスワゑソスソスB ソスルとゑソスヌゑソスHTMLソス^ソスOソスソスAJavaソスXソスNソスソスソスvソスgソスAソスXソス^ソスCソスソスソスVソス[ソスgソスソスCGIソスノ組ソスン搾ソスソズ包ソスソス@ソスソスソスソスソスミ介しソスワゑソスソスB
  ソスソスソスソスソスNソスAソス{ソス^ソスソスソスソスソス鞫懶ソスノ変更ソスソスソスソス
ソスハ擾ソスAソスソスソスソスソスノソスソスソスソスNソスソスtソスソスソスソス鼾ソスソスソスAソスソスソスJソス[ソス^ソスOソスソスソスgソスpソスソスソスワゑソスソスソスソスA ソスAソスソスソスJソス[ソス^ソスOソスナは大しソスト包ソスソスソスソスソスソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスソスB ソスワゑソスソスAソスtソスHソス[ソスソスソスノは必ソスソスソスニ鯉ソスソスソスソストゑソスソスソスソスルどボソス^ソスソスソスソスソスLソスソスワゑソスソスBソスソスソスフボソス^ソスソスソスソスソスワゑソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスワゑソスソスソスB ソスソスソスソスソスナゑソスソスソスソスソスソス鞫懶ソスノゑソスソストみまゑソスソス蛯、ソスB
  • ソスAソスソスソスJソス[ソス^ソスOソスソスソス{ソス^ソスソスソスノ変更
    print "<a href=bbs.cgi>ソスソスソスフペソス[ソスW</a>\n";
    ソスフようソスネタソスOソスヘ、
    print "<input type=button value=ソスソスソスフペソス[ソスW onclick=\"location=\'bbs.cgi\'\">\n";
    ソスニ擾ソスソスソスソスソスソスニでフソスHソス[ソスソスソスフボソス^ソスソスソスノ変更ソスナゑソスソスワゑソスソスB

  • ソスAソスソスソスJソス[ソス^ソスOソスソスソス鞫懶ソスノ変更ソスソスソスソス
    ソス鞫懶ソスソスソスgソスpソスソスソストソスソスソスソスNソスソスtソスソスソスソス鼾ソスヘ、
    print "<a href=bbs.cgi><img src=bbs.gif border=0></a>\n";
    ソスニ擾ソスソスソスソスワゑソスソスソスソスAソスソスソスソスソスニ簡単ソスソス
    print "<img src=bbs.gif onclick=\"location=\'bbs.cgi\'\">\n";
    ソスニ擾ソスソスソスソスソスソスニゑソスソスナゑソスソスワゑソスソスB

  • ソスtソスHソス[ソスソスソスソスsubmitソス{ソス^ソスソスソスソスソス鞫懶ソスノゑソスソスソス
    ソスtソスHソス[ソスソスソスノは必ソスソスソスニ鯉ソスソスソスソストゑソスソスソスソスルゑソスsubmitソス{ソス^ソスソスソスソスソスLソスソスワゑソスソスB
    print "<input type=submit value=ソスソスソスMソスソスソスソス>\n";
    ソスソスソスフボソス^ソスソスソスソスソス鞫懶ソスノ変更ソスナゑソスソスワゑソスソスB
    print "<input type=image border=0 src=submit.gif>\n";
    ソスソスソスフようソスノ擾ソスソスソスソスソスソスニゑソスソスナゑソスソスワゑソスソスソスソスAJavaソスソスソスgソスpソスソスソスソス
    print "<img src=submit.gif onclick=\"submit();\">\n";
    ソスニゑソスソス骼厄ソスソスソスナゑソスソスワゑソスソスBソスソスソスソスJavaソスソスソスgソスpソスソスソスソスホ、ソスソスソスZソスbソスgソスソスソス成ソスナゑソスソスワゑソスソスB
    print "<img src=reset.gif onclick=\"reset();\">\n";
    ソスワゑソスJavaソスソスソスgソスpソスソスソスソスニ、1ソスyソス[ソスWソスノ包ソスソスソスソスフフソスHソス[ソスソスソスソスソスLソスソス鼾ソスナゑソスソスAソスtソスHソス[ソスソスソスソスソスwソス閧オソスト托ソスソスMソスナゑソスソスワゑソスソスB
    print "<img src=bbs.gif onclick=\"form1.submit();\">\n";
    ソスソスソスソスソスナ気ソスソスソスツゑソスソスネゑソスソスソスホなゑソスネゑソスソスフは、Javaソスソスsubmit();ソスナ托ソスソスMソスソスソス黷スソス鼾ソスヘ、ソスソスソスフボソス^ソスソスソスフプソスソスソスpソスeソスBソスヘ托ソスソスMソスソスソスソスワゑソスソスソスB

  ソスソスソスレゑソスヌ会ソスソスソスソスソス
ソスtソスソスソス[ソスナ鯉ソスソスJソスソスソスソストゑソスソスソスCGIソスノなゑソスソスソスソスレゑソスヌ会ソスソスソスソス骼厄ソスソスソスナゑソスソスワゑソスソスB ソスソスソスニゑソスソスホ、ソスソスソスTソスCソスgソスナ鯉ソスソスJソスソスソストゑソスソスソスuソスfソスソスソスツ」ソスニ鯉ソスソスソスソスソスソスフ掲ソスソスソスツでゑソスE-MailソスソスソスLソスソスソスソスソス骰ソスレゑソスソスソスソスソスソスソスソスVソスソスソスvソスソスソスネ包ソスソスナゑソスソスB ソスソスソスフ掲ソスソスソスツにゑソスソスソスソスソスソスソスソスナゑソスソスソスソスAE-Mailソスフ搾ソスソスレゑソスヌ会ソスソスナゑソスソスワゑソスソスB
  • ソスtソスHソス[ソスソスソスノ搾ソスソスレゑソスヌ会ソスソスソスソスソス
    ソスソスソスヘとゑソスソスソスソスソスAソスtソスHソス[ソスソスソスノ搾ソスソスレゑソスソスソスソスソスソスソスソスノは記ソスソスソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスソスB ソスソスソスフ掲ソスソスソスツのフソスHソス[ソスソスソスヘサソスuソスソスソス[ソス`ソスソスソスusub editformソスvソスナ抵ソス`ソスソスソスソストゑソスソスワゑソスソスB
    sub editform {
      my($editcode) = @_;
      my($year, $month, $day) = split(/\//, $birthday);
      print "<input type=hidden name=action value=regist>\n";
      print "<input type=hidden name=editcode value=$editcode>\n";
      print "<table border=1 cellspacing=0 cellpadding=2>\n";
      print "<td align=center>ソスソスソスソス</td>\n";
      print "<td>";
      if ($sex) {
        print "<input type=radio name=sex value=0>ソスjソスソス\n";
        print "<input type=radio checked name=sex value=1>ソスソスソスソス\n";
      } else {
        print "<input type=radio checked name=sex value=0>ソスjソスソス\n";
        print "<input type=radio name=sex value=1>ソスソスソスソス\n";
      }
      print "</td></tr>\n";
      print "<tr><td align=center>$DOWN[0]</td>\n";
      print "<td><select name=down size=1>\n";
      foreach (1 .. @DOWN-1) {
        if ($down == $_) { $selected = ' selected'; }
        else { $selected = ''; }
        print "<option$selected value=$_>$DOWN[$_]</option>\n";
      }
      print "</select></td></tr>\n";
      print "<tr><td align=center>ソスソスソスソス</td>\n";
      print "<td><input type=text size=24 name=name value=\"$name\">\n";
      print "ソスpソスXソスソスソス[ソスh<input type=password name=pass value=\"$pass\">
    \n";
      print "ソスマ更ソスソスソスソスソスソスAソス除ソスソスソスノはパソスXソスソスソス[ソスhソスソスソスKソスvソスナゑソスソスB</td></tr>\n";
      print "<tr><td align=center>E-Mail</td>\n";
      print "<td><input type=text size=24 name=email value=\"$email\"></td></tr>\n";
      print "<tr><td align=center valign=top>ソスRソスソスソスソスソスg</td>\n";
      print "<td><textarea name=comment cols=60 rows=12>$comment</textarea></td></tr>\n";
      print "</table>\n";
      print "<input type=submit name=regist value=ソスネ擾ソスフ難ソスソスeソスナ難ソスソスeソスソスソスソス>\n";
      if ($editcode) {
        print "<input type=submit name=delete value=ソスソスソスフ記ソスソスソスソスソス除ソスソスソスソス>\n";
      }
    }
    ソスヤ趣ソスソスナ擾ソスソスソスソス黷スソスソスソスソスソスソスソスヌ会ソスソスソスソス黷スソスRソス[ソスhソスナゑソスソスB ソスソスソス黷セソスソスソスソスE-MailソスフフソスBソス[ソスソスソスhソスヘ追会ソスソスソスソスソスワゑソスソスソスソスB

  • ソスロ托ソスソスtソスBソス[ソスソスソスhソスフ追会ソス
    ソスtソスHソス[ソスソスソスノ搾ソスソスレゑソスヌ会ソスソスソスソス驍セソスソスソスナは難ソスソスヘゑソスソス驍アソスニゑソスソスナゑソスソストゑソスCGIソスソスソスソスソスヘゑソスソス黷スソスfソス[ソス^ソスソスロ托ソスソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスソスB ソスソスソスソスソスナ、ソスtソス@ソスCソスソスソスノ保托ソスソスソスソスソスtソスBソス[ソスソスソスhソスソスヌ会ソスソスソスソストフソスHソス[ソス}ソスbソスgソス整ゑソスソスワゑソスソスB ソスuソスfソスソスソスツ」ソスナは、ソスVソスソスソスソスソスLソスソスソスソスロ托ソスソスソスソスソス鼾ソスニ、ソスマ更ソスソスソスソスソスソスソス黷スソス鼾ソスフフソスHソス[ソス}ソスbソスgソスナは異なゑソスワゑソスソスフで、 ソスソスソス黷シソスソスン定すソスソスKソスvソスソスソスソスソスソスワゑソスソスBソスワゑソスソスヘ、ソスVソスKソスoソス^ソスソスソスフフソスHソス[ソス}ソスbソスgソスナゑソスソスB
    $value = join("\t",
      "code=$newcode",
      "date=$DATE",
      "sex=$QUERY{'sex'}",
      "down=$QUERY{'down'}",
      "name=$QUERY{'name'}",
      "pass=$QUERY{'pass'}",
      "email=$QUERY{'email'}",
      "comment=$QUERY{'comment'}",
      "\n"
    ););
    ソスソスLソスヤ趣ソスソスフ行ソスソスソスヌ会ソスソスソスソス黷スソスソスソス[ソスソスソスAソスhソスソスソスXソスフフソスBソス[ソスソスソスhソスナゑソスソスB ソスソスソスlソスノ、ソスマ更ソスソスソスソスソスソスソス黷スソス鼾ソスフフソスHソス[ソス}ソスbソスgソスヨゑソスソスtソスBソス[ソスソスソスhソスソスヌ会ソスソスソスソストゑソスソスソスソスソスソスソスソスB
    $line = join("\t",
      "code=$FIELD{'code'}",
      "date=$FIELD{'date'}",
      "sex=$QUERY{'sex'}",
      "down=$QUERY{'down'}",
      "name=$QUERY{'name'}",
      "pass=$QUERY{'pass'}",
      "email=$QUERY{'email'}",
      "comment=$QUERY{'comment'}",
      "\n"
    );

  • ソスソスソス[ソスソスソスAソスhソスソスソスXソスフ表ソスソス
    ソスソスソスソスソスワでで、ソスソスソス[ソスソスソスAソスhソスソスソスXソスソスソスLソスソスソスソスソスト保托ソスソスソスソス驍アソスニは可能ソスノなゑソスワゑソスソスソスソスB ソスソスヘ、ソスソスソスフソスソス[ソスソスソスAソスhソスソスソスXソスソスソスヌゑソスソスgソスソスソスソスソスナゑソスソスBソスソスソスソスソスナは、ソスLソスソスソスフタソスCソスgソスソスソスノ表ソスソスソスソスソストみまゑソスソス蛯、ソスB ソスソスソスeソスLソスソスソスヘ、ソスソスソスCソスソスソスソスソス[ソス`ソスソスソスフ最鯉ソスフセソスNソスVソスソスソスソスソスナゑソスソスB
    foreach ($pline .. $page_end) {
      if ($i != 1) { print "<br>\n"; }
      %FIELD = fields($MATCH[$_]);
      &boxtop($tablewidth);
      print "<table border=0 cellspacing=0 cellpadding=2 width=100%>\n";
      print "<td bgcolor=$bg><input type=radio name=code value=$FIELD{'code'}></td>\n";
      print "<td bgcolor=$bg>$FIELD{'name'}</td>\n";
      print "<td bgcolor=$bg>$DOWN[$FIELD{'down'}]</td>\n";
      print "<td bgcolor=$bg>";
      if ($FIELD{'sex'}) { print "ソスソスソスソス"; } else { print "ソスjソスソス"; }
      print "<td bgcolor=$bg>";
      if ($FIELD{'email'} =~ /[\w-]+\@[\w\.\-]*/) {
        print "<a href=mailto:$FIELD{'email'}>$FIELD{'email'}</a>";
      }
      print "</td>\n";
      print "<td bgcolor=$bg align=right>", jst_time($FIELD{'date'}), "</td></tr>\n";
      $FIELD{'comment'} =~ s/\r/<br>/g;
      $FIELD{'comment'} =~ s/ / /g;
      print "<td></td><td colspan=5>$FIELD{'comment'}</td></tr>\n";
      print "</table>\n";
      &boxbottom();
      $i++;
    }

  • ソスマ更ソスソスソスソスソスソスソスフプソスソスソスソスソスvソスg
    ソスソスソスソスナ、ソスソスソスヘゑソスソス黷スソスソスソス[ソスソスソスAソスhソスソスソスXソスヘフソス@ソスCソスソスソスノ保托ソスソスソスソスソスAソスソスソス[ソスソスソスAソスhソスソスソスXソスソスソスLソスソスソスソスソスソストゑソスソスソスLソスソスソスヘ、 ソスLソスソスソス齬暦ソスノゑソスソスソスソスソスソスNソスtソスソスソスナ表ソスソスソスナゑソスソスソス謔、ソスノなゑソスワゑソスソスソスソスB ソスハ擾ソスフ掲ソスソスソスツでは、ソスソスソスソスナ奇ソスソスソスソスネのでゑソスソスソスソスAソスソスソスフ「ソスfソスソスソスツ」ソスノは、ソスソスソスeソスメと、ソスヌ暦ソスソスメゑソスソスマ更ソスソスソスソスソスナゑソスソスソス@ソス\ソスソスソスLソスソスワゑソスソスB ソスマ更ソスソスソスソスソスソスソスwソス閧ウソスソスソスニ、ソスマ更ソスソスソスソスソスソスソスソスLソスソスソスソスヌみ搾ソスソスン、 ソス\ソス゚フソスBソス[ソスソスソスhソスノプソスソスソスソスソスvソスgソスソスソスニゑソスソストセソスbソスgソスソスソストゑソスソスソスソスネゑソスソスソスホなゑソスワゑソスソスソスB
    } elsif ($QUERY{'action'} eq 'edit') {
      @DUMMY = grep(/^code=$QUERY{'code'}\t/, @DATA);
      if (@DUMMY) {
        %FIELD = fields($DUMMY[0]);
        if (($FIELD{'pass'} && $QUERY{'pass'} eq $FIELD{'pass'}) || $password eq $QUERY{'pw'}) {
        $sex = $FIELD{'sex'};
        $down = $FIELD{'down'};
        $name = $FIELD{'name'};
        $pass = $FIELD{'pass'};
        $email = $FIELD{'email'};
        $comment = $FIELD{'comment'};
    ソスソスソスソスナ、ソスソスソスソスソスナゑソスソスBソスソスソスソスソスソスノ奇ソスソスソスソスiソスソスソスLソスソスワゑソスソスフで、ソスソスソスソスソスソスソスフゑソスソスフと費ソスrソスソスソストみてゑソスソスソスソスソスソスソスソスB
    ソス\ソスソスソスソスソスソスソスソスソスソスソスソスソスソスソストゑソスソスソス鼾ソスヘ、ソスuソスソスソスEソスUソスソス[ソス\ソスソス]-[ソスGソスソスソスRソス[ソスh]-[ソスソスソス{ソス齊ゥソスソスソスIソスソス]ソスソスIソスソスソスソスソストゑソスソスソスソスソスソスソスソスB
Copyright 2004 Terra. All rights reserved. No reproduction or republication without written