帮忙求助，实在无奈了

andyhau791010

以下格式的文本文件：
<begin1: 1>      
n            
c            
a            
i            
<end>  
<begin1: 2>      
n            
c            
a            
i            
<end>
<begin1: 3>      
n            
c            
a            
i            
<end>
<begin1: 4>      
n            
c            
a            
i            
<end>     

如何把它按照关键字<begin1:开头和<end>结束1取到4个文件里面，另外若这个文本中begin和end关键字的个数不确定的话，该如何去做，恳请帮忙，多谢大家，着急用。

q1208c

用 hash 不行么？

andyhau791010

能够不能给写个例子出来，多谢多谢了

q1208c

原帖由 andyhau791010 于 2008-7-16 16:50 发表
能够不能给写个例子出来，多谢多谢了

while(<FILE> {
   @temp = split(/ /, $_);
   print hash1{$temp[0]} $temp[1]
}

  管写不管对哟。

cobrawgl

#! /usr/bin/env perl

use strict;
use warnings;

while (<DATA>) {
        if (/begin1:\s+(\d+)/) {
                open OUT, ">$1" or die;
                next;
        }
        print OUT $_ unless /end/;
}

__DATA__
<begin1: 1>      
n            
c            
a            
i            
<end>  
<begin1: 2>      
n            
c            
a            
i            
<end>
<begin1: 3>      
n            
c            
a            
i            
<end>
<begin1: 4>      
n            
c            
a            
i            
<end>

andyhau791010

多谢老大。