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

sellie

你的 for( $i=0;$i<length($seq);$i++)  和substr就已经起到遍历每个字母的功能了.
并且这样子的foreach我总觉得不对劲,应该语法不对的
foreach  $seq {
}

另外这个我也觉得不对:  my $Key=$aminoAcid."$i";
这样每个key都成了一个字母加一个自增的数字. 结果每个key都成唯一的了

sellie

楼主,注意变量要声明了再用. 你的代码里有大Key和小key. 一开始还没看出来. 你申明了大Key,没申明小key. 大K和小k长得还真象. 你这个坑挖的.



#!/usr/bin/perl
use strict;
use warnings;

my $seq = 'ACLKRASFAKSVIGTPEFMAP';
my %AA;
my $aminoAcid;
my $key;

for ( my $i=0;$i<length($seq);$i++) {
    $aminoAcid = substr($seq,$i,1);
    $key = $aminoAcid;
    if ( exists $AA{$key} ) {
        $AA{$key} += 1;
    }
    else{
        $AA{$key} = 1;
    }
}

foreach $key ( sort( keys(%AA) ) ) {
    print "$key = $AA{$key}\n";
}

wfg21314wang

加入81087030 群 里面大师

CJ妹子

回复 12# sellie


    大师 跪谢 跪谢 跪谢
   你是我学习PERL中的贵人呐
     感动的我眼泪都喷出来了

sellie

zhlong8 能不能解释下为什么要
()= $seq 吗?
就这个看不懂, 其他的勉强看得明白

sellie

回复  sellie


    大师 跪谢 跪谢 跪谢
   你是我学习PERL中的贵人呐
     感动的我眼泪都喷出来了
CJ妹子 发表于 2011-06-29 19:40

   
不谢. 我不是大师,我也是菜鸟. 大师写的我们都看不懂.哈哈!

CJ妹子

回复 16# sellie


    以后会常来请教你的 不知道能不能留个发个QQ给我 要不我的发给你也行

guap514

版主欺负人

CJ妹子

被版主欺负啦？

zhlong8

zhlong8 能不能解释下为什么要
()= $seq 吗?
就这个看不懂, 其他的勉强看得明白
sellie 发表于 2011-06-29 19:44

    这里是提供 list context 的作用，否则在 void/scalar context 下 /g 只进行一次匹配。我刚开始也没注意到所以没加