perl 跨行匹配文件内容 双层过滤

日志特点：分段，格式固定；取出所需数字 按格式写到另外的文件

 
 

  
  需要用perl实现将made和lose的数据如数到result.txt文件中，结果数据格式如下：
Teacher:
6 4 6 4 6 4
Student:
6 4 6 4 6 4
数字之间用tab间隔
 
 
 
 

  
  

 
 
 
 

  
  #
  
  !/bin/perl -w
  
  

  
  use
  
   strict;

  
  my
  
   (
  
  $a
  
  ,
  
   
  
  $b
  
  ,
  
   
  
  $c
  
  );

  
  open
  
   
  
  my
  
   
  
  $data
  
   
  
  ,
  
   
  
  "
  
  < data.txt
  
  "
  
   or 
  
  die
  
   $
  
  !
  
  ;

  
  while
  
   (
  
  <
  
  $data
  
  >
  
  )
{
    
  
  if
  
   (
  
  /^
  
  Teacher
  
  /
  
  sbegin
  
  /
  
  sfirst
  
  /
  
   
  
  ..
  
   
  
  /^
  
  pass
  
  /
  
  ssucceed
  
  /
  
  )
    {
         
  
  if
  
   (
  
  /^
  
  Ball
  
  /
  
  )
         {
            
  
  chomp
  
  (
  
  $a
  
   
  
  =
  
  (
  
  split
  
   
  
  '
  
  :
  
  '
  
  ,
  
   
  
  $_
  
  )[
  
  4
  
  ]);
            
  
  $b
  
   
  
  .=
  
   
  
  $a
  
  .
  
  "
  
  /t
  
  "
  
  ;
         }
    }

    
  
  if
  
   (
  
  /^
  
  Student
  
  /
  
  sbegin
  
  /
  
  sfirst
  
  /
  
   
  
  ..
  
   
  
  /^
  
  pass
  
  /
  
  ssucceed
  
  /
  
  )
    {
         
  
  if
  
   (
  
  /^
  
  Ball
  
  /
  
  )
         {
            
  
  chomp
  
  (
  
  $a
  
   
  
  =
  
  (
  
  split
  
   
  
  '
  
  :
  
  '
  
  ,
  
   
  
  $_
  
  )[
  
  4
  
  ]);
            
  
  $c
  
   
  
  .=
  
   
  
  $a
  
  .
  
  "
  
  /t
  
  "
  
  ;
         }
    }
}

  
  close
  
   
  
  $data
  
  ;



  
  open
  
   
  
  my
  
   
  
  $fh
  
  ,
  
   
  
  "
  
  >result.txt
  
  "
  
  ;

  
  print
  
   
  
  $fh
  
   
  
  "
  
  Teacher:/n
  
  "
  
  ; 

  
  print
  
   
  
  $fh
  
   
  
  $b
  
  .
  
  "
  
  /n
  
  "
  
  ;

  
  print
  
   
  
  $fh
  
   
  
  "
  
  Student:/n
  
  "
  
  ; 

  
  print
  
   
  
  $fh
  
   
  
  $c
  
  .
  
  "
  
  /n
  
  "
  
  ;

  
  close
  
   
  
  $fh
  
  ;


  
  =
  
  head

  
  __DATA__
  
  
We will test Group1
  
  ...
  
  
Teacher begin first 
  
  -
  
  name A
  
  :
  
  
applaud number 
  
  100
  
  :
  
  not applaud number 
  
  100
  
  
Ball number
  
  :
  
  10
  
   
  
  :
  
  attempt
  
  :
  
  10
  
   made
  
  :
  
  6
  
  
Ball number
  
  :
  
  10
  
   
  
  :
  
  attempt
  
  :
  
  10
  
   lose
  
  :
  
  4
  
  
pass succeed
We will test Group1
  
  ...
  
  
Teacher begin first 
  
  -
  
  name B
  
  :
  
  
applaud number 
  
  100
  
  :
  
  not applaud number 
  
  100
  
  
Ball number
  
  :
  
  10
  
   
  
  :
  
  attempt
  
  :
  
  10
  
   made
  
  :
  
  6
  
  
Ball number
  
  :
  
  10
  
   
  
  :
  
  attempt
  
  :
  
  10
  
   lose
  
  :
  
  4
  
  
pass succeed
We will test Group1
  
  ...
  
  
Teacher begin first 
  
  -
  
  name C
  
  :
  
  
applaud number 
  
  100
  
  :
  
  not applaud number 
  
  100
  
  
Ball number
  
  :
  
  10
  
   
  
  :
  
  attempt
  
  :
  
  10
  
   made
  
  :
  
  6
  
  
Ball number
  
  :
  
  10
  
   
  
  :
  
  attempt
  
  :
  
  10
  
   lose
  
  :
  
  4
  
  
pass succeed
We will test Group1
  
  ...
  
  
Student begin first 
  
  -
  
  name A
  
  :
  
  
applaud number 
  
  100
  
  :
  
  not applaud number 
  
  100
  
  
Ball number
  
  :
  
  10
  
   
  
  :
  
  attempt
  
  :
  
  10
  
   made
  
  :
  
  6
  
  
Ball number
  
  :
  
  10
  
   
  
  :
  
  attempt
  
  :
  
  10
  
   lose
  
  :
  
  4
  
  
pass succeed
We will test Group1
  
  ...
  
  
Student begin first 
  
  -
  
  name B
  
  :
  
  
applaud number 
  
  100
  
  :
  
  not applaud number 
  
  100
  
  
Ball number
  
  :
  
  10
  
   
  
  :
  
  attempt
  
  :
  
  10
  
   made
  
  :
  
  6
  
  
Ball number
  
  :
  
  10
  
   
  
  :
  
  attempt
  
  :
  
  10
  
   lose
  
  :
  
  4
  
  
pass succeed

  
  =
  
  cut