perl编程:氨基酸序列转换核酸序列(如何将氨基酸序列转化为核苷酸序列)

本文目录
- 如何将氨基酸序列转化为核苷酸序列
- perl语言编程题,非常急!在线等!
- 急求Perl程序,请高手帮忙
- snapgene怎么把氨基酸序列翻译成核苷酸序列
- 怎样用perl把碱基序列文件转化成数字序列文本文件求帮助
- 如何将核酸序列翻译成氨基酸序列
- Day59-用Perl和Python脚本提取FASTA中最长转录本氨基酸序列
- 求一个用perl语言写的程序
如何将氨基酸序列转化为核苷酸序列
把氨基酸序列转化成核酸序列很简单,很多软件都可以做到,但是设计引物就麻烦些。因为每个氨基酸都不止一个密码子,所以根据你选择的规则转化后得到的序列未必是生物体内实际的序列,需要去一些专业论坛问一问。
CLC Genomics Workbench或者Geneious Pro等软件都可以做这件事,可以在网上找找。
perl语言编程题,非常急!在线等!
有点PERL基础吧,关键难题就是逆转字符串,PERL有函数实现这个功能,你看看下面的例子代码,运行一下结果,希望对你有启发:
$s=’ABCDEFGH’;
$s=reverse $s;
print $s;
急求Perl程序,请高手帮忙
精通perl,生物信息专业,hi我。
1
$string="ATGC";
@elements=$string=~/()/g
$length=@elements;
@elementsGC=$string=~/()/g
$lengthGC=@elementsGC;
$precent=$lengthGC/$length;
给你一些思路,如果需要帮忙,就hi 我,
snapgene怎么把氨基酸序列翻译成核苷酸序列
需要准备一条目的基因序列(fasta格式),通过SnapGene软件打开。点击Map选项卡,选中CDS的区域。(如果这个文件为cds序列,则全部选中;若cds是片段,则选中cds的片段部分)2.点击上方feature-Add feature,给CDS区域加上feature;3.设置feature,点击Type-CDS-OK,设置完毕;4、点击Action-Make protein,得到序列;5.点击Sequence即是需要的序列,可以保存为prot文件,也可以复制保存为fasta格式文件。
怎样用perl把碱基序列文件转化成数字序列文本文件求帮助
用tr函数就可以了,比如tr/ACGT/0123/;这里改你想要的对应的关系,比如还存在U或者X,或者你想换成1到4等等
open FILE,"seq.txt" or die "can’t open";
while(《FILE》){
chomp;
tr/ACGT/0123/;
print;
}
如何将核酸序列翻译成氨基酸序列
好像有一张专门的表,里面有核酸和氨基酸的对应关系,你可以去找那张表然后对着找就可以了。3个密码子(这里的3个字母)对应一种氨基酸。高中生物书上就有,祝你好运!
Day59-用Perl和Python脚本提取FASTA中最长转录本氨基酸序列
这段时间因为一些不可描述的文章被整顿了,所以没有做学习笔记。加上最近开学,乱七八糟的事情很多,目测要下个礼拜开始上课才能够回归正轨。
最近做了一个事情就是,注释出来的初始基因组pep文件会存在许多个转录本,很多冗余的氨基酸序列,我们需要去除这些冗余,取最长的那个转录本。
对于序列只有一行的很容易可以用 grep 办到,但是还是那个问题,fasta格式存在自动换行问题,所以我们最好还是写脚本提取最长转录本比较稳妥,这里分享一下所用的脚本。
原数据格式基本如下:
我写的Perl脚本修改了原文件格式和顺序(哈希表的 sort 真是个谜),以后有时间我会考虑一下如何保留所有原格式输出,暂时将就着用吧。
另外同学依据我的需求也写了一个对应功能的Python脚本,不得不承认Python v3.0的字典在保留原顺序输出方面的能力就很强,这个脚本几乎对原文件没有改动,很实用。有时间的话会对它进行全方位的注释学习,希望自己能在Python脚本书写能力上有所进步【狗头苦笑】!
求一个用perl语言写的程序
这个用bioperl来做非常简单,但有一些模块需要你自己安装。这就需要你熟悉cpan上模块的安装。或者参见我空间里bioperl安装的内容。
这里直接用到的就是Bio::SeqIO module,但它可能依赖于一些相关模块,所以最好装全bioperl。
装好之后就可以用下面的script。
#!/usr/bin/perl # the directory of you perl binary file
use strict;
use warnings;
my $in = Bio::SeqIO-》newFh(-file =》 "inputfilename" ,
-format =》 ’swiss’);
my $out = Bio::SeqIO-》newFh(-file =》 "outputfilename",
-format =》 ’fasta’);
print $out $_ while 《$in》;
# 注意根据你的需要改变-file和-format的参数值。
# good luck

更多文章:
在from子句中可以出现(如何在from 子句中嵌套查询下面的语句在access中出错!)
2026年10月11日 05:20
countif函数统计个数怎么用(countif函数怎么用 详解Excel中countif函数的使用方法)
2026年10月11日 03:30
正则匹配数字之前的字符(正则表达式如何匹配前面是数字、中间是“/”、后面也是数字,就像2/3专业的模式)
2026年10月11日 03:00
orlnsertbootmediinselected(我电脑开机显示这个是什么意思or insert boot media in select)
2026年10月10日 23:00
display的用法(display是什么意思 详解display的含义和用法)
2026年10月10日 22:00
html全部居中代码(怎么让网页居中显示,html如何让网页居中)
2026年10月10日 21:10




