ソス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
- ソスソスソスソスソス[ソス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
38 | 1 | ソスソスソスmソスソス | ソスソスソスフ重ソスvソスソスソスソスソスソスソスノ指ソス閧ウソスソストゑソスソスソスlソスソスソスフ厄ソスソスソス |
38 | 1 | ソスjソスl | ソスYソスソスネ托ソスソスソスソスmソスノ面ゑソスソスソスソスソスソスフ厄ソスソスソス |
38 | 1 | ソスソスソスヘ難ソス | ソスソスソスソス4,000mソスソスソスソスソスJ1,000mソスフ暦ソスソスヘ難ソスソスヘ、ソスソスソス謔サ1ソスソス7,500ソスソスソスNソスOソスA
ソスCソスソスソスソス阯イソスNソスソスソスソスソス゚難ソスソスソス |
37 | 1 | ソスツ厄ソス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ソスソスソスソスソスノ難ソスソスすソスソスニゑソスソスソスソスソスソスニでゑソスソスヒ。
- ソスソスソス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
38 | 1 | ソスソスソス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
- ソスソスソスハの置ソスソスソスソスソスソス
ソスソスソス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
|
|