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ソスソスソスソスソス
ソスeソスLソスXソスgソスソスソスソスソス[ソスVソスソスソスソスソスVソスbソスvソスフ構ソスz
ソス゚年ソスAソスfソス[ソス^ソスxソス[ソスXソスニゑソスソスソスソスホソスソスソスソス[ソスVソスソスソスiソスソスソスfソス[ソス^ソスxソス[ソスXソスソスソスソスソスソスソスルど撰ソスソスEソスWソスソスソスノなゑソスソストゑソスソスワゑソスソスB ソスソスソスソスヘ、ソスソスソスソスソス[ソスVソスソスソスiソスソスソスfソス[ソス^ソスxソス[ソスXソスソスソスフゑソスソスソスソスxソスネ機ソス\ソスソスソスソスソスソスソストゑソスソス骼厄ソスノ托ソスソスネゑソスワゑソスソスが、 ソスソスハ的ソスノソスソスソスソス^ソスソスソスTソス[ソスoソスナホソス[ソスソスソスyソス[ソスWソスソスソス^ソスcソスソスソスソス鼾ソスヘほとゑソスヌゑソスソスラてのプソスソスソスoソスCソス_ソスソスソスソスソスツゑソスソストゑソスソスワゑソスソスソスB ソスワゑソスソスAソスソスソスソスソスフプソスソスソスoソスCソス_ソスナ使ソスpソスソスソスソストゑソスソスソスUNIXソスナは使ソスpソスソスソスソスソスソスナゑソスソスB ソスソスソスヘでゑソスMySQLソスソスソスgソスソスソスソスソスzソス[ソスソスソスTソス[ソスoソスナの本ソスiソスIソスネデソス[ソス^ソスxソス[ソスXソスAソスNソスZソスXソスソスソスミ介しソスワゑソスソスソスソスA ソスソスソスソスソスナは、ソス{ソスiソスIソスネソスソスソスソス[ソスVソスソスソスiソスソスソスfソス[ソス^ソスxソス[ソスXソスノは及ソスホなゑソスソスワでゑソス ソスeソスLソスXソスgソスfソス[ソス^ソスナソスソスソスソス[ソスVソスソスソスソスソスソスソス\ソスzソスソスソスソスハのデソス[ソス^ソスソスソスソスソスソスソスナゑソスソスソスソスソスソスヌゑソスソスA ソスソスソスソスソスノ難ソスソスさソスソスソスソスソスソス@ソスソスソスlソスソスソストみまゑソスソス蛯、ソスB
  1. ソスソスソスソスソス[ソスVソスソスソスソスソスニゑソス
    ソスハ擾ソスフテソスLソスXソスgソスtソス@ソスCソスソスソスナ全ソスソスソスフ厄ソスソスソスソスAソスソスソスYソスiソスソスソスヌ暦ソスソスソスソスソスfソス[ソス^ソスxソス[ソスXソスソスソス\ソスzソスソスソスソス鼾ソスA
    ソスソスソスmソスソスソスソスソスソスソスソスソスソスソスソスソスmソスソスソスソスソスフ重ソスvソスソスソスソスソスソスソスノ指ソス閧ウソスソストゑソスソスソスlソスソスソスフ厄ソスソスソス
    ソスソスソスmソスソスソスソスソスソスソスソスソスソスソスjソスlソスYソスソスネ托ソスソスソスソスmソスノ面ゑソスソスソスソスソスソスフ厄ソスソスソス
    ソスソスソスmソスソスソスソスソスソスソスソスソスソスソスソスソスヘ難ソスソスソスソスソス4,000mソスソスソスソスソスJ1,000mソスフ暦ソスソスヘ難ソスソスヘ、 ソスソスソス謔サ1ソスソス7,500ソスソスソスNソスOソスAソスCソスソスソスソス阯イソスNソスソスソスソスソス゚難ソスソスソス
    ソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスツ厄ソスQソスソスソスソスソスヒ難ソスソスCソスニ紀ソスノ撰ソスソスソスソスフ奇ソスソスソスソスフ搾ソスソスノゑソスソスソスト撰ソスソスソスソスA 
    ソスQソスフ最ゑソスソス蛯ォソスソスソスソスソスフでは抵ソスソスa20mソスネ擾ソスノゑソスソスソスム、ソスソスソスEソスOソス蜥ェソスソスソスニゑソスソスソスソスソスソストゑソスソスワゑソスソスB
    ソスソスソスフようソスノ都ソスソスソス{ソスソスソスソスソスAソスJソスeソスSソスソスソス[ソスAソス{ソスン厄ソスソスAソスoソスqソスニ記ソスソスソスソスソスソスソスワゑソスソスB
    ソスソスソスソスソスソスソスソスソスソスソスソスソスソスホ茨ソスレでわかソスソスニ思ソスソスソスワゑソスソスソスソスAソスsソスソスソス{ソスソスソスニ、ソスJソスeソスSソスソスソス[ソスヘ難ソスソスソスソスソスソスソスソスが包ソスソスソスナゑソスソスワゑソスソスB
    ソスソスソスSソスソスソスフデソス[ソス^ソスハではゑソスソスソスルど厄ソスソスナはゑソスソスソスワゑソスソスが、ソスソスソスソスA ソスソスソスソスソスソスソスニゑソスソスネゑソスニ托ソスマ厄ソスソスハな領茨ソスナゑソスソス黷セソスソスソスTソス[ソスoソスフ包ソスソスSソスソスソス蛯ォソスソスソスネゑソスワゑソスソスB
    ソスソスソスソスソスナ都ソスソスソス{ソスソスソスソスソスニカソスeソスSソスソスソス[ソスソスハのフソス@ソスCソスソスソスノ包ソスソスソスソスト托ソスソスソスソスソスソスソスソスソスfソス[ソス^ソスtソス@ソスCソスソスソスノはゑソスソス黷シソスソスフコソス[ソスhソスヤ搾ソスソスソスソスLソスソスソスソスソスソスソスソスフでゑソスソスB
    ソスsソスソスソス{ソスソスソスソスソスXソスg
    0ソスkソスCソスソス
    1ソスツ森ソスソス
    2ソスHソスcソスソス
    ソスEソスE
    37ソスソスソスソスソスソス
    38ソスソスソスmソスソス
    ソスEソスE
    46ソスソスソス鼬ァ
    ソスJソスeソスSソスソスソス[ソスソスソスXソスg
    0ソスソスソスYソスi
    1ソスソスソスソスソスソスソスソス
    2ソスソスソスWソスソスソス[ソス{ソスソス
    3ソスソスソスソスソス{ソスソス
    4ソスhソスソスソス{ソスソス
    5ソスソスソスHソスソスソスソス
    6ソスソスハ施ソスソス
    7ソスsソスソスソス{ソスソス
    ソスソスソスフようソスネコソス[ソスhソスtソスソスソス}ソスXソス^ソス[ソスtソス@ソスCソスソスソスソスソス成ソスソスソストゑソスソスソスソスホ難ソスソスソスソスfソス[ソス^ソスtソス@ソスCソスソスソスソスソスネ会ソスソスフようソスノ置ソスソスソスソスソスソスソスソスソスワゑソスソスB
    381ソスソスソスmソスソスソスソスソスフ重ソスvソスソスソスソスソスソスソスノ指ソス閧ウソスソストゑソスソスソスlソスソスソスフ厄ソスソスソス
    381ソスjソスlソスYソスソスネ托ソスソスソスソスmソスノ面ゑソスソスソスソスソスソスフ厄ソスソスソス
    381ソスソスソスヘ難ソスソスソスソスソス4,000mソスソスソスソスソスJ1,000mソスフ暦ソスソスヘ難ソスソスヘ、ソスソスソス謔サ1ソスソス7,500ソスソスソスNソスOソスA ソスCソスソスソスソス阯イソスNソスソスソスソスソス゚難ソスソスソス
    371ソスツ厄ソスQソスソスソスソスソスヒ難ソスソスCソスニ紀ソスノ撰ソスソスソスソスフ奇ソスソスソスソスフ搾ソスソスノゑソスソスソスト撰ソスソスソスソスA 
    ソスQソスフ最ゑソスソス蛯ォソスソスソスソスソスフでは抵ソスソスa20mソスネ擾ソスノゑソスソスソスム、ソスソスソスEソスOソス蜥ェソスソスソスニゑソスソスソスソスソスソストゑソスソスワゑソスソスB
    ソスソスソスソスナ1ソスソスソスソスソスソスソスソスソス10ソスoソスCソスgソスフ節厄ソスノなゑソスワゑソスソスB
    ソスPソスソスソスソスソスフデソス[ソス^ソスtソス@ソスCソスソスソスナゑソス10ソスソスソスoソスCソスgソスAソスソス5ソスソスソスソスソスソスソス゚約しゑソスソスソスソスニになゑソスワゑソスソスB
    ソスソスソスRソスAソスソスソスソスソスノ難ソスソスすソスソスニゑソスソスソスソスソスソスニでゑソスソスヒ。

  2. ソスソスソスoソスフゑソスソス゚の工ソスv
    ソスソスソスソスソスノ難ソスソスさソスソスソス驍スソス゚デソス[ソス^ソスハゑソスソスソスソス轤オソスソスソスフでゑソスソスソスソス迯ゑソスソスソスノ鯉ソスソスソスソスAソスソスソスoソスナゑソスソスネゑソスソスソスホなゑソスワゑソスソスソスB
    ソスOソスLソスフデソス[ソス^ソスソスソスソスuソスソスソスmソスソスソスvソスフ「ソスソスソスソスソスソスソスユ」ソス抽出ソスソスソスソスノは、
    foreach $line (@DATA) {
      ($area, $category, $facility, $pr) = split(/\t/, $line);
      if ($area == 38 && $category == 1) { push(@MATCH, $line); }
    }
    ソスソスソスソスヘ、@DATAソスフゑソスソスラてのデソス[ソス^ソスソスforeachソスソスソス[ソスvソスナ1ソスツづつ抵ソスソスラてマソスbソス`ソスソスソスソスソスソスソスフゑソス@MATCHソスノ格ソス[ソスソスソストゑソスソスワゑソスソスB
    ソスLソス[ソスソスソス[ソスhソスソスソスwソス閧オソスト包ソスソスソスソスから検ソスソスソスソスソスソス鼾ソスヘゑソスソスフ包ソスソス@ソスソスソスソスソスソスソスソスワゑソスソスが、 ソスRソス[ソスhソスヤ搾ソスソスフ場合ソスヘゑソスソスソスソスニ搾ソスソスソスソスノ難ソスソスすソスソスXソスeソス[ソスgソスソスソスソスソスgソスソスperlソスノは托ソスソスンゑソスソスワゑソスソスB
    ソスソスgrepソスヨ撰ソスソスソスソスgソスソス
    grepソスヨ撰ソスソスヘ、
    @MATCH = grep(/ソスソスソスソス/, ソスzソスソス);
    ソスフ擾ソスソスソスソスナ使ソスpソスソスソスAソスuソスソスソスソスソスvソスソスperlソスフマソスbソス`ソスソスソスZソスqソスソスソスgソスpソスナゑソスソスワゑソスソスB
    ソスソスソスソスソスソスソスLソス[ソスソスtソスソスソスソス
    ソスfソス[ソス^ソスtソス@ソスCソスソスソスソスソスソスRソス[ソスhソスヤ搾ソスソスナ抵ソスソスoソスソスソスソスノは、ソスヌのフソスBソス[ソスソスソスhソスフコソス[ソスhソスソスソスソスソスwソス閧キソスソスKソスvソスソスソスソスソスソスワゑソスソスB
    381ソスソスソスmソスソスソスソスソスフ重ソスvソスソスソスソスソスソスソスノ指ソス閧ウソスソストゑソスソスソスlソスソスソスフ厄ソスソスソス
    ソスソスソスフデソス[ソス^ソスソスソスソスRソス[ソスhソスヤ搾ソスソスu38ソスvソスソスソスソスソスソスソスソスソス謔、ソスニゑソスソストゑソスソスsソスソスソス{ソスソスソスフコソス[ソスhソスネのゑソスソスAソスJソスeソスSソスソスソス[ソスソスソスソスネのゑソスソスソスソスかソスソスワゑソスソスソスB
    ソスソスソスソスソスナ、ソスソスソスソスソス[ソスVソスソスソスソスソスソスソスKソスvソスネフソスBソス[ソスソスソスhソスノはキソス[ソスソスソスツゑソスソスト記ソスソスソスソスソスソスソストゑソスソスソスソスワゑソスソスB
    area=38 divi=1 ソスソスソスmソスソス ソスソスソスフ重ソスvソスソスソスソスソスソスソスノ指ソス閧ウソスソストゑソスソスソスlソスソスソスフ厄ソスソスソス
    ソスソスソスLソス[ソスノゑソスソスワり長ソスソスソスソスソスOソスソスtソスソスソスソスニソスソスソスソス[ソスVソスソスソスソスソスノゑソスソストデソス[ソス^ソスソスソスソスソスkソスソスソスソスモ厄ソスソスソスソスネゑソスソスネゑソスワゑソスソスB

    grepソスソスソスgソスpソスソスソスト前ソスLソスフコソス[ソスhソスニ全ソスソスソスソスソスソスソスソスソスハを得ゑソスRソス[ソスhソスヘ、
    @MATCH = grep(/area=38\t/, @DATA); ソスソスソスソスソス{ソスソスソスナ抵ソスソスo
    @MATCH = grep(/divi=1\t/, @MATCH); ソスソスソスsソスソスソス{ソスソスソスソスソスoソスfソス[ソス^ソスソスソスソスJソスeソスSソスソスソス[ソス抽出
    ソスソスソスフようソスノ、ソスずソスソスソスQソスsソスナ趣ソスソスソスソスナゑソスソスAソスネゑソスニゑソスソスソスソストゑソスソスソスソス|ソスIソスノ搾ソスソスソスソスノ抵ソスソスoソスナゑソスソスワゑソスソスB
    ソスyソスソスソスモ】
    grepソスヨ撰ソスソスフ鯉ソスソスソスソスソスソスソスソスノ難ソスソス{ソスソスソスソスgソスpソスソスソス驍アソスニはでゑソスソスワゑソスソスソスB
    ソスソスソスソスソスソスソスソスソストフソスBソス[ソスソスソスhソスフキソス[ソスノ難ソスソス{ソスソスソスソスgソスpソスソスソス驍アソスニゑソスソスナゑソスソスネゑソスソスニ鯉ソスソスソスソスソスソスニになゑソスワゑソスソスB

  3. ソスソスソスハの置ソスソスソスソスソスソス
    ソスソスソスoソスソスソス黷スソスソスソスハゑソスソスuソスソスソスEソスUソスノ出ソスヘゑソスソスソス鼾ソスヘ、ソスソスソス黷シソスソスフコソス[ソスhソスソスuソスソスソスソスソスソスソスソスKソスvソスソスソスソスソスソスワゑソスソスB
    ソスsソスソスソス{ソスソスソスフテソス[ソスuソスソスソスソスソスA
    @AREA = (
    'ソスkソスCソスソス','ソスツ森ソスソス','ソスHソスcソスソス','ソスソス闌ァ','ソス{ソス骭ァ','ソスRソス`ソスソス','ソスソスソスソスソスソス','ソスネ木鯉ソス','ソスVソスソスソスソス','ソスQソスnソスソス',
    'ソスソスハ鯉ソス','ソスソス骭ァ','ソスソスtソスソス','ソスソスソスソスソスs','ソス_ソズ川県','ソスRソスソスソスソス','ソスソスソス県','ソス阜鯉ソス','ソスxソスRソスソス','ソスホ川県',
    'ソステ会ソスソスソス','ソスソスソスmソスソス','ソスOソスdソスソス','ソズ良鯉ソス','ソスaソスフ山ソスソス','ソスソスソス芟ァ','ソスソスソス鼬ァ','ソスソスソスsソス{','ソスソスソス{','ソスソスソスノ鯉ソス',
    'ソスソスソスRソスソス','ソスソスソス謖ァ','ソスソスソスソスソスソス','ソスLソスソスソスソス','ソスRソスソスソスソス','ソスソスソス県','ソスソスソスソスソスソス','ソスソスソスQソスソス','ソスソスソスmソスソス','ソスソスソスソスソスソス',
    'ソスソスソス鼬ァ','ソス蝠ェソスソス','ソスFソス{ソスソス','ソス{ソス闌ァ','ソスソスソス闌ァ','ソスソスソスソスソスソスソスソス','ソスソスソス鼬ァ'
    );
    ソスソス@AREAソスzソスソスマ撰ソスソスノ格ソス[ソスソスソスソストゑソスソスト、ソスJソスeソスSソスソスソス[ソスソスソスA
    @CATEGORY = ('ソスソスソスYソスi','ソスソスソスソスソスソスソスソス','ソスソスソスWソスソスソス[ソス{ソスソス','ソスソスソスソスソス{ソスソス','ソスhソスソスソス{ソスソス','ソスソスソスHソスソスソスソス','ソスソスハ施ソスソス','ソスsソスソスソス{ソスソス');
    ソスフようソスソス@CATEGORYソスzソスソスマ撰ソスソスノ保托ソスソスソスソスソストゑソスソスソス鼾ソスヘ、
    print "<table border=1>\n";
    foreach $line (@MATCH) {
      ($area, $category, $facility, $pr) = split(/\t/, $line);
      $area =~ s/area=//; ソスソスソスLソス[ソスソスソス除ソスソスソスト都ソスソスソス{ソスソスソスRソス[ソスhソス抽出
      $category =~ s/divi=//; ソスソスソスLソス[ソスソスソス除ソスソスソストカソスeソスSソスソスソス[ソスRソス[ソスhソス抽出
      print "<tr><td>$AREA[$area]</td>\n";
      print "<td>$CATEGORY[$category]</td>\n";
      print "<td>$facility</td>\n";
      print "<td>$pr</td></tr>\n";
    }
    print "</table>\n";
    ソスソスソスソスソスソスソスソスホコソス[ソスhソスナ記ソスソスソスソスソスソストゑソスソスソスソスfソス[ソス^ソスソスソスソスソスフ包ソスソスソスソスソスノ置ソスソスソスソスソスソスソスト表ソスソスソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスB
Copyright 2004 Terra. All rights reserved. No reproduction or republication without written