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

#!/usr/bin/perl

$val{"comment"} = "... STOP";
while ( <STDIN> ) {
  if($_ =~ /.*counter\s+(\d+).*/)  {
      $val{"counter"} = $1;
  }
}
foreach $key (sort keys %val) {
    print "$key=$val{$key}\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			$val{"comment"} = "... STOP";
4			while ( <STDIN> ) {
5			if($_ =~ /.counter\s+(\d+)./) {
6			$val{"counter"} = $1;
7			}
8			}
9			foreach $key (sort keys %val) {
10			print "$key=$val{$key}\n";
11			}
12