Changeset 1313 for cpc/trunk/project/batch/hemicycle/parse_hemicycle.pl

Timestamp:

Sep 3, 2010, 12:00:21 AM (11 years ago)

Author:

goya

Message:

parsing lois amélioré

File:

• cpc/trunk/project/batch/hemicycle/parse_hemicycle.pl (modified) (4 diffs)

cpc/trunk/project/batch/hemicycle/parse_hemicycle.pl

@@ -84 +84 @@
     chop $no;
     if ($no) {
-#        print "TEST3 $titre -_- $no\n";
+        #print "TEST3 $titre -_- $no\n";
         $ploi{$titre} = $no;
     }
@@ -92 +92 @@
 $string =~ s/<\/?sup>//g;
 $string =~ s/<!--[^A-Z]+-->//g;
-#Recherche des numéros de  de loi
-while($string =~ /#item#\d+\.?\s*([^#]+)\(n\D+(\d+[^\)]+)\)\s*#\/item#/ig) {
-#    print "TEST1 $1 -_- $2 \n";
-    $titre = lc $1;
-    $no = $2;
-    savepLoi();
-}
+#Recherche des numéros de loi
 while($string =~ /ordre du jour([^<]+\W(proposition|loi)\W[^<]+)\(n\D+(\d+[^\)]+)\)/ig) {
     if ($1 =~ /#item#/i) {
       next;
     }
-#    print "TEST2 $1 -_- $2 -_- $3\n";
+    #print "TEST2 $1 -_- $2 -_- $3\n";
     $titre = lc $1;
     $no = $3;
@@ -109 +103 @@
     savepLoi();
 }
+while($string =~ /#item#\d+\.?\s*([^#]+)\(n\D+(\d+[^\)]+)\)\s*#\/item#/ig) {
+    #print "TEST1 $1 -_- $2 \n";
+    $titre = lc $1;
+    $no = $2;
+    savepLoi();
+}
 
 sub getProjetLoi {
     $titre_cleaned = $titre = lc shift;
+    return unless ($titre);
+    return $ploi{$titre} if (defined($ploi{$titre}));
+    $intervention = lc shift;
+    foreach $k (keys %ploi) {
+        if ($intervention =~ /$k/i) {
+            $ploi{$titre} = $ploi{$k};
+            return $ploi{$k};
+        }
+    }
     return unless ($titre);
     return $ploi{$titre} if (defined($ploi{$titre}));
@@ -139 +148 @@
     }
     $out =  '{"contexte": "'.$contexte.'", "intervention": "'.$intervention.'", "timestamp": "'.$cpt.'", "date": "'.$date.'", "source": "'.$source.'", "heure":"'.$heure.'", "session": "'.$session.'", ';
-    if (($ploi = getProjetLoi($titre1)) && $contexte !~ /questions?\sau|ordre\sdu\sjour|nomination|suspension\sde\séance|rappels?\sau\srèglement/i) {
+    if (($ploi = getProjetLoi($titre1, $intervention)) && $contexte !~ /questions?\sau|ordre\sdu\sjour|nomination|suspension\sde\séance|rappels?\sau\srèglement/i) {
         $out .= "\"numeros_loi\": \"$ploi\", ";
     }