将文件拆分为多个文件/数组 - 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

File2如下..

    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 $_);
}