求教两个文件的列合并问题

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData = ();
   
6. open (my $FHr, '<', shift);
   
7. {
   
8.     local $/ = '';
   
9.     push (@aData, [split]) while (<$FHr>);
   
10. }
    
11. close ($FHr);
    
12. 
    
13. my ($idx, $lastIdx, $pos, $print) = (0) x 4;
    
14. while (<>){
    
15.     chomp;
    
16.     if (/\A(\w+)</){
    
17.         $idx = $1 eq 'Sub' ? 1 : 0;
    
18.         $pos = 0;
    
19.         if ($print++){
    
20.             print ");\n" if (!($lastIdx or $idx) or ($lastIdx and $idx));
    
21.         }
    
22.         printf("%s\t%s\n(\n", $_, $aData[$idx][$pos]);
    
23.         next;
    
24.     }
    
25.     $pos++;
    
26.     $lastIdx = $idx;
    
27.     printf(".%s\t(%s)", $aData[$idx][$pos], $_);
    
28.     print ',' if ($pos < $#{$aData[$idx]});
    
29.     print "\n";
    
30. }
    
31. print ");\n";
    

复制代码

perl abc.pl b a
--------------------------
INORM<0>        feature
(
.AXX    (AXX),
.BXX    (BXX),
.CXXX   (CXXX),
.daaa   (daaa),
.ebbb   (ebbb)
);
INORM<1>        feature
(
.AXX    (AXX),
.BXX    (BXX1),
.CXXX   (CXXX1),
.daaa   (daaa),
.ebbb   (ebbb)
);
INORM<2>        feature
(
.AXX    (AXX),
.BXX    (BXX2),
.CXXX   (CXXX2),
.daaa   (daaa),
.ebbb   (ebbb)
Sub<0>  feature2
(
.AXX    (AXX),
.BXX    (BXX),
.CXXX   (CXXX),
.daaa   (daaa),
.ebbb   (ebbb)
);
Sub<1>  feature2
(
.AXX    (AXX),
.BXX    (BXX1),
.CXXX   (CXXX1),
.daaa   (daaa),
.ebbb   (ebbb)
);

sunzhiguolu

回复 3# tonkie
将你的 b.txt, a.txt 文件内容各贴出一部分 （原始数据，将涉及到隐私部分的内容适当修改 但不要破坏文件本身的数据结构）。

sunzhiguolu

回复 6# tonkie
我想确认下，在 b.txt 中 你提供的示例数据中，如下：
feature
AXX
BXX
CXXX
daaa
ebbb

feature2
AXX
BXX
CXXX
daaa
ebbb

该文件用空行来分割一个完整的数据项，并且每个数据项的头部信息是以 feature  进行标识后面可能跟有数字字符。并且该头部信息 （即 feature）始终在数据项的顶部，不会发生位置的改变。
现在你的要求是 b.txt 文件内容格式发生变化，原本用来分割每个数据项之间的空白行 现在没有了。像下面这样：
feature
AXX
BXX
CXXX
daaa
ebbb
feature2
AXX
BXX
CXXX
daaa
ebbb

我的理解是否与你的文件数据结构相一致？

sunzhiguolu

示例代码，你稍微修改下。

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData = ();
   
6. while (<DATA>){
   
7.         next if (/\A\s*\z/);
   
8.         chomp;
   
9.         if (/\Afeature/){
   
10.                 push (@aData, [$_]);
    
11.                 next;
    
12.         }
    
13.         push (@{$aData[-1]}, $_);
    
14. }
    
15. 
    
16. print "@$_\n" for @aData;
    
17. 
    
18. __DATA__
    
19. feature
    
20. AXX
    
21. BXX
    
22. CXXX
    
23. daaa
    
24. ebbb
    
25. feature2
    
26. AXX
    
27. BXX
    
28. CXXX
    
29. daaa
    
30. ebbb
    

复制代码