求助：刚入门，想请教一个挺简单的问题
时间：2011-06-29
来源：互联网
各位大侠 我刚接触PERL 也没学过C 各种不懂呀
我想计算一条序列上各种氨基酸的数量 然后这个写的 很多错误呀
希望大家帮我改改
谢啦 本人在线等
复制代码
我想计算一条序列上各种氨基酸的数量 然后这个写的 很多错误呀
希望大家帮我改改
谢啦 本人在线等
- #!/usr/bin/perl
- use strict;
- use warnings;
-
- my $seq = 'ACLKRASFAKSVIGTPEFMAP';
- my %AA;
- foreach $seq {
- for( $i=0;$i<length($seq);$i++) {
- my $aminoAcid= substr($seq,$i,1);
- my $Key=$aminoAcid."$i";
- if(exists $AA{$Key}){
- $AA{$Key} +=1;
- }
- else{
- $AA{$Key}= 1;
- }
- }
- }
- while (( $key, $value) = each %AA) {
- print "$key=$value\n";
- }
作者: CJ妹子 发布时间: 2011-06-29
本人在线等呀
作者: CJ妹子 发布时间: 2011-06-29
$seq =~ /(.)(?{$AA{$1}++})/g;
%AA 中就包含所有计数了
%AA 中就包含所有计数了
作者: zhlong8 发布时间: 2011-06-29
回复 zhlong8
能写一下不
能写一下不 作者: CJ妹子 发布时间: 2011-06-29
额 上面那个表情居然这么谄媚
其实 我都跪谢了T T
其实 我都跪谢了T T
作者: CJ妹子 发布时间: 2011-06-29
use Data::Dumper;
()= $seq =~ /(.)(?{$AA{$1}++})/g;
print Dumper \%AA
()= $seq =~ /(.)(?{$AA{$1}++})/g;
print Dumper \%AA
作者: zhlong8 发布时间: 2011-06-29
大师 那个没学过
T T
如果是用一个哈希
key是单词 value是出现次数
每读进一行 判断哈希中是否包含这个key 包含的话对应的value+1 否则将这个单词作为key加到哈希中 value初始化为1
这样做呢？
T T
如果是用一个哈希
key是单词 value是出现次数
每读进一行 判断哈希中是否包含这个key 包含的话对应的value+1 否则将这个单词作为key加到哈希中 value初始化为1
这样做呢？
作者: CJ妹子 发布时间: 2011-06-29
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
