合并文本中相同的字段

moperyblue

1. awk '/^[a-z]/{a=$0;getline;k=a RS $0;next}{b[k]=b[k]?b[k] RS $0:$0}!d[k]++{e[++c]=k}END{while(i++<c)print e[i] RS b[e[i]]}' file

复制代码

moperyblue

1. awk '/^[a-z]/{s=$0;getline;$0=s RS $0}!a[$0]++||!/^[a-z]/' file

复制代码

华小飞_Perl

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my (%cat_text, $capture);
   
7. while (<>) {
   
8.         chomp;
   
9.         if (/^(\w\S+)$/m) {
   
10.                 $capture = $1;
    
11.                 next;
    
12.         } elsif (/destinations:/) {
    
13.                 next;
    
14.         } else {
    
15.                 push @{ $cat_text{$capture} }, $_;
    
16.         }
    
17. }
    
18. 
    
19. for my $dir ( keys %cat_text ) {
    
20.         print $dir, "\n", "  destinations:\n";
    
21.         my $ary = join "\n", @{ $cat_text{$dir} };
    
22.         print $ary, "\n";
    
23. }

复制代码