foreach(0 .. $#tdat){ %DAT = ''; my @prats = split(/,/,$tdat[$_]); foreach $prats (@prats){ my($key,$v) = split(/;/,$prats); $DAT{$key} = $v; } # 現在のプレイヤー抽出 if($player_now>=$time-$DAT{'la'}){ if($mv_mode eq 'pc'){ # 略 } $now_nm_cnt++; if($DAT{'camp'}==0){ $now_0++; }elsif($DAT{'camp'}==1){ $now_1++; }elsif($DAT{'camp'}==2){ $now_2++; }elsif($DAT{'camp'}==3){ $now_3++; }elsif($DAT{'camp'}==4){ $now_4++; }elsif($DAT{'camp'}==5){ $now_5++; } } } $now_0=0 if(!$now_0); $now_1=0 if(!$now_1); $now_2=0 if(!$now_2); $now_3=0 if(!$now_3); $now_4=0 if(!$now_4); $now_5=0 if(!$now_5);