Extraction de caractères dans un fichier texte

**spifr** · 20/01/2014, 20h52

Bonjour,

Je travail sur le découpage de données contenues dans un fichier texte.
Ce fichier se présente sous une forme similaire:

inf_agh{100120141045@00000000000~03Module_010000~04Module020000@0000000{100120141045@00000000000~03Module_010000~04Module020000@0000000}04052014\

Mon objectif est de regrouper sous forme de tableau les données correspondant à des cartes "00000000000" situées entre les symboles "@" et "~" ou "@" et"}" .
Les données correspondant à des modules "03Module_010000" situées entre les symboles "~" et "~" ou "~" et "@".

J'ai réalisé le code suivant, mais au niveau du traitement des éléments "cartes" et "modules", seules les premières occurrences sont insérées dans le tableau correspondant.

résultat obtenu:

date: 100120141045
carte: 00000000000
module: 03Module_010000

code:

#decoupage du fichier
while ($ligne = <lire>){

#recuperation des elements compris entre [{ et @]
if ($ligne =~ /\{(\d*)@/) {
@date=$1
}
#si la ligne est comprise entre les symboles [@ et ~] et entre [@ et }]
if ($ligne =~ /@(\d*)[~|\}]/){
@carte=$1;
}
#si la ligne est comprise entre les caracteres [~ et ~] ou [~ et @]
if ($ligne =~ /~(\w*)[~|@]/){
@module=$1;
}
}

Je vous remercie d'avance pour votre aide =)

**6ril23** · 21/01/2014, 09h44

je pense que tu ne dois garder que la dernière occurrence plutôt non?

essaie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#decoupage du fichier
while ($ligne = <lire>){
   #recuperation des elements compris entre [{ et @]
   if ($ligne =~ /\{(\d*)@/) {
      push(@date, $1);
   }
   #si la ligne est comprise entre les symboles [@ et ~] et entre [@ et }]
   if ($ligne =~ /@(\d*)[~|\}]/){
      push(@carte, $1);
   }
   #si la ligne est comprise entre les caracteres [~ et ~] ou [~ et @]
   if ($ligne =~ /~(\w*)[~|@]/){
      push(@module, $1);
   }
}

PS: pense à mettre ton code entre les balises # pour que ce soit plus lisible

**spifr** · 21/01/2014, 10h58

Oui effectivement, c'est plutôt la dernière occurence, merci.

Le code que vous me proposez ne modifie rien au résultat obtenu.
C'est comme si les valeurs enregistrées dans le tableau étaient écrasés à chaque fois, ou bien les lignes présentent dans mon fichier ne sont pas lues entièrement.

**6ril23** · 21/01/2014, 11h10

si tu fais comme ça tu auras une idée du problème:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#decoupage du fichier
while ($ligne = <lire>){
   print $ligne;
   #recuperation des elements compris entre [{ et @]
   if ($ligne =~ /\{(\d*)@/) {
      print "\t$1\n";
      push(@date, $1);
   }
   #si la ligne est comprise entre les symboles [@ et ~] et entre [@ et }]
   if ($ligne =~ /@(\d*)[~|\}]/){
      print "\t$1\n";
      push(@carte, $1);
   }
   #si la ligne est comprise entre les caracteres [~ et ~] ou [~ et @]
   if ($ligne =~ /~(\w*)[~|@]/){
      print "\t$1\n";
      push(@module, $1);
   }
}

tu pourras voir si toutes tes lignes sont traitées
ensuite tu pourras vérifier la taille de tes array

**spifr** · 21/01/2014, 15h42

Merci pour le coup de pousse! =)
Mes tableaux n'étaient composés que d'un seul élément, donc je ne pouvais pas aller très loin.

En fait mon problème était que je ne récupérais qu'un élément correpondant à l'expression régulière par ligne.
Il suffisait juste de remplacer le "if" par un "foreach" !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#decoupage du fichier
while ($ligne = <lire>){
 
   #recuperation des elements compris entre [{ et @]
   foreach my $d ($ligne =~ /\{(\d*)@/g) {
      push(@date, $d);
   }
   #si la ligne est comprise entre les symboles [@ et ~] et entre [@ et }]
   foreach my $c ($ligne =~ /@(\d*)[~|\}]/g){
      push(@carte, $c);
   }
   #si la ligne est comprise entre les caracteres [~ et ~] ou [~ et @]
   foreach my $m ($ligne =~ /~(\w*)[~|@]/g){
      push(@module, $m);
   }
}

Merci encore et bonne journée!

**6ril23** · 21/01/2014, 16h01

Attention car ce n'est clairement pas bon de parcourir 3 fois tout le fichier
je n'avais clairement pas regardé cette partie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#decoupage du fichier
open(FH_IN, 'monfichier.txt');
while (<FH_IN>){
   #recuperation des elements compris entre [{ et @]
   if ($_ =~ /\{(\d*)@/g) {
      push(@date, $1);
   }
   #si la ligne est comprise entre les symboles [@ et ~] et entre [@ et }]
   if ($_ =~ /@(\d*)[~|\}]/g){
      push(@carte, $1);
   }
   #si la ligne est comprise entre les caracteres [~ et ~] ou [~ et @]
   if ($_ =~ /~(\w*)[~|@]/g){
      push(@module, $1);
   }
}

**zen38** · 21/02/2014, 12h31

Bonjour,

je ne sais pas où ni à qui poser ma question , vu que le traitement de fichier txt a été abordé ici alors me voilà avec ma question,
je n'arrive pas à ajouter un retour chariot dans un fichier txt avec instruction perl en ligne de commande. Ce fichier txt comporte des données de type:

<A> ..... </A><B>.....</B>...<A>.. etc
En fait j'aimerai faire un retour chariot avant chaque < suivi d'une lettre Maj

Merci de votre aide!

**Lolo78** · 21/02/2014, 18h55

Prière de ne pas squatter le post d'un autre, c'est considéré comme manquand de politesse sur tous les forums que je connais. Crée plutôt un nouveau post.

J'allais répondre tout de même par gentillesse et pour te dépanner, mais je préfère finalement m'abstenir, parce que si tu as une autre question ou ne comprends pas ma solution, tu seras obligé de répondre encore une fois sur ce post. Non, vraiment, ouvre un nouveau post, c'est promis, je répondrai si personne ne le fait avant.

**zen38** · 25/02/2014, 17h58

Désolé de m’incruster dans ton poste mais je n'ai pas la possibilité de créer un nouveau poste, je n'arrive pas à le faire! bon ce n'est pas une raison de squatter ici mais j désespéré ...