Question

perl 如何对一组数据进行排序

数据格式如下
ACCCTTTTT........CGTT ab 12 M:12:11:12:0
ACCCTACCC.......CCTT ab 10 M:11:2:11:0
........
ACCCCTCAC.......CACA ab 5 M......

诸如这样的格式，开始为一段等长序列（长度不定），第二段为固定ab ，第三段为数字（需要从大到小排列），第四段为特征标签（无关）
要做的就是按ab后面的数字大小由大到小进行排序并输出排序后的第一行，即最大值所在的行。

Answer 1

先把文件每行split分开
然后做个哈希，以第三列为键，整行为值
接下来用perl里的sort函数排序哈希输出即可

追问

可以给个参考么？本人新手，感激不尽

追答

open(A,"test.txt");
while(my $line=<A>){
   chomp $line;
   @sss = split("\t",$line);
   $save{$sss[2]} =$line;
}
close(A);

my @key =sort {$b <=> $a} keys %save;

for my $i(@key){
    print $save{$i};
}

好久不写perl了，一直都用python，大概这样吧。

追问

程序陷入死循环了，看不出哪里有问题

追答

split那里改改，看看到底是什么符号分割的
自己改改吧

追问

修改成\s+后提示Use of uninitialized value $sss[2] in hash element at h1.pl line 39, line 3.而且是重读很多次，这是什么原因
我之前也已经给过$sss定义了。

追答

把文件开头什么warning和limit都去掉，写个perl还定义来去的麻烦不麻烦