如何逐个数据块堆叠文件数据块？

Question

我在一个文件夹中有三个文件。

文件 A 有 700 行，由 100 个数据块组成。每个数据块有 5 行。第一行是每个数据块的总行数，第二行是空的，第三~第七行是数据。

5  

AA  356djs  225gsd  1245gr
BB  123asd  123asd  123asd
CC  TToptg  TToptg  gngngn
DD  sIG123  gjn123  uot123
EE  166131  100021  205011
5 

AA  356djs  225gsd  1245gr
BB  123asd  123asd  123asd
CC  TToptg  TToptg  gngngn
DD  sIG123  gjn123  uot123
EE  166131  100021  205011
.... (repeating until 100th data block)  

文件 B 与 A 相似，但略有不同。它总共有 300 行，由 100 个数据块组成，每个数据块有 3 行

3

LL  lplplp  122121  aggagg
KK  hbnkio  ohgimp  125125
TT  KGNskg  fgnjdg  125154
3

LL  lplplp  122121  aggagg
KK  hbnkio  ohgimp  125125
TT  KGNskg  fgnjdg  125154
.... (repeating until 100th data block)

文件 C 也类似。一共400行，由100个数据块组成，每个数据块有4行

4

PP  ginini  216361  sgdaga
ZZ  gonhon  q215ag  hagqgq
RR  TKEMMM  125sdg  125961
II  tninks  150121  192u9u
4

PP  ginini  216361  sgdaga
ZZ  gonhon  q215ag  hagqgq
RR  TKEMMM  125sdg  125961
II  tninks  150121  192u9u
.... (repeating until 100th data block)

我希望将这 3 个文件堆叠成单个文件，逐个数据块。所以结果总共有 1200 行，由 100 个数据块组成，每个数据块有 12 行，应该是这样的

12

AA  356djs  225gsd  1245gr
BB  123asd  123asd  123asd
CC  TToptg  TToptg  gngngn
DD  sIG123  gjn123  uot123
EE  166131  100021  205011
LL  lplplp  122121  aggagg
KK  hbnkio  ohgimp  125125
TT  KGNskg  fgnjdg  125154
PP  ginini  216361  sgdaga
ZZ  gonhon  q215ag  hagqgq
RR  TKEMMM  125sdg  125961
II  tninks  150121  192u9u
12

AA  356djs  225gsd  1245gr
BB  123asd  123asd  123asd
CC  TToptg  TToptg  gngngn
DD  sIG123  gjn123  uot123
EE  166131  100021  205011
LL  lplplp  122121  aggagg
KK  hbnkio  ohgimp  125125
TT  KGNskg  fgnjdg  125154
PP  ginini  216361  sgdaga
ZZ  gonhon  q215ag  hagqgq
RR  TKEMMM  125sdg  125961
II  tninks  150121  192u9u
.... (repeating until 100th data block)

如果它完全堆叠 3 个文件，这很容易，因为我可以使用 cat 命令。但这是不同的......我怎样才能通过每个数据块来堆叠文件，就像上面的例子一样？我可以使用 awk 命令或 cat 命令吗？也欢迎 Fortran 或 python 方法。

谢谢

最好的，

Answer 1

这是用于堆叠块的 Perl 代码。它临时将 $/（记录分隔符）重新定义为两个连续的新行，因此每个空行开始一个新段落。然后它从三个文件中的每一个中读取每个段落（块）并写入输出。

#!/usr/bin/env perl

# Usage: $0 <File A> <File B> <File C> <Output File>

StackEm();
CleanUp();

sub StackEm
{
  # Within this function, temporarily redefine $/ for paragraph mode
  local $/ = "\n\n";
  my $line;
  open(A, "< $ARGV[0]");
  open(B, "< $ARGV[1]");
  open(C, "< $ARGV[2]");
  open(D1, "> temp1");

  # Read a block from each of the files and write it to output
  for (my $i=0; $i < 100; $i++) {
    $line = <A>;
    print D1 "12\n";
    print D1 $line;

    $line = <B>;
    print D1 $line;

    $line = <C>;

    print D1 $line;
  }

  close(A);
  close(B);
  close(C);
  close(D1);

}

sub CleanUp
{
  open(D2, "< temp1");
  open(E, "> $ARGV[3]");

  while (<D2>) {
    if ( /^\s*(\d+)\s*$/ ) {
      if ( $1 == 12  && ($. != 1) ) {
        print E $_, "\n";
      }
    } elsif ( !($_ =~ /^\s*$/) )  {
        print E $_;
    }
  }

  close(D2);
  close(E);
}