$pr=$GMT; # 農業回数 $nou_kai = 0 if($nou_kai<1); $nou_kai++;
$pr=$GMT; # 商業回数 $sho_kai = 0 if($sho_kai<1); $sho_kai++;
$nou_kai = $DAT{'nou_kai'}; # 農業回数 $sho_kai = $DAT{'sho_kai'}; # 商業回数
$dat[0] = "...nou_kai;$nou_kai,sho_kai;$sho_kai,...