#!/usr/local/bin/perl # Copyright (C) 2015 All right reserved by HITz Total System require "cgi-lib.pl"; &ReadParse; while(($key,$val) = each(%in)) { $$key = $val; } # 検索ページの表示 $cnt = 0; $i = 0; $daimei = 0; undef @clm_00; undef @clm_01; undef @clm_02; undef @clm_04; undef @clm_07; undef @clm_11; undef @clm_47; print "Content-type: text/html\n\n"; print qq! Sake-Plaza TAKIGUCHI　滝口商店 || 蔵元限定銘柄取扱＆ワインセラー完備

千葉県勝浦市ならではの銘酒とSAKEPLAZA TAKIGUCHIならではの銘酒をお届けします

!; if($kbn eq "AKS0"){ $daimei = "腰古井 − 勝浦"; }elsif($kbn eq "AAZ0"){ $daimei = "東灘 − 勝浦"; }elsif($kbn eq "AIW0"){ $daimei = "岩の井 − 御宿"; }elsif($kbn eq "AJY0"){ $daimei = "寿萬亀 − 鴨川"; }elsif($kbn eq "BUR0"){ $daimei = "浦霞"; }elsif($kbn eq "BIC0"){ $daimei = "一ノ蔵"; }elsif($kbn eq "BHK0"){ $daimei = "八海山"; }elsif($kbn eq "BMS0"){ $daimei = "萬寿鏡"; }elsif($kbn eq "BCY0"){ $daimei = "千代の光"; }elsif($kbn eq "BTG0"){ $daimei = "天狗舞"; }elsif($kbn eq "B000"){ $daimei = "若竹鬼ころし"; }elsif($kbn eq "CIM0"){ $daimei = "芋焼酎"; }elsif($kbn eq "CMG0"){ $daimei = "麦焼酎"; }elsif($kbn eq "CKM0"){ $daimei = "米焼酎"; }elsif($kbn eq "CKT0"){ $daimei = "黒糖焼酎"; }elsif($kbn eq "DMZ0"){ $daimei = "瑞穂酒造"; }elsif($kbn eq "DKK0"){ $daimei = "国泉泡盛"; }elsif($kbn eq "DIS0"){ $daimei = "石川酒造場"; }elsif($kbn eq "DHK0"){ $daimei = "比嘉酒造"; }elsif($kbn eq "EBDR"){ $daimei = "ボルドー[赤]"; }elsif($kbn eq "EBDB"){ $daimei = "ボルドー[白]"; }elsif($kbn eq "EBGR"){ $daimei = "ブルゴーニュ[赤]"; }elsif($kbn eq "EBGB"){ $daimei = "ブルゴーニュ[白]"; }elsif($kbn eq "ECP0"){ $daimei = "シャンパーニュ[白]"; }else{ $daimei = "シャンパーニュ[ロゼ]"; } print qq!

$daimei


!; if(open(IFILE,"shohin.csv")) { while() { chomp(); @column = split(/,/); if($ct == 0){ $bk_kbn = substr($column[1], 0, 1); if($column[4] == 1 && $bk_kbn eq $kbn){ $cnt ++; $clm_kbn[$cnt] = substr($column[1], 0, 1); $clm_00[$cnt] = $column[0]; $clm_01[$cnt] = $column[1]; $clm_02[$cnt] = $column[2]; $clm_04[$cnt] = $column[4]; $clm_07[$cnt] = $column[7]; $clm_11[$cnt] = $column[11]; $clm_47[$cnt] = $column[47]; } }elsif($ct == 1){ $bk_kbn = substr($column[1], 0, 4); if($column[4] == 1 && $bk_kbn eq $kbn){ $cnt ++; $clm_kbn[$cnt] = substr($column[1], 0, 1); $clm_00[$cnt] = $column[0]; $clm_01[$cnt] = $column[1]; $clm_02[$cnt] = $column[2]; $clm_04[$cnt] = $column[4]; $clm_07[$cnt] = $column[7]; $clm_11[$cnt] = $column[11]; $clm_47[$cnt] = $column[47]; } }else{ if($column[4] == 1 && $column[4] == 1){ $cnt ++; $clm_kbn[$cnt] = substr($column[1], 0, 1); $clm_00[$cnt] = $column[0]; $clm_01[$cnt] = $column[1]; $clm_02[$cnt] = $column[2]; $clm_04[$cnt] = $column[4]; $clm_07[$cnt] = $column[7]; $clm_11[$cnt] = $column[11]; $clm_47[$cnt] = $column[47]; } } } close(IFILE); } if($cnt > 0){ for ( $i=1; $i<=$cnt; $i++) { print qq!

$clm_02[$i]

価格: $clm_11[$i]円 (税別)
!; if($clm_kbn[$i] eq "E"){ print qq! 産地: $clm_07[$i]
!; } print qq! 在庫:
数量:
　　　
!; } } print qq!

↑ PAGE TOP

!;