ActivePerl For 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ソスソスソスソスソス
Windowsソスp MySQL
  MySQL ソスフイソスソスソスXソスgソス[ソスソス
  • WindowsソスナゑソスMySQLソスソス ソス~ソスソスソス[ソスTソスCソスgソスソスソスソス_ソスEソスソスソスソスソス[ソスhソスソスソスワゑソスソスB Windowsソスナゑソスzipソス`ソスソスソスナ茨ソスソスkソスソスソス黷スソスAVarsion4ソスネゑソスumysql-4.0.20-win.zipソスvソスフようソスソス ソスoソス[ソスWソスソスソスソスソスiソスソスソスoソス[ソスソスソスtソスソスソスソスソスtソス@ソスCソスソスソスソスソスノなゑソスソストゑソスソスワゑソスソスB

  • C:ソスhソスソスソスCソスuソスフソスソス[ソスgソスfソスBソスソスソスNソスgソスソスソスソスMySQLソスpソスフデソスBソスソスソスNソスgソスソスソスumysqlソスvソスソスソス成ソスソスソスA ソスソスソスソスソスノ解凍ゑソスソストゑソスソスソスソスソスソスソスソスB
    ソス答ゑソスソス黷スソスtソス@ソスCソスソスソスヘ、C:\mysql ソスノゑソスソスラて厄ソスソスソスソスソスホなゑソスワゑソスソスソスB

  • C:\mysql ソスノ有ソスソスCソスソスソスXソスgソス[ソスソスsetup.exe ソスソスソスソスソスsソスソスソスワゑソスソスB ソスEソスBソスUソス[ソスhソスノ従ソスソスソスソスソスソスソスナゑソスソスソスソスソスネ単ソスノイソスソスソスXソスgソス[ソスソスソスヘ奇ソスソスソスソスソスソスワゑソスソスB
    Windows2000/Xp ソスナゑソスソスソスホ再起ソスソスソスソスソスソスニサソス[ソスrソスXソスソスMySQLソスヘ起ソスソスソスソスソストゑソスソスワゑソスソスB
    ソスソスソスソスソスNソスソスソスソスソスソストゑソスソスネゑソスソスソスホ、C:\mysql\bin ソスソスmysqld.exe ソスソスソスソスソスsソスソスソスワゑソスソスB
  PerlソスソスソスWソスソスソス[ソスソス DBIソスADBDソスフイソスソスソスXソスgソス[ソスソス
  • ソスノ端ソスノ古ゑソスActivePerlソスナなゑソスソスソスソスソスAOLEソスソスソスWソスソスソス[ソスソスソスヘ標ソスソスソスナイソスソスソスXソスgソス[ソスソスソスソスソスソストゑソスソスワゑソスソスフで、 ソスソスソス゚てイソスソスソスXソスgソス[ソスソスソスソスソスソスKソスvソスヘゑソスソスソスワゑソスソスソスB
    #!/user/local/bin/perl

    use DBI;
    print "Content-type: text/plain\n\n";
    exit;
    ソスソスソス黷セソスソスソスフコソス[ソスhソスソスCGIソスソスソスソスソスsソスソスソストエソスソスソス[ソスソスソスoソスヘゑソスソスソスネゑソスソスソスDBIソスヘイソスソスソスXソスgソス[ソスソスソスマみと鯉ソスソスソスソスソスソスニになゑソスワゑソスソスフで、 ソスネ会ソスソスフソスソスWソスソスソス[ソスソスソスCソスソスソスXソスgソス[ソスソスソスヘ費ソスホゑソスソストゑソスソスソスソスソスソスソスソスB

  • ソスGソスソスソス[ソスフ出ソスヘゑソスソス黷スソスソスソスソスDBIソスソスソスCソスソスソスXソスgソス[ソスソスソスソスソスワゑソスソスB
    [ソスXソス^ソス[ソスg]ソスソスソスjソスソスソス[ソスフ「ソスtソス@ソスCソスソスソスソスソスソスソスwソス閧オソスト趣ソスソスsソスvソスナ、
    command
    ソスニタソスCソスvソスソスソスソスDOSソスVソスFソスソスソスソスソスNソスソスソスソスソスワゑソスソスB
    C:\> ppm
    PPM interractive shell (2.2.0) - type 'help' for available command
    PPM> search DBI
    PPM> install DBI
    Install package 'DBI?' (y/N): y
    ppm ソスニタソスCソスvソスソスソスト、PPM ソスRソス}ソスソスソスhソスソスソスNソスソスソスソスソスワゑソスソスB
    search DBI ソスナ鯉ソスソスソスソスソスソスADBI ソスソスソス\ソスソスソスソスソスソスソスホ、
    install DBI ソスナイソスソスソスXソスgソス[ソスソスソスソスソストゑソスソスソスソスソスソスソスソスB

    ソスソスソスソスナデソス[ソス^ソスxソス[ソスXソスヨのアソスNソスZソスXソスフ擾ソスソスソスソスヘ奇ソスソスソスソスナゑソスソスB
    ソスソスソスニは趣ソスソスロにイソスソスソス^ソス[ソスtソスFソス[ソスXソスソスソス成ソスソスソストアソスNソスZソスXソスソスソス驍セソスソスソスナゑソスソスB
  ソスfソス[ソス^ソスxソス[ソスXソスフ管暦ソス
WindowsソスノゑソスWebminソスフようソスネソスソスソスソス[ソスgソス\ソスtソスgソスソスソスソスソスンゑソスソスワゑソスソスソスフで、 MySQLソスフデソス[ソス^ソスxソス[ソスXソスソスソスヌ暦ソスソスソスソスソスノは、GUIソスナ難ソスソスすソスソスMySQLソスNソスソスソスCソスAソスソスソスgソスソスソスgソスpソスソスソスワゑソスソスB
MySQLソスTソス[ソスoソスソスソスCソスソスソスXソスgソス[ソスソスソスソスソスソスソスソスソスソスソスナゑソスmysqlソスRソス}ソスソスソスhソスヘ使ソスpソスツ能ソスナゑソスソスソスソスA ソスRソス}ソスソスソスhソスソスソスCソスソスソスフ托ソスソスソスナゑソスソスフで簡単ソスナはゑソスソスソスワゑソスソスソスBソスRソス}ソスソスソスhソスソスソスoソスソスソス驍セソスソスソスナゑソスソスソスソスJソスナゑソスソスB MySQLソスNソスソスソスCソスAソスソスソスg(mysqlcc)ソスソスソスgソスソスソスホ、ソスハ擾ソスソスWindowsソスAソスvソスソスソスPソス[ソスVソスソスソスソスソスソスソスlソスノ、 GUIソスナ托ソスソスがソスツ能ソスノなゑソスワゑソスソスB ソスCソスソスソスXソスgソス[ソスソスソスソスソス@ソスソスAソスソスソスソス@ソスヘ趣ソスソスソスソスuMySQLソスRソスソスソスgソスソスソス[ソスソスソスZソスソスソス^ソスvソスソス ソスソスソスQソスニゑソスソスソスソスソスソスソスソスB
  MySQLソスヨのアソスNソスZソスX
  • ソスfソス[ソス^ソスxソス[ソスXソスTソス[ソスoソスソスソスソスソスソスソスナゑソスソスソスソスソスAソスNソスZソスXソスソスソス@ソスソスUNIX/Linuxソスナと全ソスソスソスソスソスソスソスナゑソスソスB
    #!/usr/local/bin/perl
    # DBIソスソスソスWソスソスソス[ソスソスソスソスヌ搾ソスソスソス
    use DBI;
    # ソスfソス[ソス^ソスxソス[ソスXソスソスソスソスン抵ソス
    $database = "zip";
    # ソスzソスXソスgソスソスソスソスン抵ソス
    $hostname ="localhost";
    # ソスソスソス[ソスUソスソスソスソスン抵ソス
    $user = "root"; # ソスfソス[ソス^ソスxソス[ソスXソスノパソスXソスソスソス[ソスhソスソスン定しソストゑソスソスソスホ指ソスソス
    $password = "********";
    print "Content-type: text/html\n\n";
    print "<html>"
    print "<body>"

    # ソスfソス[ソス^ソスxソス[ソスXソスフオソスuソスWソスFソスNソスgソスソスソス成ソスソスソスト接托ソス
    $dsn="DBI:mysql:database=$database:host=$hostname";
    $dbh = DBI->connect($dsn,$user,$password);

    # ソスソスソスmソスソスソスソスXソスヨ番搾ソスソスソスソスノ取得
    # ソス謫セソスソスソスソスソスeソス[ソスuソスソスソスノソスソスソスソス[ソスVソスソスソスソスソスナ都ソスソスソス{ソスソスソスソスソスソスヌ会ソスソスソスソストゑソスソスソス
    $rs = $dbh->prepare("SELECT iptable.*,pretable.name FROM iptable LEFT JOIN pretable ON iptable.pre=pretable.pre WHERE iptable.pre = 39 ORDER BY iptable.code;");
    $rs->execute();
    # ソス謫セソスソスソスソスソスソスソスRソス[ソスhソスZソスbソスgソスフ撰ソスソスソスソスソスソスソスソス[ソスvソスソスソスト表ソスソス
    while(@FIELD = $sql->fetchrow()) {
      print "$FIELD[1] $FIELD[4]$FIELD[3]<br>\n";
    }
    # ソスソスソスRソス[ソスhソスZソスbソスgソスソスツゑソスソスソス
    $rs->Close();
    # ソスfソス[ソス^ソスxソス[ソスXソスソスツゑソスソスソス
    $dbh->Close();
    print "</body></html>";
    exit;
    ソスソスソスソスナは、SELECTソスソスソスソスソスソスソストみまゑソスソス蛯、ソスB
    SELECT iptable.*,pretable.name ソスソスソスソスヘ、ソスeソス[ソスuソスソスソスuiptableソスvソスフゑソスソスラてのフソスBソス[ソスソスソスhソスニ、 ソスeソス[ソスuソスソスソスupretableソスvソスフ「nameソスvソスtソスBソス[ソスソスソスhソスソスソス謫セソスソスソスネゑソスソスソスソスニ鯉ソスソスソスソスソスソスニで、
    FROM iptable LEFT JOIN pretable ON iptable.pre=pretable.pre ソスヘ、iptableソスソスpreソスtソスBソス[ソスソスソスhソスソスpretableソスソスpreソスtソスBソス[ソスソスソスhソスフ茨ソスvソスソスソス髟ィソスソスソスソスiptableソスノ追会ソスソスソスソスソスニ鯉ソスソスソスソスソスソスニになゑソスワゑソスソスB ソスソスソスフ趣ソスソスナ、iptableソスフ都ソスソスソス{ソスソスソスヤ搾ソスソスソスpretableソスフ都ソスソスソス{ソスソスソスソスソスノ変奇ソスソスソスソス黹鯉ソスRソス[ソスhソスZソスbソスgソスノ追会ソスソスソスソスソスソスフでゑソスソスB
    WHERE iptable.pre = 39 ソスヘ、iptableソスフ都ソスソスソス{ソスソスソスヤ搾ソス39(ソスソスソスmソスソス)ソス抽出
    ORDER BY iptable.code ソスヘ、ソスXソスヨ番搾ソスソスソスソスノ包ソスソスム替ゑソスソスソスニ鯉ソスソスソスソスソスソスニになゑソスワゑソスソスB
Copyright 2004 Terra. All rights reserved. No reproduction or republication without written