求助

estbio

有个文件里有很多id号(如下, 我想统计一下共有多少种,每种是多少个  如ref|NC_008399.1|:c25815067-25814660有三个
ref|NC_008399.1|:c25815067-25814660
ref|NC_008399.1|:c25815067-25814660
ref|NC_008399.1|:c25815067-25814660
ref|NC_008399.1|:c25815067-25814665
ref|NC_008399.1|:c25815067-25814665
ref|NC_008399.1|:c25815067-25814665
ref|NC_008400.1|:c1873069-1872671
ref|NC_008400.1|:c1873069-1872671
ref|NC_008400.1|:c1873069-1872671
ref|NC_008400.1|:c1873069-1872671
ref|NC_008400.1|:c1873069-1872671
ref|NC_008394.1|:c31726824-31726420
ref|NC_008394.1|:c31726824-31726420
ref|NC_008394.1|:c31726824-31726420
ref|NC_008394.1|:c31726824-31726420
ref|NC_008394.1|:c31726824-31726420
ref|NC_008394.1|:c31726824-31726420
ref|NC_008394.1|:c31726824-31726420
ref|NC_008394.1|:c31726824-31726420
ref|NC_008394.1|:c31726824-31726420
ref|NC_008394.1|:c31726824-31726420
ref|NC_008405.1|:15381243-15381635
ref|NC_008405.1|:15381243-15381635
ref|NC_008405.1|:15381243-15381635
ref|NC_008405.1|:15381243-15381635
............
............

请求高手帮助,指导一下用什么办法来解决.

我写了下面的代码试了下没有正确执行("x.txt"和"z.txt"是相同文件)
open(F,"x.txt" || die;
open(F2,">y.txt" ||die;

while($gb=<F>{
        chomp($gb);
        push(@seqid,$gb);
        }

$num=0;
for($i=0;$i<@seqid;$i+=$num){
        $num=0;
        open(F3,"z.txt" || die;
        while($gbk=<F3>{
                chomp($gbk);
                if($gbk=~m/$seqid[$i]/){
                        $num++;                     
                        }       
                }
                print F2 "$num\n";
                close(F3);
        }
close(F);       
close(F2);

wind_ch

看你結果好像是排過序的, 直接用shell命令吧,

uniq

zhlong8

这种情况就用 hash 啊，你写的程序看不出是干嘛的

1. use strict;
   
2. use warnings;
   
3. use Data::Dumper;
   
4. my %hash;
   
5. while (<>) {
   
6.     chomp;
   
7.     $hash{$_} ++;
   
8. }
   
9. 
   
10. print Dumper \%hash;

复制代码