【已解决】求助一个AWK脚本，实现文本的处理

lanfeng356

原始文本格式：
Name： name1 id-1
Name： name2 id-1
Attr： attr1
Attr： attr2
Name： name3 id-1
Name： name4 id-2
Name： name5 id-2
Name： name6 id-1
Attr： attr3
Attr： attr4

想要的格式：
name1 id-1 attr1
name1 id-1 attr2
name2 id-1 attr1
name2 id-1 attr2
name3 id-1 attr3
name3 id-1 attr4
name4 id-2 attr3
name4 id-2 attr4
name5 id-2 attr3
name5 id-2 attr4
name6 id-1 attr3
name6 id-1 attr4

大概就是这样的需求。也就是说，name的个数和attr的个数是变化的。把下面attr分别接到上面的name后面。求大神帮忙看看，谢谢

haooooaaa

1. awk '{if(/^N/){if(n){delete a;n=0};a[gensub($1" ","",1)]}else{for(i in a)print i,$NF;n=1}}' a | sort

复制代码

lanfeng356

回复 2# haooooaaa

非常感谢大神，就是这个数组变量，想了半天不知道怎么用。

moperyblue

1. awk 'NF>2{if(!f){delete a;f=1;p=0}a[$2 FS $3];next}{for(i in a)print i,$NF|"sort";if(!p){f=0;p=1}}'

复制代码

zy86416779

1. [root@CentOS_6 experiment]# awk -F: -f a.awk a.txt | sed 's/^ //' | sort
   
2. name1 id-1  attr1
   
3. name1 id-1  attr2
   
4. name2 id-1  attr1
   
5. name2 id-1  attr2
   
6. name3 id-1  attr3
   
7. name3 id-1  attr4
   
8. name4 id-2  attr3
   
9. name4 id-2  attr4
   
10. name5 id-2  attr3
    
11. name5 id-2  attr4
    
12. name6 id-1  attr3
    
13. name6 id-1  attr4
    
14. [root@CentOS_6 experiment]# cat a.awk
    
15. BEGIN{counter=1}
    
16. {
    
17.   if($1~/Name/){
    
18.     #print $2
    
19.     array[counter]=$2
    
20.     #print array[counter]
    
21.     counter++
    
22.     #print counter
    
23.     next
    
24.   }
    
25.   else{
    
26.     for(i in array){printf array[i] " " $2 "\n"}
    
27.     counter=1
    
28.   }
    
29. }
    
30. [root@CentOS_6 experiment]# cat a.txt
    
31. Name: name1 id-1
    
32. Name: name2 id-1
    
33. Attr: attr1
    
34. Attr: attr2
    
35. Name: name3 id-1
    
36. Name: name4 id-2
    
37. Name: name5 id-2
    
38. Name: name6 id-1
    
39. Attr: attr3
    
40. Attr: attr4

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub Display{
   
6.         my $ra = shift;
   
7.         foreach my $name (@{$ra->[0]}){
   
8.                 print join ("\t", $name, $_), "\n" for @{$ra->[-1]};
   
9.         }
   
10. }
    
11. 
    
12. my ($last_pos, $raData) = (0, []);
    
13. while (<DATA>){
    
14.          my $pos = 0;
    
15.          $pos = 1 if (/\A(\w+)\W+(.*)/ and $1 ne 'Name');
    
16.          if ($last_pos and !$pos){
    
17.                  Display ($raData);
    
18.                  $raData = [];
    
19.          }
    
20.          push (@{$raData->[$pos]}, $2);
    
21.          $last_pos = $pos;
    
22. }
    
23. 
    
24. Display ($raData);
    
25. 
    
26. __DATA__
    
27. Name： name1 id-1
    
28. Name： name2 id-1
    
29. Attr： attr1
    
30. Attr： attr2
    
31. Name： name3 id-1
    
32. Name： name4 id-2
    
33. Name： name5 id-2
    
34. Name： name6 id-1
    
35. Attr： attr3
    
36. Attr： attr4
    

复制代码

moperyblue

1. awk 'function s(){for(x=1;x<=length(a);x++)for(y=1;y<=length(b);y++)print a[x],b[y]}NF>2{if(!f){if(a[i])s();delete a;delete b;f=1;p=0;i=j=0}a[++i]=$2 FS $3;next}{b[++j]=$2;if(!p){f=0;p=1}}END{s()}'

复制代码

lanfeng356

使用2楼大侠的方法已经解决，感谢各位帮助。