chiark
/
gitweb
/
~ian
/
appendix-a6.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
openstvoutput24compare; wip
[appendix-a6.git]
/
normal2openstvtxt
1
#!/usr/bin/perl -w
2
3
for (;;) {
4
$_ = <>;
5
if (m/^\| /) {
6
if (s/ _?[Ss]eats=(\d+)\s/ /) {
7
print STDERR "# openstv-run-election -s $1\n";
8
}
9
die if m/ [A-Z]/;
10
warn if m/ [a-z]/;
11
} elsif (s/^\w+ = [^|]+ \|//) {
12
die if m/ [A-Z]/;
13
warn if m/ [a-z]/;
14
} elsif (s/^\w+ \: ([^|]*) \|//) {
15
print $1,"\n" or die $! if length $1;
16
die if m/ [A-Z]/;
17
warn if m/ [a-z]/;
18
} elsif (m/^\.$/) {
19
last;
20
} else {
21
die;
22
}
23
}