Lecture de nombres decimaux

Bonjour,

J'essaie de lire dans un fichier texte des donnees qui peuvent etre decimaux et/ou negatifs. Je cherche la bonne ligne commande qui me permettrait d'extraire les valeurs.

Pour exemple, voici le contenu d'un fichier :

RR 34145 1.312
RR 34145
RR 34145 1.312 0.175
RL 32952 1.312 0.175 3.735 -0.299

Pour extraire les valeurs de la ligne commencant par RR, j'ai pense au code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

use strict;   my $file = ""; open (FILE, "$file" ) or die "\nCannot open the file\n"; while( my $line = <FILE> ) {if ($line =~ /RR\s[+-]?\d+(\.d+)?\s[+-]?\d+(\.d+)?\s[+-]?\d+(\.d+)?/) {print "$line\n"; print "RR\t$2\t$3\t$4\n"} } close(FILE);

---

Malheureusement, ca n'aboutit pas a ce que je souhaite.
Quelqu'un peut il m'aider ou me conseiller ?
Merci.
Djahny.

Le problème vient de ta regex : tu utilises des parenthèses capturantes pour rendre faculative la partie décimale de tes nombres, mais tu ne captures la partie entière nulle part.

Un conseil d'ordre général qui peut toujours servir : ne jamais utiliser de parenthèses capturantes si on ne cherche pas à capturer. Ça permet d'éviter pas mal d'erreurs.
Voici une regex qui devrait marcher bien mieux :

Code:

---

/RR\s([+-]?\d+(?:\.d+)?)\s([+-]?\d+(?:\.d+)?)\s([+-]?\d+(?:\.d+)?)/

---

Note les parenthèses non-capturantes autour des parties décimales, et les capturantes autour des nombres.
Ceci dit, pour des raisons de lisibilité, de commodité, etc, ce que j'aime bien faire quand j'utilise des regex pour reconnaître des nombres (notemment), c'est créer un objet regex pour cela, et l'utiliser dans d'autres regex.

Code:

---

my $regnum=qr/[+-]?\d+(?:\.d+)?/;

---

Puis plus loin :

Code:

---

if ($line =~ /RR\s($regnum)\s($regnum)\s($regnum)/)

---

Ce qui est quand même un poil plus agréable à lire, non ?

Note que dans mes exemples (comme dans ton exemple initial), il n'y a que trois paires de parenthèses capturantes, donc la variable $4 que tu appelles après n'est pas initialisée. En fait, je ne comprends pas très bien ce que tu cherches à faire.

Je vais tenter de spéculer. Tu dis que tu veux extraire les valeurs numériques de tes lignes. Je n'ai pas très bien compris si tu veux te limiter aux lignes commençant par RR. Mais bon, on va tenter de voir.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

while( my $line = <FILE> ) { # uniquement les lignes commençant par RR if ($line =~ /^RR/) { # opérateur de reconnaissance avec /g, utilisé en contexte de liste : renvoit la # liste de toutes les chaînes disjointes reconnues par la regex dans la chaîne my @nombres = $ligne=~m/$regnum/g; print "$line\n"; print join "\t", ("RR",@nombres); } }

---

Ça devrait faire à peu près ce que tu voulais. N'hésite pas à demander des précisions.

Merci Schmorgluck pour ta reponse et tes conseils

Citation:

---

En fait, je ne comprends pas très bien ce que tu cherches à faire.

---

D'abord, pour repondre a ta question, je cherche simplement a recuperer des valeurs (pour les utiliser par la suite) , contenues dans plusieurs fichiers texte, et qui sont associees a un "mot" specifie en debut de ligne (dans le precedent message, le mot etait RR; en realite ce mot peut etre ROI_L, ROI_L ou encore lbl4_R, dans le dernier exemple le mot possede une chiffre, qui peut causer qques soucis). Par exemple:

Citation:

---

ROI_R 34145 1.253 0.155 3.645 -0.237
ROI_L 32952 1.312 0.175 3.735 -0.299
lbl4_R 13965 1.170 0.160 3.141 -0.191

---

J'applique ce que tu m'a propose.

Code:

---

1 2 3 4 5 6 7 8 9 10

my $feature = "ROI_L"; my $regnum=qr/([+-]?\d+(?:\.d+)?)/; while( my $line = <FILE> ) {if ($line =~ /^$feature/) {my @nombres = $line=~m/$regnum/g; print join "\t", ($feature,@nombres); } } close(FILE);

---

Ca renvoie les chiffres voulus, ou plutot les parties entieres et decimales distinctement :

Code:

---

1 2	ROI_L 32952 1 312 0 175 3 735 -0 299

---

Je peut en effet, a partir de ce tu proposes, recomposer les vrais nombres (partie entiere + partie decimale).

Cependant, afin que le resultat soit "un poil plus agréable à lire", est il possible de recuperer directement l'ensemble du nombre en modifiant la regex?

Djahny

Je suis en train de chercher pourquoi ça ne marche pas. En attendant, tu peux me dire pourquoi tu as ajouté des parenthèses à l'intérieur de l'objet regex ?

EDIT : Trouvé ! Il manque le \ devant le d dans la regex (comme il manquait dans ta version d'origine). Voici la version corrigée :

Code:

---

my $regnum=qr/[-+]?\d+(?:\.\d+)?/;

---

Super.
Merci beaucoup pour ton aide, elle fut efficace et instructive.
J'espere qu'elle servira a quelqu'un d'autre.

Djahny