Changeset 232

Timestamp:

04/10/06 14:27:45 (18 years ago)

Author:

nanardon

Message:

• fix lidlor plugin to match all possible case

File:

• trunk/soft/ObsData/ourplugins/cr_lid_lor.pl (modified) (1 diff)

trunk/soft/ObsData/ourplugins/cr_lid_lor.pl

@@ -37 +37 @@
     while (my $line = <$h>) {
         chomp($line);
-        if ($line =~ /^Numero  \|Nom             \|Voies actives/) {
+        if ($line =~ /^Numero\s+\|Nom\s+\|Voies actives/) {
             my $nextline = <$h>;
             chomp($nextline);
-            $nextline =~ /^1       \|E(\d)/;
+            $nextline =~ /^1\s*\|E(\d)\d{6}\.?N\d{4}/;
             if ($1) {
                 return(1,