perl 计算氨基酸对的频率
perl 计算氨基酸对的频率 我的源文件seq如下：现在要做如下处理,计算每一行间隔为k的氨基酸对出现的频率.比如,第一行,间隔为三（k=3）的氨基酸对是,NR,GT,LQ,IT,需要统计这么些个氨基酸对出现的频率并输出.总次数很好算,直接利用length($seq)-k-1.可是,我没有办法统计氨基酸对出现的次数,还是举第一行的例子,就是我没很好的办法实现统计NR出现过几次,这样我就没法计算NR对出现的频率了
最佳回答
执着的大侠
2026-04-03 14:08:24
#!/usr/bin/perl
use strict;
use warnings;
open (IN, "amin。txt"); ##输入文件
open (OUT,">result。txt"); ##输出文件
my $k=3;
print OUT "Row_Number\tAmino-acid-pair\tcounts\n"; ##结果文件格式 行 氨基酸对 本行出现次数
my %amin;
my $line=1;
while(){
chomp;
my $seq=$_;
for(my $i=0;$i
use strict;
use warnings;
open (IN, "amin。txt"); ##输入文件
open (OUT,">result。txt"); ##输出文件
my $k=3;
print OUT "Row_Number\tAmino-acid-pair\tcounts\n"; ##结果文件格式 行 氨基酸对 本行出现次数
my %amin;
my $line=1;
while(){
chomp;
my $seq=$_;
for(my $i=0;$i
最新回答共有2条回答
-
2026-04-03 14:08:24丰富的眼睛
回复#!/usr/bin/perl use strict;use warnings;open (IN, "amin。txt"); ##输入文件open (OUT,">result。txt"); ##输出文件my $k=3;print OUT "Row_Number\tAmino-acid-pair\tcounts\n"; ##结果文件格式 行 氨基酸对 本行出现次数my %amin;my $line=1;while(){ chomp; my $seq=$_; for(my $i=0;$i
热门文章
- 康达学院专转本五年制
- 高考一个考场分ab卷吗
- not only but also用法
- 某物体做自由落体运动，从释放开始计时，则物体在前2s内的平均速度为______m/s，物体下落2m时的速度大小为______m/s．
- 三角函数公式大全表格
- 地理中考必背知识点2022
- 2013-2014学年小学六年级科学上学期期末考试试卷及答案
- 人教版2014-2015学年小学五年级英语第二学期期中教学质量检测试卷及答案
- 【Linux驱动开发】设备树详解（二）设备树语法详解
- 别跟客户扯细节
- 在别的城市买房子能落户吗
- 卖房前要把装修贷还完吗
- 高中政治教学提高教学效果的方法探究
- “互联网+”背景下的初中英语课堂教学改革与创新策略研究
- 2022年终止合同范本
- 租房合同范本范文
- 如何挑选土豆
- 如何挑选土鸡