Parser un fichier en PERL

[Résolu/Fermé]
Signaler
Messages postés
150
Date d'inscription
vendredi 10 août 2007
Statut
Membre
Dernière intervention
23 avril 2010
-
Messages postés
150
Date d'inscription
vendredi 10 août 2007
Statut
Membre
Dernière intervention
23 avril 2010
-
Bonjour,

J'ai un petit souci pour parser un fichier en PERL.
J'ai un fichier de type GFF et j'aimerais ne conserver que certains élements.
J'ai 3 lignes et je voudrais en conserver que 2 au final; mais cela en prenant une donnée de la ligne 1 en l'intégrant dans la ligne 2.


Voiçi en exemple. (chaque champ sont séparé par des tabulations).
lala parents Dupont;Martin;filiation;honneur
loulou fille Dupont;
toto fils Dupont;

Au final je voudrais cela:(Il s'agit de récupérer Martin et de l'ajouter à la colonne suivante seulement)
loulou fille Dupont;Martin
toto fils Dupont;


Dans un premier temps j'obtiens cela:
Martin
loulou fille Dupont;
toto fils Dupont;

Mais je bloque pour faire passer Martin dans la ligne suivante

open (GFF, "< aaaa.gff") or die("Impossible de lire dans le fichier $!");
my $i=0;
while( my $ligne=<GFF>){
$i++;
//pour récupérer Martin
if($ligne =~ /(^lala)\t(.+)\t(.+);(.+);(.+);(.+)$/){
$ligne=$4;
}
}
close (GFF);

Pourraist-on m'aider merci par avance.



1 réponse

Messages postés
150
Date d'inscription
vendredi 10 août 2007
Statut
Membre
Dernière intervention
23 avril 2010
2
Bonjour,

J'ai trouvé la solution à mon problème.
Pour résumé j'ai mis le résultta de mon fichier parsé dans un tableau puis je parcourt mon tableau et j' effectue une concaténation

merci