键值循环替换问题？

huang6894

想请教一下：对于下面这些文本：

1. 
   
2. HP:0000002      HP:0000098
   
3. HP:0000002;HP:0001510   HP:0004322
   
4. HP:0000098;HP:0000022;HP:0010002      HP:0001510
   
5. HP:0000098      HP:0004322
   
6. HP:0000022;HP:0010002     HP:0001511
   

复制代码

右边是左边的子类，右边只可能有一个，但可以在多行出现“父亲”可以有多个，且“父亲”之间可能有“父子”关系，用分号隔开；
现在要找他们的“直系亲属”，也就是“父子”之间只有一级关联的；
处理后：

1. 
   
2. HP:0000002    <=>    HP:0000098;
   
3. HP:0000098    <=>    HP:0004322;HP:0001510;   #因为HP:0001510、HP:0004322的父亲是HP:0000098和HP:0000002，但是因为HP:0000002是HP:0000098的父亲，所以HP:0004322只能作为HP:0000002的孙子了
   
4. HP:0001510    <=>    HP:0004322;
   
5. HP:0000022    <=>    HP:0001510;HP:0001511;
   
6. HP:0010002    <=>    HP:0001510;HP:0001511;
   

复制代码

pitonas

{:2_167:}

1. HP:0000098    <=>    HP:0004322;HP:0001510

复制代码

{:2_168:}
0000098
1: 0001510 => real
2: 0004322 => fake: => 0001510's 子

1. HP:0000022 <=> HP:0001510, HP:0001511
   
2. HP:0001510 <=> HP:0004322
   
3. HP:0000098 <=> HP:0001510
   
4. HP:0000002 <=> HP:0000098
   
5. HP:0010002 <=> HP:0001511, HP:0001510
   

复制代码

1. my %family;
   
2. 
   
3. while (<DATA>) {
   
4.     my @person = split /;|\s+/;
   
5.     my $son    = pop @person;
   
6.    
   
7.     $family{$_}{$son} = 1 for @person;
   
8. }
   
9. 
   
10. for my $person ( keys %family ) {
    
11.     my ( @maybe, @sons ) = keys %{ $family{$person} };
    
12.    
    
13.   try: for my $son (@maybe) {
    
14.         exists $family{$_}{$son} and next try for @maybe;
    
15.         push @sons, $son;
    
16.     }
    
17.    
    
18.     say "$person <=> ", join ', ', @sons;
    
19. }
    
20.    
    
21. 
    
22. __DATA__
    
23. HP:0000002      HP:0000098
    
24. HP:0000002;HP:0001510   HP:0004322
    
25. HP:0000098;HP:0000022;HP:0010002      HP:0001510
    
26. HP:0000098      HP:0004322
    
27. HP:0000022;HP:0010002     HP:0001511

复制代码

回复 3# huang6894


   

jason680

回复 1# huang6894

Hash + Array
   

huang6894

回复 2# jason680


    谢谢，我在努力尝试中。。。

huang6894

回复 1# pitonas


    好久不见啊~谢谢大神给了我一个很好的参考

huang6894

回复 2# pitonas


    越看越觉得厉害啊

pitonas

乍看之下，觉得厉害不无道理；仔细揣摩，我发现这个代码太悲催了
我的答案不靠谱，基本不对 ~ {:2_172:}
__DATA__
A     B
B;C;D E
B     C
B;E   F
C;G   I
I;J;B K


但是基本不对 ~ {:2_168:}

J <=> K
G <=> I
E <=> F
I <=> K
C <=> I, E
D <=> E
A <=> B
B <=> C, K

{:2_169:}


A     B
B;C;D E
B     C
B;E   F
C;G   I
I;J;B K

B:
1: E  fake: son of C
2: C  real
3: F  fake: son of E
4: K  fake: (K: son of I) => (I: son of C)



回复 6# huang6894


   

huang6894

回复 7# pitonas


    我确实没考虑曾祖父一辈的情况。。。

huang6894

回复 7# pitonas


    大神，我怎么做可以对他们的等级进行标注呢？

__DATA__
A     B
B;C;D E                                      
B     C
B;E   F
C;G   I
I;J;B K
C  J

标注为：

A : A->B->C->I;J->K;
D: D->E->F;
G:G->I->K;