extraction de données

bonjour a tous,

je travaille sur des fichiers textes dont je dois extraire traiter et restocker des données.
j'utilise Perl et je me demande si quelqu'un pourrait me conseiller et me donner des pistes.

chaque ligne de mon fichier ressemble à:
1.AA 152.25
2.AH 25.26

je voudrai extraire d'une part le premier chiffre (ou nombre), le groupement de lettre, et enfin la valeur décimale.

Je pensais ensuite mettre tout ca dans un tableau à plusieurs colonnes pour traiter ces données.

comment puis je extraire chaque partie m'interessant de chaque ligne?

merci d'avance

Hello,

Vive les expressions régulières ! :yaisse2:

Il faut faire du pattern matching avec ta ligne et extraire les données lues...

Code:

---

1 2 3

# On recupère les données dans le tableau tsData @tsData = ( $sLine =~ /^\s*([0-9])\.([A-Z]{2,2})\s+([0-9\.]+)\s*$/ );

---

Pour chaque ligne, tu auras:

Code:

---

1 2 3 4 5 6 7 8 9 10

# Ligne 1 - "1.AA 152.25" $tsData[0] = "1"; $tsData[1] = "AA"; $tsData[2] = "152.25";   # Ligne 2 - "2.AH 25.26" $tsData[0] = "2"; $tsData[1] = "AH"; $tsData[2] = "25.26";

---

Ensuite, il te faut parcourir ton fichier ligne par ligne...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

... # On ouvre le fichier dont le nom est renseigne dans $sNomDuFichier open(INPUT, $sNomDuFichier) or die("Erreur d'ouverture du fichier $sNomDuFichier !\n"); # Tant qu'on n'a pas lu la totalité du fichier while (defined($sLine = <INPUT>)) { # On vire les retours chariots $sLine =~ s/(\r|\n)//g; # On recupère les données dans le tableau @tsData @tsData = ( $sLine =~ /^\s*([0-9])\.([A-Z]{2,2})\s+([0-9\.]+)\s*$/ ); # On traite les données extraites de la ligne courante... ... } # On ferme le fichier traité close(INPUT); ...

---

Il n'y a pas de vérification du bon format de la ligne, mais je pense que ce bout de code est un bon début pour parvenir rapidement à ce que tu souhaites faire...

Si tu as des questions, n'hésites pas ;)

PluX59

Salut,

tu peux aussi utiliser split

Code:

---

1 2	~$ echo 1.AA 152.25 | perl -ne '@t=split /[.\s]/,$_,3;print "@t\n"' 1 AA 152.25

---

lami20j

salutation,

merci a vous deux deja!

Je viens d'essayer vos deux solutions et voila:

lami20j je comprend pas trop ce que fait ton split/expression reguliere , mais je retrouve juste ma ligne stockée dans $t[2]

PluX59 ton expression reguliere a l'air miraculeuse, bienque je ne la comprenne pas, si elle permet effectivement d'extraire 3 champs en une ligne... malheuresement le tableau @tsData est constement vide chez moi avec ton code

je remet une ligne veridict des mes données defois que...
3.CB 41.282 1
3.HB2 2.580 2

pour l'instant jai reussi a faire 3 tableaux contenant chacun le champs m'interessant (1er nombre, nom, valeur), mais je doute de l'optimisation de mon code.... :roll:

Salut,

Citation:

---

lami20j je comprend pas trop ce que fait ton split/expression reguliere , mais je retrouve juste ma ligne stockée dans $t[2]

---

C'est normal, je t'ai donné juste un exemple qu'il faut l'adapter à tes besoins.

la fonction split te permet d'éclater une chaîne de caractère en sous parties, et la place dans un tableau

donc au lieu de

Code:

---

@tsData = ( $sLine =~ /^\s*([0-9])\.([A-Z]{2,2})\s+([0-9\.]+)\s*$/ );

---

on peut aussi utiliser

Code:

---

@tsData = split /[.\s]/,$sLine,3

---

maintenant pour

Citation:

---

le tableau @tsData est constement vide chez moi avec ton code

---

c'est normal puisque tu n'as pas donner toutes les possibilités
tu as dit "le groupement de lettre" mais en fait il s'agit de le groupement de lettres et de chiffres 3.HB2 2.580 2

essaie

Code:

---

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

... # On ouvre le fichier dont le nom est renseigne dans $sNomDuFichier open(INPUT, $sNomDuFichier) or die("Erreur d'ouverture du fichier $sNomDuFichier !\n"); # Tant qu'on n'a pas lu la totalité du fichier while (defined($sLine = <INPUT>)) { # On vire les retours chariots $sLine =~ s/(\r|\n)//g; # On recupère les données dans le tableau @tsData @tsData = ( $sLine =~ /^\s*(\d)\.([A-Z]+\d*)\s+(\d+(?:\.\d*)?)\s*.*/ ); # On traite les données extraites de la ligne courante... ... } # On ferme le fichier traité close(INPUT); ...

---

lami20j

Re,

Citation:

---

chaque ligne de mon fichier ressemble à:
1.AA 152.25
2.AH 25.26

---

cette affirmation n'est pas claire non plus puisque plus tard tu dis

Citation:

---

3.CB 41.282 1
3.HB2 2.580 2

---

En bref, la connaissance de la structure de ton fichier est très importante pour pouvoir t'aider

lami20j

okok!!

Effectivement ca marche maintenant, merci, dsl j'avais pas compris que tu me donnais un exemple. Par contre j'aurais été incapable de pondre cette expression reguliere... ca me remplace un ptit pavé de code par qq lignes :lol: Et dsl d'avoir oublier la possibilité d'un chiffre dans le groupement de lettre ;=)

sinon si je peux elargir ma question (:aie: !?)

comment me conseillerais vous pour faire ceci:
je dois comparer ces données (en gros ce sont les compositions en atome de molecules, acide aminé par acide aminé) avec un "modele" d'acide aminé que j'ai pour l'instant stocké dans un tableau associatif. Dans quoi stocker inteligement mes données extraites pour un manipulation facile?
Il faut ensuite que je recré un fichier ayant des données completées et modifiées.

merci encore
;)

Hugh,

Bien vu Lami20j pour la différence entre les lignes de données. :king:

Par contre Polux100, pour répondre à ta question, il faut que tu sois plus explicite (si tu nous parles d'atomes, de physique et tout le bataclan, je ne t'apprends rien en te disant qu'il faut comparer ce qui est comparable ;)) dans la façon dont tes données sont stockées et comment tu veux les comparer...

Ceci étant, je pense qu'un autre sujet serait approprié à ta question, qui ne concerne donc plus "l'extraction de données", ton souci initial :)

Pour terminer, rien de miraculeux dans les expressions régulières. Elles sont puissantes et un apprentissage régulier (sans mauvais jeu de mots) et sans précipitation te permettra de comprendre leur mécanisme (très simple finalement).
Je n'ai pas regardé s'il y'a un tutoriel là dessus, mais c'est un bon début si tu as un peu de temps à consacrer à Perl & aux RegExp :)

PluX59