foreachによるカウント方法
初心者です。
以下のことがうまくできません。ご教授ください。
ファイルの中身が
ID1123 A/G AA NN AG GG NN AG GG GG GG GG AA AG ・・・
ID1000 C/T CC CT TT TT TT CT TT NN CT CC CT TT ・・・
ID9400 A/T AT NN AA AT TT TT AA AA AA AT TT TT ・・・
・
・
・
・
とあった場合の行ごとのカウント方法を教えて下さい。
考えたいるコードなんですが、
while (<>){
($ID , $conbi , @moji) =split(/ / );
@count=(0,0,0,0,0,0,0);
foreach(@moji){
※この辺りが良くわかりません。
}
print OUT ~~~~~~
}
のように考えています。
@countは、一行目なら(AAの数、AGの数、GGの数、NNの数、Aの数、Gの数、Nの数)
を数えられるようにしたいと考えております。
どなたか教えて頂けないでしょうか?
お礼
回答ありがとうございます!