24小时热门版块排行榜    

查看: 319  |  回复: 1

zxwinner

金虫 (小有名气)

[求助] 问下 关于perl的序列处理的一个问题

想问下怎么能够实现 已经得到单个密码子对应值, 比如ATG 112;CCG 255;TGG 455;怎么编程扫一段序列ATCGATCGATCGATCGCTACGATCAGCTACGACTACGATCG,把对应三字母序列找到并且可以运算三字母对应的值?
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

biojamie

金虫 (初入文坛)

【答案】应助回帖

★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
jjdg: 金币+1, 感谢参与 2014-08-10 23:26:04
zxwinner: 金币+5, 有帮助 2014-08-11 15:48:00
要全局搜索并返回你想要的密码子的位置,可以用这个,以数组来储存位置的结果:
my @matched_position_array;
while($raw_seq=~m/ATG/ig){
  my $to_push_start=pos($raw_seq)
  push(@matched_position_array,$to_push_start);
}
密码子对应的分值运算,用哈希就可以实现了:
my %hash_nucleo_score;
%hash_nucleo_score{"ATG"}=112;
%hash_nucleo_score{"CCG"}=255;
%hash_nucleo_score{"TGG"}=455;
2楼2014-08-10 16:47:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zxwinner 的主题更新
信息提示
请填处理意见