| 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 | |||
| 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 |