perl初心者です。わかる方お願いします。
DNA情報の解析でDNAに含まれる各塩基の数をカウントするperlプログラムを作りたいのですが、やり方が分りません。以下のような配列があったとして、
ATGCATGCATGCATGCATGCATGCAT
このとき、A 7,T 7,G 6,C 6と出力されるようにしたいです。
次のようなperlを作ってみたのですが、
my(@bases, %count, $base);
@bases = <>;
foreach $base (@bases){
$count{$base} += 1;
}
foreach $base (keys %count){
print "$base $count{$base}.\n";
}
この場合、@basesに入るのは元の1文なので上手く動かないと思うので、元の1文を1文字ずつ行に入れるといけると思うのですが、やり方がわからなくて困ってます。
助けてください。
お礼
ご回答ありがとうございます。
補足
あ プリンタでは使いません。エアブラシで使います