root/elections/trunk/tools/extract.ml @ 529

Revision 89, 442 bytes (checked in by MrLapinot, 10 years ago)

extract: un outil pour récupérer les n° de bureaux cachés dans les
descriptions en Aquitaine.

Line 
1open Csv;;
2open Str;;
3
4
5let r = regexp "\\([1-9][0-9]?\\) \\(.*\\)" in
6let extract = function
7  | [ville ; desc ; adresse] ->
8      if string_match r desc 0
9      then
10        [ville; matched_group 2 desc; adresse ; matched_group 1 desc]
11      else [ville ; desc; adresse; "1"]
12  | _ -> assert false in
13
14let doc = load_in ~separator:';' stdin in
15let copy = assert(columns doc = 3) ; List.map extract (square doc) in
16print ~separator:';' copy
Note: See TracBrowser for help on using the browser.