第一列或第二列相同的行合并

sunzhiguolu

回复 7# mswsg
试下,

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my ($offset, @aData, %hMap) = 0;
   
7. while (<DATA>){
   
8.     my @aLine = split;
   
9.     if (!@aData){
   
10.         $aData[$offset] = [@aLine];
    
11.         $hMap{$_} = $offset for @aLine;
    
12.         next;
    
13.     }
    
14.     my @aPos;
    
15.     if (@aPos = map {exists $hMap{$_} ? $hMap{$_} : ()} @aLine){
    
16.         if (@aPos == 2 and $aPos[0] ne $aPos[-1]){
    
17.             @aPos = @aPos[-1, 0] if ($aPos[0] > $aPos[-1]);
    
18.             push (@{$aData[$aPos[0]]}, map {$hMap{$_} == $aPos[0] ? () : do {$hMap{$_} = $aPos[0]; $_}} @aLine);
    
19.             push (@{$aData[$aPos[0]]}, map {$hMap{$_} == $aPos[0] ? () : do {$hMap{$_} = $aPos[0]; $_}} @{$aData[$aPos[-1]]});
    
20.             splice (@aData, $aPos[-1], 1);
    
21.             next;
    
22.         }
    
23.         push (@{$aData[$aPos[-1]]}, map {exists $hMap{$_} ? () : do {$hMap{$_} = $aPos[-1]; $_}} @aLine);
    
24.         next;
    
25.     }
    
26.     $aData[++$offset] = [@aLine];
    
27.     $hMap{$_} = $offset for @aLine;
    
28. }
    
29. 
    
30. print "@$_\n" for @aData;
    
31. __DATA__
    
32. A B
    
33. C A
    
34. D C
    
35. E F
    
36. N G
    
37. C N
    

复制代码

perl abc.pl
--------------------------------
A B C D N G
E F


   

RE_HASH

$> cat aa|perl -01npe ' s/ //g; 1 while (s/(\w)(.*)\n+(\w*\1\w*)\n/\3\2\n/sg)'
DCNGAB
EF

mswsg

1. char2id = {}
   
2. id2charset = {}
   
3. 
   
4. def getcharset(c):
   
5.     try:
   
6.         return id2charset[char2id[c]]
   
7.     except:
   
8.         return None
   
9. 
   
10. def newcharset(chars):
    
11.     newset = set(chars)
    
12.     return newset
    
13. 
    
14. def merge(charset1, charset2):
    
15.     if id(charset1)==id(charset2):
    
16.         return
    
17.     charset1 |= charset
    
18.     for c in charset2:
    
19.         char2id[c] = id(charset1)
    
20.     id2charset.pop(id(charset2))
    
21. 
    
22. with open('test2') as reader:
    
23.     for line in reader:
    
24.         chars = line.strip().split()
    
25.         newset = newcharset(chars)
    
26.         id2charset[id(newset)] =newset
    
27. 
    
28.         for c in chars:
    
29.             charset = getcharset(c)
    
30.             if charset:
    
31.                 merge(newset, charset)
    
32.             else:
    
33.                 char2id[c] = id(newset)
    
34. 
    
35. with open('report', 'w') as writer:
    
36.     for id, charset in id2charset.items():
    
37.         print(' '.join(charset), file=writer)

复制代码

回复 9# sunzhiguolu


   

mswsg

Thank you ,帅叔叔回复 10# jason680


   

sunzhiguolu

回复 13# mswsg
能否说下, 解题思路.