新手求助！！谢谢各位了！

xiayuu119

G  Q1  Q2  Q3  ... Q2569 T1  T2   T3 ...T2569
a   1     1    0    ... 1         1    0    1  ...   2
b   2     0    1    ... 2         1    0    1  ...   0

得到：

G    QT1   QT2   QT3    ... QT2569
a      11     10     01     ...    12
b      21     00     11     ...    20

b114213903

来个笨的，呵呵

1. #!perl
   
2. use strict;
   
3. 
   
4. open (IN,"<a.txt");
   
5. open (OUT,">b.txt");
   
6. while(my $line=<IN>){
   
7.         chomp($line);
   
8.         if($line=~/^G/){                                 #输出标题行
   
9.                 print "G\n";
   
10.                 print OUT "G\t";
    
11.                 for(1..2569){
    
12.                         print OUT "QT$_\t";
    
13.                 }
    
14.                 print OUT "\n";
    
15.         }else{                                                #输出数据行
    
16.                 my @line=split /\s+/,$line;
    
17.                 print "$line[0]\n";
    
18.                 print OUT "$line[0]\t";
    
19.                 for(1..2569){
    
20.                         print OUT "$line[$_]$line[$_+2569]\t";
    
21.                 }
    
22.                 print OUT "\n";
    
23.         }
    
24. }
    
25. close IN;
    
26. close OUT;
    
27. print "Finished!\n";

复制代码

xiayuu119

回复 2# b114213903
非常感谢~！ 可以用~！！有没有更简洁点的 呵呵！