[ViewVC] Contents of: cvsroot/COMP/BOSS/Examples/postprocessErr

#!/usr/bin/perl

$val{"comment"} = "...STOP";
while ( <STDIN> ) {
  
  if      ($_ =~ /.*Outcounter\s+(\d+).*/)  {
      $val{"counter"} = $1;
  } elsif ($_ =~ /.*Errcounter\s+(\d+).*/)  {
      $val{"ecounter"} = $1;
  }

}
foreach $key (sort keys %val) {
    print "$key=\"$val{$key}\";\n";
}

Revision:	1.1.1.1 (vendor branch)
Committed:	Tue Jan 10 13:06:55 2006 UTC (19 years, 3 months ago) by elmer
Branch:	one, MAIN
CVS Tags:	BOSS_4_3_10, BOSS_4_3_9, BOSS_4_3_8, BOSS_4_3_8-ui3_1, BOSS_4_3_7-ui3_1, BOSS_4_3_7, BOSS_4_3_6, BOSS_4_3_4a, BOSS_4_3_5, BOSS_4_3_4, BOSS_4_3_3, BOSS_4_3_2, BOSS_4_3_1b, BOSS_4_3_1a, BOSS_4_3_1, BOSS_4_3_0, BOSS_4_2_4, BOSS_4_2_3, BOSS_4_2_2, BOSS_4_2_1, BOSS_4_2_0, BOSS_4_1_10, BOSS_4_1_9, BOSS_4_1_9-test, BOSS_4_1_8, BOSS_4_1_7, BOSS_4_1_6, BOSS_4_1_5, BOSS_4_1_4, BOSS_4_1_3, BOSS_4_1_2, BOSS_4_1_1, BOSS_4_1_0, BOSS_4_0_11, BOSS_4_0_10, BOSS_4_0_9, BOSS_4_0_8, BOSS_4_0_7, BOSS_4_0_6, BOSS_4_0_5, BOSS_4_0_4, BOSS_4_0_3, BOSS_4_0_2, BOSS_4_0_1, BOSS_4_0_0, BOSS_v4_0_0-pre2, BOSS_v4_0_0-pre1, two, HEAD
Branch point for:	BOSS_4_3-ui3_0, BOSS_4_3_1c
Changes since 1.1:	+0 -0 lines
Error occurred while calculating annotation data.
Log Message:	test import
#	Content
1	#!/usr/bin/perl
2
3	$val{"comment"} = "...STOP";
4	while ( <STDIN> ) {
5
6	if ($_ =~ /.Outcounter\s+(\d+)./) {
7	$val{"counter"} = $1;
8	} elsif ($_ =~ /.Errcounter\s+(\d+)./) {
9	$val{"ecounter"} = $1;
10	}
11
12	}
13	foreach $key (sort keys %val) {
14	print "$key=\"$val{$key}\";\n";
15	}
16