[ViewVC] Annotation of: cvsroot/COMP/BOSS/Examples/cmsswPostprocess

#!/usr/bin/perl
$lines=0;
$|=1;
$val="";
$openTag=0;

while ( <STDIN> ) {
  
  
  if($_ =~ m|.*<Size>(.*)|s)
    {
      $openTag=1;
      $lines=0;
      $val=$1;
      chomp($val);
    }
  if($_ =~ m|(.*)</Size>.*|s)
    {
      $val.=$1;
      chomp($val);
      if($val =~ /\s*(\S*)\s*/s)
        {  
          $val=$1;
        }
      print "SE_SIZE = $val\n";
      $openTag=0;
    }
  if($_ =~ m|.*<ProcessedDataset>(.*)|s)
    {
      $openTag=1;
      $lines=0;
      $val=$1;
    }
  if($_ =~ m|(.*)</ProcessedDataset>.*|s)
    {
      $val.=$1;
      chomp($val);
      if($val =~ m|\s*(\S*)\s*|s)
        {  
          $val=$1;
        }
      print "PROCDATASET = $val\n";
      
      $openTag=0;
    }
  if($openTag)
    {
      if ($lines>0){
        $val .= $_;
        chomp($val);
      }
      $lines+=1;
    }
}
Revision:	1.1
Committed:	Wed Jul 12 10:22:43 2006 UTC (18 years, 9 months ago) by bacchi
Branch:	MAIN
Log Message:	Upgraded filters for cmssw
#	User	Rev	Content
1	bacchi	1.1	#!/usr/bin/perl
2			$lines=0;
3			$\|=1;
4			$val="";
5			$openTag=0;
6
7			while ( <STDIN> ) {
8
9
10			if($_ =~ m\|.<Size>(.)\|s)
11			{
12			$openTag=1;
13			$lines=0;
14			$val=$1;
15			chomp($val);
16			}
17			if($_ =~ m\|(.)</Size>.\|s)
18			{
19			$val.=$1;
20			chomp($val);
21			if($val =~ /\s(\S)\s*/s)
22			{
23			$val=$1;
24			}
25			print "SE_SIZE = $val\n";
26			$openTag=0;
27			}
28			if($_ =~ m\|.<ProcessedDataset>(.)\|s)
29			{
30			$openTag=1;
31			$lines=0;
32			$val=$1;
33			}
34			if($_ =~ m\|(.)</ProcessedDataset>.\|s)
35			{
36			$val.=$1;
37			chomp($val);
38			if($val =~ m\|\s(\S)\s*\|s)
39			{
40			$val=$1;
41			}
42			print "PROCDATASET = $val\n";
43
44			$openTag=0;
45			}
46			if($openTag)
47			{
48			if ($lines>0){
49			$val .= $_;
50			chomp($val);
51			}
52			$lines+=1;
53			}
54			}