perl - 将文件拆分为多个文件/数组 - perl

Question

我想使用 perl sripting 根据内容将文本文件拆分为多个文件。我的文件内容如下...

    Header1:123 
    data... 
    1234... 

    SubTitle1:HHHHHHH 
    mmmm 
    aaaaa  

    SubTitle2:QQQQQQQ 
    mmmm 
    aaaaa 

    Header:MMMMMMMMMMM 
    datasadsad... 
    123434324... 

    SubTitle1:HHHHHHH 
    mmmm343343243
    aaaaa dsfdfds 

    SubTitle2:QQQQQQQ 
    mmmm sff
    aaaaasfsdf

我想分割这个文件如下....

文件 1 或数组或任何对象来保存这个....

    Header1:123 
    data... 
    1234... 

    SubTitle1:HHHHHHH 
    mmmm 
    aaaaa  

    SubTitle2:QQQQQQQ 
    mmmm 
    aaaaa

文件2如下..

    Header:MMMMMMMMMMM 
    datasadsad... 
    123434324... 

    SubTitle1:HHHHHHH 
    mmmm343343243
    aaaaa dsfdfds 

    SubTitle2:QQQQQQQ 
    mmmm sff
    aaaaasfsdf

请帮我解决这个问题！

Answer 1

my $fh;
while (<>) {
   if (/^Header/) {
      open($fh, '>', ...) or die $!;
   }

   print($fh $_);
}