根据数据列数分组，脚本求助

sunzhiguolu

回复 1# YQ_Liu
请问你的这个文本的排序有什么规则吗, 没看懂. (理解能力比较弱)

   

sunzhiguolu

回复 1# YQ_Liu
好了好了, 似乎看懂了.

   

L_WC

回复 1# YQ_Liu

1. my $hash = {};
   
2. my $hash_key;
   
3. my $hash_value = [];
   
4. my $group;
   
5. 
   
6. while(<DATA>){
   
7.         chomp;
   
8.         s/^\s+//g;
   
9.         next unless length;
   
10.        
    
11.         my @cols = split;
    
12.         if(/NP/){
    
13.                 $group = 0;
    
14.                 $hash_key = shift @cols;
    
15.                 my $c = @cols;
    
16.                 $hash->{$c}{$hash_key}[$group] = [@cols];
    
17.         }
    
18.         if(/^\d+/){
    
19.                 my $c = @cols;
    
20.                 $hash->{$c}{$hash_key}[++$group] = [@cols];
    
21.         }
    
22.        
    
23. }
    
24. use Data::Dumper;
    
25. #print Dumper $hash;
    
26. foreach my $k(sort keys %$hash){
    
27.         foreach my $kk(keys %{$hash->{$k}}){
    
28.                 print "$kk";
    
29.                 foreach $v (@{$hash->{$k}->{$kk}}){
    
30.                         foreach (@$v){
    
31.                                 print "\t";
    
32.                                 print;
    
33.                                
    
34.                         } print "\n";
    
35.                 }
    
36.                
    
37.         }
    
38. }
    
39. 
    
40. __DATA__            
    
41. >NP_5431234.3     2           8              11
    
42.                              6           5              12
    
43. 
    
44. >NP_0039563.1     1
    
45.                              2
    
46.                              3
    
47.                              4
    
48. 
    
49. >NP_0043242.2     1           2
    
50.                              2           4
    
51.                              3           6
    
52. 
    
53. >NP_0012341        1
    
54.                              2
    
55.                              6
    
56. 
    
57. >NP_21345123      3
    
58.                              4
    
59.                              7
    
60. 
    
61. >NP_2535232        3           7              9
    
62.                              6           5              11
    
63. 
    
64. >NP_0035255        1           7
    
65.                              5           4
    
66.                              3           9

复制代码

104359176

这样排序的数据容量如果太大，会很慢。先按照区块分隔，然后按照列数分隔区块，计算出列数后，作为区块的排序因子，重新生成新的文本。

sunzhiguolu

回复 5# L_WC

perl abc file #结果有时出现这样的情况,
>NP_0012341     1
        2
        6
>NP_21345123    3
        4
        7
>NP_0039563.1   1
        2
        3
        4
>NP_0043242.2   1       2
        2       4
        3       6
>NP_0035255     1       7
        5       4
        3       9
>NP_5431234.3   2       8       11
        6       5       12
>NP_2535232     3       7       9
        6       5       11

   

sunzhiguolu

回复 8# YQ_Liu
你说的啥意思, 我没有理解.