求助，perl

赛萌

怎么写一个perl程序  一个数组有多行，让这些有共同的元素的行合并起来，没有共同元素的行正常输出呢？
例如：把这个数组
A B C
C A B D
D F
E Z
G K
K M
KK CC
M P
合并成
A B C D F
E Z
G K M P
KK CC

rubyish

shishi:

1. #!/usr/bin/perl
   
2. use 5.022;
   
3. my %that = map { my $h; @$h{ (split) } = (); $a++, $h } <DATA>;
   
4. 
   
5. while ( my ( undef, $it ) = each %that ) {
   
6.     my ( %true, %this ) = %$it;
   
7.     while (%true) {
   
8.         my @key = grep !exists $this {$_}, keys %true;
   
9.         @this {@key} = ();
   
10.         undef %true;
    
11.         for my $key (@key) {
    
12.             for my $elem ( keys %that ) {
    
13.                 next unless exists $that {$elem} {$key};
    
14.                 @true { keys %{ $that {$elem} } } = ();
    
15.                 delete $that {$elem}
    
16.     }}}
    
17.     say join $", sort keys %this;
    
18. }
    
19. 
    
20. __DATA__
    
21. A        B        C      
    
22. C        A        B        D
    
23. D        F               
    
24. E        Z               
    
25. G        K               
    
26. K        M               
    
27. KK        CC               
    
28. M        P     
    

复制代码

莫莫小米

回复 2# rubyish

1. my %that = map { my $h; @$h{ (split) } = (); $a++, $h } <DATA>;

复制代码

这一句什么意思啊

   

MMMIX

回复 2# rubyish


    终于不见你写只有几行的程序了，那我来一个吧，^_^

1. 
   
2. use v5.14;
   
3. no warnings qw(experimental::autoderef);
   
4. 
   
5. while (<>) {
   
6.     chomp;
   
7.     $b = { map { $_ => 1 } split };
   
8.     $a = $_, map { $a = $_, (map { $a->{$_}++ } keys $b), undef %$b if $_->{$a} } @_ for keys $b;
   
9.     push @_, $b if %$b;
   
10. }
    
11. 
    
12. say "@{[ sort keys $_ ]}" for @_;
    

复制代码

MMMIX

回复 2# rubyish


    感觉你这个程序写的不在状态呀……

rubyish

回复 3# 莫莫小米

shi:

1. #!/usr/bin/perl
   
2. use 5.022;
   
3. 
   
4. # my %hash = map { my $h; @$h{ (split) } = (); $a++, $h } <DATA>;
   
5. # my %hash = map { $a++ => { map { $_ => undef } split } } <DATA>;
   
6. # EQ
   
7. 
   
8. my %hash = map {
   
9.     my $h    = {};
   
10.     my @keys = split;
    
11.     @{$h}{@keys} = ();
    
12.    
    
13.     # EQ
    
14.     # $h->{$_} = undef for @keys;
    
15.    
    
16.     $a++ => $h    # key => Val
    
17.     # EQ:
    
18.     # $a++, $h
    
19. } <DATA>;
    
20. 
    
21. 
    
22. # %hash =
    
23. # ( 2 => { O => undef, R => undef },
    
24. #   0 => { I => undef, J => undef },
    
25. #   1 => { O => undef, W => undef },
    
26. #   3 => { J => undef, R => undef, A => undef } )
    
27. 
    
28. __DATA__
    
29. I   J
    
30. O   W
    
31. O   R
    
32. R   J   A
    

复制代码

rubyish

回复 5# MMMIX

     感觉你这个程序写的不在状态呀……

zhege timu, wo zhihui 2 zhong xiefa.
fangfa 1:

13 hang:

1. sub S {
   
2.     ( $a, $b ) = @_;
   
3.     exists $b->{$a} ? return : $b->{$a}++;
   
4.     S( $_, $b ) for keys %{ $_{$a} };
   
5.     sort keys %$b;
   
6. }
   
7. 
   
8. while (<DATA>) {
   
9.     @{ $_{$_} }{@_} = () for @_ = split;
   
10. }
    
11. 
    
12. while ( $a = each %_ ) {
    
13.     say join $", @_ = S $a;
    
14.     delete @_{@_};
    
15. }

复制代码

nongsuo 7 hang:

1. sub S {
   
2.     ( $a, $b ) = @_;
   
3.     $b->{$a}++ ? return : map S( $_, $b ), keys %{ $_{$a} };
   
4.     delete @_{ @_ = sort keys %$b } or @_;
   
5. }
   
6. 
   
7. map @{ $_{$_} }{@_} = (), @_ = split for <DATA>;
   
8. say join $", S$a while $a = each %_;
   

复制代码

j_cle

1. $a = $_, map { $a = $_, (map { $a->{$_}++ } keys $b), undef %$b if $_->{$a} } @_ for keys $b;

复制代码

回复 4# MMMIX


    这句精辟啊，可是小白的我不太理解，有点绕～，能帮分析下么

rubyish

回复 4# MMMIX


bug report:

simon de DATA geide buhao, ceshi zhe 1 zu:

__DATA__
D   E
A   B
F   C
F   G
G   E
E   B


yuqide output:

A B C D E F G


yiwaide output:

B D E G
A B
C F G

or:

D E G
A B E
C F G


huo zhe 1 zu:

__DATA__
D   E
A   B
H   I   J   K   A
L   M   N
O   Q   P
N   P   R
S   T
F   C
F   G
G   E
E   B
T   L
U   V   S
W   X   Y
W   Z
Z   X

output:

W X Y Z
L M N O P Q R S T U V
A B C D E F G H I J K

rubyish

回复 8# j_cle

EQ:

1. for ( keys $b ) {
   
2.     $a = $_;
   
3.     map {
   
4.         if ( $_->{$a} ) {
   
5.             $a = $_;
   
6.             map { $a->{$_}++ } keys $b;
   
7.             undef %$b;
   
8.         }
   
9.     } @_;
   
10. }

复制代码