求个思路

rubyish

{:3_188:}:

1. #!/usr/bin/perl
   
2. use 5.016;
   
3. my @p = qw/A B C/;
   
4. my $R = join '|', @p;
   
5. my @data = split m[//], do { local $/; <DATA> };
   
6. for ( @data[ 1 .. $#data - 1 ] ) {
   
7.     my @a = grep /^$R\s/, split /\n/;
   
8.     my %e;
   
9.     map { /(\S+)\s+(.*)/; $e{$1} .= $2 } @a;
   
10.     say join "\t", map { $e{$_} || '*' } @p;
    
11. }
    
12. __DATA__
    
13. //
    
14. A 1；
    
15. XX
    
16. B 2；
    
17. XX
    
18. C 3；
    
19. XX
    
20. D 4；
    
21. XX
    
22. //
    
23. A 5；
    
24. XX
    
25. B 6；
    
26. B 7；
    
27. XX
    
28. //
    

复制代码

climby

这个应该比较容易；
思路：
1. 如果文档不大的话，将整个文档当一个长字符串处理。   -- $txt;
2. 用正则  @content = $txt =~ /([^\/\/]+)\/\//gs;
3. 这样两个// 之间的内容就保存在@content 中了，
4. 处理@content就能获得结果了

墨迹哥

  把原始数据发出来。发两条看看，然后才能知道怎么弄阿。。
   大概看了下：
   1.先split(/\s+/)
   2.然后打印写入的时候加上\t
   应该就可以了。因为你每个都是\t退格来进行操作。。

wenhq

你的D4呢跑那里去了？

wenhq

sed -n '1h;/\/\//!{:a;1!H;$!b};1!{x;s/\n//g;s/XX/\t\t/g;s/[A-Z]//g;s/\/\///g;p;}' test
1;              2;              3;              4;
5;              6; 7;