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

tonkie

请大家帮忙看看，如何将两个文件的列合并成如下方式：

A.txt

INORM<0>
AXX
BXX
CXXX
daaa
ebbb
INORM<1>
AXX
BXX1
CXXX1
daaa
ebbb
INORM<2>
AXX
BXX2
CXXX2
daaa
ebbb
Sub<0>
AXX
BXX
CXXX
daaa
ebbb
Sub<1>
AXX
BXX1
CXXX1
daaa
ebbb



B.txt 的内容
feature
AXX
BXX
CXXX
daaa
ebbb

feature2
AXX
BXX
CXXX
daaa
ebbb



需求将B.txt中的列放到c.txt中的第一个列并在前面加入一个符号“.”,将a.txt中的列放在c.txt中的第二列，并用（）将第二列包围加字符“，”
c.txt样本内容如下：

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

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)
);

tonkie

回复 2# sunzhiguolu
兄弟，感谢！

我在redhat 6.8环境中运行  ./run.pl b.txt a.txt 报如下错误，麻烦帮我看看！

INORM<2>        feature
(
.AXX        (AXX),
.BXX        (BXX2),
.CXXX        (CXXX2),
.daaa        (daaa),
.ebbb        (ebbb),
Use of uninitialized value in printf at ./run.pl line 22, <> line 19.
Sub<0>       
(
Use of uninitialized value in printf at ./run.pl line 27, <> line 20.
.        (AXX)
Use of uninitialized value in printf at ./run.pl line 27, <> line 21.
.        (BXX)
Use of uninitialized value in printf at ./run.pl line 27, <> line 22.
.        (CXXX)
Use of uninitialized value in printf at ./run.pl line 27, <> line 23.
.        (daaa)
Use of uninitialized value in printf at ./run.pl line 27, <> line 24.
.        (ebbb)
);
Use of uninitialized value in printf at ./run.pl line 22, <> line 25.
Sub<1>       
(
Use of uninitialized value in printf at ./run.pl line 27, <> line 26.
.        (AXX)
Use of uninitialized value in printf at ./run.pl line 27, <> line 27.
.        (BXX1)
Use of uninitialized value in printf at ./run.pl line 27, <> line 28.
.        (CXXX1)
Use of uninitialized value in printf at ./run.pl line 27, <> line 29.
.        (daaa)
Use of uninitialized value in printf at ./run.pl line 27, <> line 30.
.        (ebbb)
);

sunzhiguolu

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

tonkie

回复 4# sunzhiguolu

数据就是我第一次发的数据，然后copy到linux中，再运行你的脚本。

tonkie

回复 4# sunzhiguolu
是我自己搞错了，我把我第一次发的数据， b.txt中有个空行删除了，我再添加空行就不报错了。

怎么让b.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

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

tonkie

回复 7# sunzhiguolu

b.txt是以这样的数据格式存在
feature
AXX
BXX
CXXX
daaa
ebbb
feature2
AXX
BXX
CXXX
daaa
ebbb

实际的原始数据中AXX BXX CXXX daaa ebbb是其他字符形式的存在，在feature下面是多行数据，不是现在的5行数据;

a.txt  与 b.txt中行数量是一样的。

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
    

复制代码

tonkie

回复 9# sunzhiguolu

再次感谢！