请教-统计每行每种字母个数
数据格式如下：
复制代码
每行最多有3种字母，现在需要统计每行每种字母出现次数，如第一行，输出结果为
复制代码
，其他行一样
- NN TT NN NN AT NN AT NN NN NN AT NN NN AA NN AT NN
- GG AA GG AA AG GG AG GG GG GG AG AG AG NN AG AG GG
- NN TT NN NN TT NN TT NN NN NN TT NN NN TT NN TT NN
- AA AG AG AG AG AG AG AA AG GG AG GG AG NN AG AG AG
- AA AG AG AG AG AG AG AG GG GG AG GG AG NN AG GG AG
- GG GG GG GG GG GG GG GG GG AG GG GG GG NN GG GG GG
- GG GG GG GG GG GG GG AG AG GG GG GG GG NN GG GG GG
- NN CC NN NN CC NN CC NN NN NN CC NN NN CC NN CT NN
- TT CT CT CT CC CT CC CT CC CT CT CC CT NN CT CC CT
- NN AG NN NN AA NN AA NN NN NN AG NN NN AG NN AA NN
- TT AT AT AT AA AT AA AT AA AT AT AA AT NN AT AA AT
- GG GT GT GT TT GT TT GG GT GG GT TT GT NN GT GT GT
- NN CC NN NN CC NN CC NN NN NN CC NN NN CC NN CC NN
- AA AG AG AG GG AG GG AA AG AA AG GG AG NN AG AG GG
- GG AG AG AG AA AG AA GG AG GG AG AA AG NN AA AG AG
- GG AG AG AG AA AG AA GG AG GG AG AA AG NN AG AG AG
- NN AA NN NN AA NN AA NN NN NN AA NN NN NN NN AA NN
- CC CC CC CC CC CC CC CC CT CC CC CC CC NN CC CC CC
- NN AG NN NN GG NN GG NN NN NN AG NN NN GG NN AG NN
- TT TT TT TT TT TT TT TT CT TT TT TT TT NN TT TT TT
- A：6，N：22，T:6
作者: sequencing 发布时间: 2011-06-15
可以对每行用 @data = $str =~ /(\w)(\w)/g; 然后用 hash 计数。
作者: zhlong8 发布时间: 2011-06-15