Changeset 1303


Ignore:
Timestamp:
Aug 29, 2010, 6:28:09 PM (11 years ago)
Author:
goya
Message:

correction parsing numeros lois

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpc/trunk/project/batch/hemicycle/parse_hemicycle.pl

    r926 r1303  
    6969}
    7070
    71 $string =~ s/<\/?sup>//g;
    72 $string =~ s/<!--[^A-Z]+-->//g;
    73 #Recherche des numéros de  de loi
    74 while($string =~ /ordre du jour([^<]+\W(proposition|loi)\W[^<]+)\(n\D+(\d+[^\)]+)\)/ig) {
    75 #    print "$1 - $2 - $3\n";
    76     $titre = lc $1;
    77     $no = $3;
     71sub savepLoi() {
     72    $no =~ s/&nbsp;/ /g;
     73    $no =~ s/\s*et\s*/,/g;
    7874    $no =~ s/[^\d,]//g;
    7975    @no = split(/,/, $no);
    8076    $no = '';
    8177    foreach (@no) {
    82         s/(\d{4})(\d{4})/$1,$2/g;
     78        s/(\d{4})(\d{4})/$1,$2/g;
    8379        s/(\d{3})(\d{3})/$1,$2/g;
    84         s/^0+//;
    85         s/,0+//;
    86         $no .= $_.',';
     80        s/^0+//;
     81        s/,0+//;
     82        $no .= $_.',';
    8783    }
    8884    chop $no;
    8985    if ($no) {
    90         $titre =~ s/[^<]+ loi //;
    91         $ploi{$titre} = $no;
    92     }   
     86#        print "TEST3 $titre -_- $no\n";
     87        $ploi{$titre} = $no;
     88    }
     89}
     90
     91$string =~ s/&#8217;/'/g;
     92$string =~ s/<\/?sup>//g;
     93$string =~ s/<!--[^A-Z]+-->//g;
     94#Recherche des numéros de  de loi
     95while($string =~ /#item#\d+\.?\s*([^#]+)\(n\D+(\d+[^\)]+)\)\s*#\/item#/ig) {
     96#    print "TEST1 $1 -_- $2 \n";
     97    $titre = lc $1;
     98    $no = $2;
     99    savepLoi();
     100}
     101while($string =~ /ordre du jour([^<]+\W(proposition|loi)\W[^<]+)\(n\D+(\d+[^\)]+)\)/ig) {
     102    if ($1 =~ /#item#/i) {
     103      next;
     104    }
     105#    print "TEST2 $1 -_- $2 -_- $3\n";
     106    $titre = lc $1;
     107    $no = $3;
     108    $titre =~ s/[^<]+ loi,? //;
     109    savepLoi();
    93110}
    94111
Note: See TracChangeset for help on using the changeset viewer.