求教：如何對(duì)歸屬關(guān)系進(jìn)行等級(jí)標(biāo)注？

huang6894

對(duì)于以下文本，右邊是左邊的子類，右邊只可能有一個(gè)，應(yīng)該怎么做才能對(duì)他們的等級(jí)進(jìn)行標(biāo)注呢？

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

標(biāo)注為：

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

xiumu2280

1. my %family;
   
2. 
   
3. while (<DATA>) {
   
4.         chomp;
   
5.     my @person = split /;|\s+/;
   
6.     my $son    = pop @person;
   
7.    
   
8.     $family{$_}{$son} = 1 for @person;
   
9. }
   
10. 
    
11. my @all_data;
    
12. for my $person ( sort keys %family ) {
    
13.         my @team;
    
14.         _repeat ($person,\%family,\@team);
    
15. }
    
16. 
    
17. @all_data = _uniq(@all_data);
    
18. 
    
19. for my $f (@all_data) {
    
20.         print +(join "->",@{$f})."\n";
    
21. }
    
22. 
    
23. sub _repeat {
    
24.         my ($goal,$family,$team) = @_;
    
25.         my %hash = %{$family};
    
26.         my @t = @{$team};
    
27.         if ($hash{$goal}) {
    
28.                 push @t,$goal;
    
29.                 for my $key (keys %{$hash{$goal}}) {
    
30.                         _repeat($key,$family,\@t);
    
31.                 }
    
32.         }else{
    
33.                 push @t,$goal;
    
34.                 push @all_data,[@t];
    
35.                 return;
    
36.         }
    
37. }
    
38. 
    
39. sub _uniq {
    
40.         my @data = @_;
    
41.         for my $n (0..$#data) {
    
42.                 my $arr = $data[$n];
    
43.                 for my $array (@data) {
    
44.                         if (defined $array && scalar(@$arr) < scalar(@$array)) {
    
45.                                 my %uniq;
    
46.                                 @uniq{@$arr}=@$arr;
    
47.                                 my @uni = grep{$uniq{$_}}@$array;
    
48.                                 if (@uni == @$arr) {
    
49.                                         undef ($data[$n]);
    
50.                                 }
    
51.                         }
    
52.                 }
    
53.         }
    
54.         @data = grep {defined}@data;
    
55.         return @data;
    
56. }
    
57. 
    
58. __DATA__
    
59. A     B
    
60. B;C;D E                                      
    
61. B     C
    
62. B;E   F
    
63. C;G   I
    
64. I;J;B K
    
65. C  J

復(fù)制代碼

這個(gè)東東，還是有點(diǎn)意思啊··
寫到一半，mark一下。

1. A->B->C->J->K
   
2. A->B->C->I->K
   
3. A->B->C->E->F
   
4. D->E->F
   
5. G->I->K

復(fù)制代碼

我想問下
A->B->C->I;J->K
A->B->C->E->F
是如何取舍的？取元素最多那個(gè)？

lpnueg4

我的理解的，從圖上得到
A: A->B
B: B->E
C: C->E
D: D->E
B: B->C
B: B->F
E: E->F
C: C->I
G: G->I
I: I->K
J: J->K
B: B->K
C: C->J
這些基本信息，然后根據(jù)關(guān)系組合在一起，對(duì)嗎？

huang6894

回復(fù) 2# lpnueg4


    是呀~很糾結(jié)不知道如何排列組合，因?yàn)榛�本情況中的兩個(gè)元素中間可能會(huì)有其它元素

huang6894

回復(fù) 4# xiumu2280


    sorry,是我太馬虎了。。。

不用取舍，就是求個(gè)家族史：
A->B->C->I;J->K
A->B->C->E->F

是對(duì)的，謝謝大神，我需要好好研究一下您的代碼，謝謝，謝謝

lpnueg4

寫了一大堆，還沒寫出來，結(jié)果就看見大神寫好了，厲害！

huang6894

回復(fù) 6# lpnueg4


    謝謝