根据标题文本拆分串联文件

Question

我有一些非常大的文件，它们基本上是几个小文件的串联，我需要将它们拆分成各自的组成文件。我还需要将文件命名为与原始文件相同的名称。

例如，文件 QMAX123 和 QMAX124 已连接为：

;QMAX123 - Student

... file content ...

;QMAX124 - Course

... file content ...

我需要将文件 QMAX123 重新创建为

;QMAX123 - Student

... file content ...

And QMAX124 as

;QMAX124 - Course

... file content ...

原始文件的标头 ;QMAX 是唯一的，仅作为标头出现在文件中。

我使用下面的脚本来分割文件的内容，但我无法调整它以获得正确的文件名。

awk '/^;QMAX/{close("file"f);f++}{print $0 > "file"f}'

因此，我可以调整该脚本以正确命名文件，也可以根据文件的内容重命名使用上述脚本创建的拆分文件，以更容易的为准。

我目前正在使用 cygwin bash （它有 perl 和 awk），如果这对你的答案有任何影响的话。

Answer 1

下面的 Perl 应该可以解决这个问题

    use warnings ;
    use strict ;

    my $F   ; #will hold a filehandle
    while (<>) {
      if ( / ^ ; (\S+) /x) {
        my $filename = $1 ;
        open $F, '>' ,  $filename  or die "can't open $filename " ;
      } else {
        next unless defined $F ;
        print $F $_ or warn "can't write"  ;
      }
    }

，请注意，它会丢弃文件名 next 的行之前的所有输入，除非定义了 $F ; 您可能会关心生成错误或添加默认文件。让我知道，我可以更改它

Answer 2

使用 Awk，就这么简单

awk '/^;QMAX/ {filename = substr($1,2)} {print >> filename}' input_file