Changeset 2647 for cpc/trunk/project


Ignore:
Timestamp:
Mar 27, 2012, 11:39:10 PM (9 years ago)
Author:
teymour
Message:

Mise en forme selon le format JO

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpc/trunk/project/batch/presences/parse_orga_inter.pl

    r2606 r2647  
    88
    99$url = shift;
     10$organisme = shift;
    1011$a->get($url);
    1112$html = $a->content;
     
    2021$html =~ s/<\/b>/<\/b>\n/g;
    2122$html =~ s/<b>/\n<b>/g;
     23$html =~ s/\r//g;
    2224
    2325sub findDate($) {
     
    7375                $titre =~ s/^\s*//;
    7476                $titre =~ s/\s*$//;
     77                $titre =~ s/\’/\'/g;
     78                $titre =~ s/&#8217;/'/g;
     79                $titre =~ s/&#8211;/-/g;
     80                $titre =~ s/\xc2\x92/'/g;
     81                $titre =~ s/\xc2\x96/-/g;
    7582                @date = findDate($_);
    7683                next;
     
    8390                $nom =~ s/&nbsp;/ /g;
    8491                foreach $d (@date) {
    85                         print "{\"nom_depute\":\"$nom\", \"id_an\":\"$id\", \"date\",\"$d\", \"url\": \"$url\", \"titre_evenement\":\"$titre\" }\n";
     92                        print "{\"depute\":\"$nom\", \"id_an\":\"$id\", \"reunion\":\"$d\", \"commission\":\"$organisme\", \"source\": \"$url\", \"session\":\"$titre\"}\n";
    8693                }
    8794        }
Note: See TracChangeset for help on using the changeset viewer.