特定数字如何实现重新排序？

huang6894

各位大神，想请教个问题：
对于这样的数据：

1. 
   
2. __DATA__
   
3. a        b        s[1];p[2]        [1]d;[2]t
   
4. b        c        s[1];q[2];        [1]d;[2]y;
   
5. a        d        c[1,3];        [1]e;[2]t;[3]b;
   
6. b        d        p[1];y[2]        [1]d;[2]y2;
   
7. e       f       abb     hhh
   
8. g       n       .       1
   
9. f       n       6[1-4]       [1]e;[2]t;[3]b2;[4]h;
   

复制代码

第 3 和 第4列的中括号'[]'内的数字是一一对应的，比如第一行中第三列的s[1]对应于第四列的[1]d，我想对[]里面的数字实现在文本的重新排列，比如第一行是[1][2][3]，第二行的编码需要从[4]开始，以此类推。现在我想：

1、排除第 3 或者第 4 列任何一列为"."的行（第 6 行），对于其它行，如果第 3 和第 4 列没有[\[0-9]+\]的，在第 3 列后面和第 4 列前面加上[1]（第5行）；如果第 3 列在一个中括号内有两个数字，需要拆分，如第 3 行c[1,3]=》c[1];c[2];c[3]; 第7行： 6[1-4]=》6[1];6[2];6[3];6[4];

2、对得到的数据的第 3 和第 4 列存进数组实现重新排序，但保证两列的项依旧一一对应，并且整体唯一。

3、同一行中重复出现的，采用合并序号。

1. 
   
2. __DATA__
   
3. s[1];p[2]        [1]d;[2]t  
   
4. s[1];q[2];        [1]d;[2]y;         #s[1]和[1]d与第 1 行重复，去重，q[2]、[2]y升序为q[3]、[3]y
   
5. c[1,3];        [1]e;[2]t;[3]b;       #c[1,3]; 含两个数字，拆分为c[1]（对应[1]e）;c[2]（对应[2]t）;c[3]（对应[3]b）;，升序为c[4];c[5];c[6]和[4]e;[5]t;[6]b，虽然c在该处重复了3次，不过第 4 列不重复，故而对c实现合并序号，c[4];c[5];c[6] =》 c[4,6]
   
6. p[1];y[2]        [1]d;[2]y2;        #p[1]和[1]d与第 1 行重复，去重，y[2]、[2]y2升序为y[7]、[7]y2
   
7. abb     hhh             #abb和hhh无序号，且不为“.”，在第 3 列后面和第 4 列前面加上[1]，abb[1]、[1]hhh升序为abb[8]、[8]hhh
   
8. .       1               #第 3 列为“.”排除这一行
   
9. 6[1-4]       [1]e;[2]t;[3]b2;[4]h;          #拆分，升序，合并
   

复制代码

最终得到两个数组：

数组1（第3列）：

1. 
   
2. s[1]
   
3. p[2]
   
4. q[3]
   
5. c[4,6]
   
6. y[7]
   
7. abb[8]  
   
8. 6[9,12]
   

复制代码

数组2（第4列）：

1. 
   
2. [1]d
   
3. [2]t
   
4. [3]y
   
5. [4]e
   
6. [5]t
   
7. [6]b
   
8. [7]y2
   
9. [8]hhh
   
10. [9]e
    
11. [10]t
    
12. [11]b2
    
13. [12]h;
    

复制代码

这个好难啊，希望各位大哥给点意见

pitonas

这个问题引起了大家的极大兴趣。
觉得很不错，受益匪浅，谢谢！
我的理解 ~ {:2_172:}

1. my ( $V1, @data, %dup );
   
2. 
   
3. while (<DATA>) {
   
4.     my ( undef, undef, $col3, $col4 ) = split;
   
5.     next if grep { /^\.$/ } $col3, $col4;
   
6.     my @elem = split /;/, $col3;
   
7.     my @exists;
   
8.     for my $e (@elem) {
   
9.         my ( $K, $v, $v2 ) = split /[\[\],-]/, $e;
   
10.         if ( $dup{$K}++ ) {
    
11.             push @exists, (0) x ( $v2 ? $v2 - $v + 1 : 1 );
    
12.             next;
    
13.         }
    
14.         $V1 ||= ( $v || 1 );
    
15.         if ($v2) {
    
16.             my $V2 = $V1 + $v2 - $v;
    
17.             push @exists, map { $V1 + $_ } 0 .. $v2 - $v;
    
18.             push @{ $data[0] }, "${K}[$V1,$V2]";
    
19.             $V1 = $V2 + 1;
    
20.         }
    
21.         else {
    
22.             push @{ $data[0] }, "${K}[$V1]";
    
23.             push @exists, $V1++;
    
24.         }
    
25. 
    
26.     }
    
27. 
    
28.     @elem = split /;/, $col4;
    
29.     for my $i ( 0 .. $#exists ) {
    
30.         next unless $exists[$i];
    
31.         my ($k) = $elem[$i] =~ /(\w+)$/;
    
32.         push @{ $data[1] }, "[$exists[$i]]$k";
    
33.     }
    
34. 
    
35. }
    
36. 
    
37. print "@$_\n" for @data;
    
38. 
    
39. __DATA__
    
40. a       b        s[1];p[2]        [1]d;[2]t
    
41. b       c        s[1];q[2];       [1]d;[2]y;
    
42. a       d        c[1,3];          [1]e;[2]t;[3]b;
    
43. b       d        p[1];y[2]        [1]d;[2]y2;
    
44. e       f        abb              hhh
    
45. g       n        .                1
    
46. f       n        6[1-4]           [1]e;[2]t;[3]b2;[4]h;
    
47. a       d        c[1,3];A[4];     [1]e;[2]t;[3]b;[4]d;   # ADD
    

复制代码

回复 1# huang6894


   

ly5066113

回复 1# huang6894


数组1：

1. awk '$3=="."||$4=="."{next}{for(i=1;i<=split($3,a,/[][;]+/);i+=2){if(a[i]&&!b[a[i]]++){if(split(a[i+1],c,/[-,]/)>1){printf "%s[%d,%d]\n",a[i],++n,n+c[2]-c[1];n+=c[2]-c[1]}else printf "%s[%d]\n",a[i],++n}}}' file

复制代码

2的自己改改吧。

huang6894

回复 2# ly5066113


    谢谢。。受益匪浅~

huang6894

回复 2# pitonas


    我大概能理解大神的意思。。。有一个问题是：假如数据是

1. a       d        c[1,3];aaaa          [1]e;[2]t;[3]b;

复制代码

这样的时候，拆分为c[1]（对应[1]e）;c[2]（对应[2]t）;c[3]（对应[3]b）;aaaa是额外的不需要添加相关数字

huang6894

回复 2# pitonas


    实在对不起。。其实我是想得到：s[1];p[2];q[3];c[4,6];aaaa"楼主注：这是额外的";y[8];abb[9];6[10,13];A[14];和一个数组“[1]d [2]t [3]y [4]e [5]t [6]b [7] [8]y2 [9]hhh [10]e [11]t [12]b2 [13]h [14]d”

huang6894

回复 7# walklan


    各位大神好厉害

pitonas

从这个角度上来说: 我还是持观望态度 ~ {:2_168:}

这?

1.     my $elem4 = ( $col4 =~ tr/;// ) + ( $col4 !~ /;$/ );
   
2.     for my $e (@elem) {
   
3.         last if @exists >= $elem4;

复制代码

回复 5# huang6894


   

huang6894

回复 9# pitonas


    {:2_180:} {:2_180:} O(∩_∩)O好的