求助：刚入门，想请教一个挺简单的问题

zhlong8

突然想起来氨基酸和碱基不是一回事啊。只用一个字母表示是吧，那我的代码还是能工作的

albertd

1. use strict;
   
2. use warnings;
   
3. 
   
4. my $seq = 'ACLKRASFAKSVIGTPEFMAP';
   
5. 
   
6. while ($seq) {
   
7.     my $str = substr($seq,0,1);
   
8.     my $count = $seq =~ s/$str//g;
   
9.     print "$str = $count\n";
   
10. }
    

复制代码

回复 1# CJ妹子


[root@qdeng perl]# perl count.pl
A = 4
C = 1
L = 1
K = 2
R = 1
S = 2
F = 2
V = 1
I = 1
G = 1
T = 1
P = 2
E = 1
M = 1

yinyuemi

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $seq = 'ACLKRASFAKSVIGTPEFMAP';
   
6. my %count;
   
7. 
   
8. while($seq=~s/(^.)(.*)?/$2/){       
   
9.         $count{$1}++;
   
10. }
    
11. 
    
12. for (keys %count){
    
13.         print $_,"=",$count{$_},"\n";
    
14. }

复制代码

mcshell

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. use warnings;
   
6. 
   
7. 
   
8. 
   
9. my $seq = 'ACLKRASFAKSVIGTPEFMAP';
   
10. 
    
11. my %sum;
    
12. foreach (split(//,$seq)) {
    
13.         $sum{$_}++;
    
14. }
    
15. foreach  (keys %sum) {
    
16.         print "$_ => $sum{$_}\n";
    
17. }

复制代码

1. 
   
2. 
   
3. F => 2
   
4. S => 2
   
5. A => 4
   
6. T => 1
   
7. P => 2
   
8. K => 2
   
9. E => 1
   
10. V => 1
    
11. M => 1
    
12. C => 1
    
13. R => 1
    
14. I => 1
    
15. G => 1
    
16. L => 1
    
17. 
    

复制代码