取并集

mcshell

shell版块的一个问题，想了很长时间 没有好的思路
如何将文本中，含有相同的数的行，求并集后输出
如
cat test.data
==============================================
1 2
2 3
3 2
4 7 8
5 7
6
7 4 5 8
8 4 7
================================================
想要得到的结果为
cat test.result
================================================
1 2 3
4 5 7 8
6
================================================
结果是这样得到的，第一行是{1,2}{2,3}{3,2}求并集后的结果{1,2,3}
第二行是{4,7,8}{5,7}{7,4,5,8}{7,4,7}求并集的结果{4,5,7,8}
而第三行{6}没有于其他行有交集所以结果为{6}
我的问题是，如果把所有含有相同数的行求并集后列出来
=================================================
如果是这样的
1 2
4 5
1 5
合并的结果为
1 2 4 5



请大家给个思路....

kaixin9ok

kaixin9ok

回复 2# kaixin9ok


  

cecial

回复 1# mcshell
如果是
1 2
2 3
3 4
4 5
这种呢？



   

mcshell

回复 4# cecial


    12345

kk861123

回复 1# mcshell


    需求无奇不有啊，我来抛个砖

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. 
   
6. my @stack = ();
   
7. while (<DATA>) {
   
8.     my @numbers = split;
   
9.     push @stack, [ @numbers ] and next unless @stack;
   
10.     my $is_not_uniq = 1;
    
11.     foreach my $i (0..$#stack) {
    
12.         my (%m,%n);
    
13.         $m{$_}++ && $n{$_}++ for @{$stack[$i]}, @numbers;
    
14.         if (%n) {
    
15.             # find some uniq numbers
    
16.             # so, update this array list
    
17.             $stack[$i] = [ sort {$a <=> $b} keys %m ];
    
18.             $is_not_uniq = 0;
    
19.             last;
    
20.         }
    
21.     }
    
22.     push @stack, [ @numbers ] if $is_not_uniq;
    
23. }
    
24. 
    
25. print Dumper \@stack;
    
26. 
    
27. __DATA__
    
28. 1 2
    
29. 2 3
    
30. 3 2
    
31. 4 7 8
    
32. 5 7
    
33. 6
    
34. 7 4 5 8
    
35. 8 4 7

复制代码

mcshell

回复 6# kk861123


    顶眼镜哥，每次都是你帮忙

mcshell

回复 6# kk861123


    能否讲下思路 ，授之以渔~~

kk861123

回复 8# mcshell


   好，思路就是没读取一行都与@stack中的各组进行重组，当然是发现有重复的内容才会重组。
%m 用于获取并集， %n用于获取交集。

mcshell

回复 9# kk861123


    Thinks