-5

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

これで私を助けてください！

4

1 に答える 1

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

   print($fh $_);
}
于 2012-11-15T17:10:33.900 に答える