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

#!/usr/bin/perl

$|=1;
while ( <STDIN> ) {
  
  if      ($_ =~ /.*Outcounter\s+(\d+).*/)  {
      $val = $1;
      print "counter = $val\n"; 
  } elsif ($_ =~ /.*Errcounter\s+(\d+).*/)  {
      $val = $1;
      print "ecounter = $val\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			$\|=1;
4			while ( <STDIN> ) {
5
6			if ($_ =~ /.Outcounter\s+(\d+)./) {
7			$val = $1;
8			print "counter = $val\n";
9			} elsif ($_ =~ /.Errcounter\s+(\d+)./) {
10			$val = $1;
11			print "ecounter = $val\n";
12			}
13			}
14