Discussion :

[paul.monsarrat]

Bonjour,
Je cherche depuis plus d'une semaine et je me casse les dents sur la constitution d'une expression rationnelle. J'aurais grandement besoin de votre aide !
Je ne travaille pas sur PHP mais sur PERL.

Je souhaite que l'algorithme détecte un nombre ainsi que ses bornes:
Exemple:
$test = "Cet été la température moyenne a été de 30.5 deg, avec un minimum de 10 deg et un maximum de 40 deg";
$test =~ m/(.*?)(\d{1,3}\.?\d*).*?(\d{1,3}\.?\d*).*?(\d{1,3}\.?\d*)/;

Mais dans le cas suivant:
Exemple: Cet été la température moyenne testée sur les 15 premiers jours d'août a été de 30.5°, avec un minimum de 10.2° et un maximum de 40.1°.

Comment faire pour que l’algorithme en extrayant les 3 premiers nombres, 15, 30.5 et 10.2, se rende compte que 15 n'est pas compris entre borne inférieure 30.2 et borne supérieure 10.2, qu'il fasse un backtracking et qu'il change le premier nombre par la détection du nombre suivant, en extrayant du coup dans l'ordre 30.5, 10.2 et 40.1?
J'ai essayé de mettre en place un bloc conditionnel avec un bloc de code perl (?({})), et en déclenchant (*SKIP)(*FAIL) mais je j'y arrive pas.

Merci d'avance pour tout élément d'aide!!

[CosmoKnacki]

Les opérations numériques ne sont pas du ressort des expressions régulières. Alors tu peux effectivement bricoler un test avec (?{...}) genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
my $str = "Cet été la température moyenne testée sur les 15 premiers jours d'août a été de 30.5°, avec un minimum de 10.2° et un maximum de 40.1°.";
 
my $pat = qr/ ( [0-9]{1,3}(?:\.[0-9]+)? )
              [^0-9]+ (*SKIP)  # on place le (*SKIP) avant le prochain nombre pour éviter les positions inutiles
              ((?1)) # (?1) désigne la sous-pattern du premier groupe de capture, c'est juste plus court à écrire et on peut très bien s'en passer
              [^0-9]++ ((?1)) # le quantificateur possessif ++ accélérera la phase de backtracking en cas d'échec 
              (?(?{ $1 < $2 || $1 > $3 }) (*FAIL)) /x;
 
if ($str =~ /$pat/) {
    print $1;
}

ou pour le fun tu peux aussi l'écrire en rendant le groupe de capture atomique et en remplaçant (*FAIL) par un simple chiffre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
my $pat = qr/ ( (?> [0-9]{1,3}(?:\.[0-9]+)? ) )
              [^0-9]+ (*SKIP) 
              ((?1)) [^0-9]++ ((?1)) 
              (?(?{ $1 < $2 || $1 > $3 }) 1) /x;

Mais tu peux aussi faire dans le moins farfelu soit en faisant figurer dans ta pattern l'unité de mesure ( "deg" ou ° ) si tu peux compter dessus (ou en t'appuyant sur le contexte de quelque manière que ce soit), soit en récupérant tous les nombres de la chaîne avec une pattern simple et en faisant des comparaisons plus tard.

[Lolo78]

Bonjour,

comme CosmoKnacki, je suggérerais de séparer la regex des tests numériques, comme dans le test suivant sous le debugger:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
  DB<1> $test = "Cet été la température moyenne a été de 30.5 deg, avec un minimum de 10 deg et un maximum de 40 deg";
 
  DB<2> $reg = qr/.*?(\d+\.?\d*)/;
 
  DB<3> print "$1 $2 $3"  if $test =~ /$reg.*?$reg.*?$reg/ and $2 < $1 and $2 < $3;
30.5 10 40
  DB<4> $test = "Cet été la température moyenne testée sur les 15 premiers jours d'août a été de 30.5°, avec un minimum de 10.2° et un maximum de 40.1°.";
 
  DB<5> print "$1 $2 $3"  if $test =~ /$reg.*?$reg.*?$reg/ and $2 < $1 and $2 < $3;
 
  DB<6>

[paul.monsarrat]

Vous êtes géniaux ! Merci beaucoup pour vos réponses !!