特定數(shù)字如何實(shí)現(xiàn)重新排序？

huang6894

各位大神，想請(qǐng)教個(gè)問(wèn)題：
對(duì)于這樣的數(shù)據(jù)：

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;
   

復(fù)制代碼

第 3 和 第4列的中括號(hào)'[]'內(nèi)的數(shù)字是一一對(duì)應(yīng)的，比如第一行中第三列的s[1]對(duì)應(yīng)于第四列的[1]d，我想對(duì)[]里面的數(shù)字實(shí)現(xiàn)在文本的重新排列，比如第一行是[1][2][3]，第二行的編碼需要從[4]開(kāi)始，以此類(lèi)推�，F(xiàn)在我想：

1、排除第 3 或者第 4 列任何一列為"."的行（第 6 行），對(duì)于其它行，如果第 3 和第 4 列沒(méi)有[\[0-9]+\]的，在第 3 列后面和第 4 列前面加上[1]（第5行）；如果第 3 列在一個(gè)中括號(hào)內(nèi)有兩個(gè)數(shù)字，需要拆分，如第 3 行c[1,3]=》c[1];c[2];c[3]; 第7行： 6[1-4]=》6[1];6[2];6[3];6[4];

2、對(duì)得到的數(shù)據(jù)的第 3 和第 4 列存進(jìn)數(shù)組實(shí)現(xiàn)重新排序，但保證兩列的項(xiàng)依舊一一對(duì)應(yīng)，并且整體唯一。

3、同一行中重復(fù)出現(xiàn)的，采用合并序號(hào)。

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 行重復(fù)，去重，q[2]、[2]y升序?yàn)閝[3]、[3]y
   
5. c[1,3];        [1]e;[2]t;[3]b;       #c[1,3]; 含兩個(gè)數(shù)字，拆分為c[1]（對(duì)應(yīng)[1]e）;c[2]（對(duì)應(yīng)[2]t）;c[3]（對(duì)應(yīng)[3]b）;，升序?yàn)閏[4];c[5];c[6]和[4]e;[5]t;[6]b，雖然c在該處重復(fù)了3次，不過(guò)第 4 列不重復(fù)，故而對(duì)c實(shí)現(xiàn)合并序號(hào)，c[4];c[5];c[6] =》 c[4,6]
   
6. p[1];y[2]        [1]d;[2]y2;        #p[1]和[1]d與第 1 行重復(fù)，去重，y[2]、[2]y2升序?yàn)閥[7]、[7]y2
   
7. abb     hhh             #abb和hhh無(wú)序號(hào)，且不為“.”，在第 3 列后面和第 4 列前面加上[1]，abb[1]、[1]hhh升序?yàn)閍bb[8]、[8]hhh
   
8. .       1               #第 3 列為“.”排除這一行
   
9. 6[1-4]       [1]e;[2]t;[3]b2;[4]h;          #拆分，升序，合并
   

復(fù)制代碼

最終得到兩個(gè)數(shù)組：

數(shù)組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]
   

復(fù)制代碼

數(shù)組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;
    

復(fù)制代碼

這個(gè)好難啊，希望各位大哥給點(diǎn)意見(jiàn)

pitonas

這個(gè)問(wèn)題引起了大家的極大興趣。
覺(jué)得很不錯(cuò)，受益匪淺，謝謝！
我的理解 ~ {: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
    

復(fù)制代碼

回復(fù) 1# huang6894


   

ly5066113

回復(fù) 1# huang6894


數(shù)組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

復(fù)制代碼

2的自己改改吧。

huang6894

回復(fù) 2# ly5066113


    謝謝。。受益匪淺~

huang6894

回復(fù) 2# pitonas


    我大概能理解大神的意思。。。有一個(gè)問(wèn)題是：假如數(shù)據(jù)是

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

復(fù)制代碼

這樣的時(shí)候，拆分為c[1]（對(duì)應(yīng)[1]e）;c[2]（對(duì)應(yīng)[2]t）;c[3]（對(duì)應(yīng)[3]b）;aaaa是額外的不需要添加相關(guān)數(shù)字

huang6894

回復(fù) 2# pitonas


    實(shí)在對(duì)不起。。其實(shí)我是想得到：s[1];p[2];q[3];c[4,6];aaaa"樓主注：這是額外的";y[8];abb[9];6[10,13];A[14];和一個(gè)數(shù)組“[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

回復(fù) 7# walklan


    各位大神好厲害

pitonas

從這個(gè)角度上來(lái)說(shuō): 我還是持觀望態(tài)度 ~ {:2_168:}

這?

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

復(fù)制代碼

回復(fù) 5# huang6894


   

huang6894

回復(fù) 9# pitonas


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