Changeset 2647

Timestamp:

Mar 27, 2012, 11:39:10 PM (9 years ago)

Author:

teymour

Message:

Mise en forme selon le format JO

File:

• cpc/trunk/project/batch/presences/parse_orga_inter.pl (modified) (4 diffs)

cpc/trunk/project/batch/presences/parse_orga_inter.pl

@@ -8 +8 @@
 
 $url = shift;
+$organisme = shift;
 $a->get($url);
 $html = $a->content;
@@ -20 +21 @@
 $html =~ s/<\/b>/<\/b>\n/g;
 $html =~ s/<b>/\n<b>/g;
+$html =~ s/\r//g;
 
 sub findDate($) {
@@ -73 +75 @@
                 $titre =~ s/^\s*//;
                 $titre =~ s/\s*$//;
+                $titre =~ s/\’/\'/g;
+                $titre =~ s/&#8217;/'/g;
+                $titre =~ s/&#8211;/-/g;
+                $titre =~ s/\xc2\x92/'/g;
+                $titre =~ s/\xc2\x96/-/g;
                 @date = findDate($_);
                 next;
@@ -83 +90 @@
                 $nom =~ s/&nbsp;/ /g;
                 foreach $d (@date) {
-                        print "{\"nom_depute\":\"$nom\", \"id_an\":\"$id\", \"date\",\"$d\", \"url\": \"$url\", \"titre_evenement\":\"$titre\" }\n";
+                        print "{\"depute\":\"$nom\", \"id_an\":\"$id\", \"reunion\":\"$d\", \"commission\":\"$organisme\", \"source\": \"$url\", \"session\":\"$titre\"}\n";
                 }
         }