请教： 对一文本内容的分析

tener

我有一个问题，由系统自动生成，内容如下：

object-service-a01
2011/01/18 11:40:29 Starting cygwin install, version 2.738
2011/01/18 11:40:29 io_stream_cygfile: fopen(/etc/setup/net-proxy-host) failed 2 No such file or directory
2011/01/18 11:40:29 io_stream_cygfile: fopen(/etc/setup/net-proxy-port) failed 2 No such file or directory
2011/01/18 11:40:29 io_stream_cygfile: fopen(/etc/setup/extrakeys) failed 2 No such file or directory

object-service-a02
2011/01/18 11:40:29 Changing gid to Administrators
2011/01/18 11:40:29 Could not open service McShield for query, start and stop. McAfee may not be installed, or we don't have access.
2011/01/18 11:40:32 source: network install
2011/01/18 11:40:40 Ending cygwin install

object-service-a03
1 May 28 11:29:50 hpcdhm05-cntrl kernel: hda: timeout waiting for DMA
2 May 28 11:29:50 hpcdhm05-cntrl kernel: ide_dmaproc: chipset supported
  ide_dma_timeout func only: 14
3 May 28 11:29:50 hpcdhm05-cntrl kernel: hda: status timeout: status=0xd0 {Busy}
4 May 28 11:29:50 hpcdhm05-cntrl kernel: hda: drive not ready for command
5 May 28 11:29:50 hpcdhm05-cntrl kernel: ide0: reset: success
6 May 28 11:29:52 hpcdhm05-cntrl init: Id "bpal" respawning too fast: disabled
  for 5 minutes

object-service-a04
......

object-service-a05
......

object-service-a06
.....



我想把类似这样的文本，按照各自的object号来保存到对应的文本（如果么有此文本，就自动创建），比如有 object-service-a01.txt，它的内容就是：
2011/01/18 11:40:29 Starting cygwin install, version 2.738
2011/01/18 11:40:29 io_stream_cygfile: fopen(/etc/setup/net-proxy-host) failed 2 No such file or directory
2011/01/18 11:40:29 io_stream_cygfile: fopen(/etc/setup/net-proxy-port) failed 2 No such file or directory
2011/01/18 11:40:29 io_stream_cygfile: fopen(/etc/setup/extrakeys) failed 2 No such file or directory

如果文本中有 object-service-a99 就分别保存到99个object-xx-a99.txt中去。

当然，文本中的object中的内容是一样的。


请问，如此的事务，我该如何去分析，怎么做判断？ 谢谢！

x9x9

1. use strict;
   
2. use warnings;
   
3. use IO::File;
   
4. 
   
5. open IN,"<yourfile" or die "can't open file :$!\n";
   
6. my $fh;
   
7. 
   
8. while (<IN>) {
   
9. if (/^object/){
   
10. chomp;
    
11. $fh=IO::File->new("> $_.txt");
    
12. } else {
    
13. print $fh $_;
    
14. }
    
15. }

复制代码

longbow0

如果每个 object-service 之间有一个空行，可以

1. 
   
2. local $/="\n\n";
   

复制代码

读取。

tener

非常感谢楼上两位的回复，谢谢。

我先试试看看效果。

tener

x9x9 发表于 2011-02-28 00:43

按正则的规则可以创建文件，但是，下面的内容无法输出到此文件呀。

继续求教。

jason680

按正则的规则可以创建文件，但是，下面的内容无法输出到此文件呀。

继续求教。
tener 发表于 2011-03-18 11:23

1. use strict;
   
2. my $sFile = "object-service-xx.txt";   # your file name here
   
3. open(my $FHin, "<", $sFile) or die "can't open $sFile file \n";
   
4. 
   
5. my $sOut_file = "";
   
6. my $sOut_data = "";
   
7. while(<$FHin>){
   
8.     if(m/^(object-service-a\d+)/){
   
9.         output($sOut_file, $sOut_data);
   
10.         $sOut_data = "";
    
11.         $sOut_file = "$1.txt";
    
12.     }
    
13.     else{
    
14.         $sOut_data .= $_;
    
15.     }
    
16. }
    
17. output($sOut_file, $sOut_data);
    
18. 
    
19. #=================================
    
20. sub output{
    
21.     my ($sFile, $sData) = @_;
    
22.     return if ($sFile eq "");
    
23.     open(my $FHout, ">>", $sFile) or die "can't open $sFile file\n";
    
24.     print {$FHout} $sData;
    
25.     close $FHout;
    
26. }

复制代码

tener

jason680 发表于 2011-03-18 11:57

    谢谢，ok了，呵呵