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

#!/usr/bin/perl

while ( <STDIN> ) {
  
  if($_ =~ /.*counter\s+(\d+).*/)  {
      print "counter = ";
      print $1;
      print "\n";
  }
  if($_ =~ /.*comment\s+(.+).*/) {
      print "comment = ";
      print $1;
      print "\n";
  }
}

Revision:	1.1
Committed:	Tue Jan 10 13:06:55 2006 UTC (19 years, 3 months ago) by elmer
Branch point for:	one, MAIN
Log Message:	Initial revision
#	User	Rev	Content
1	elmer	1.1	#!/usr/bin/perl
2
3			while ( <STDIN> ) {
4
5			if($_ =~ /.counter\s+(\d+)./) {
6			print "counter = ";
7			print $1;
8			print "\n";
9			}
10			if($_ =~ /.comment\s+(.+)./) {
11			print "comment = ";
12			print $1;
13			print "\n";
14			}
15			}
16