recherche chaine de caractere dans un fichier texte perl

**shalfat** · 19/06/2014, 16h38

Bonjour,

J'ai un fichier texte ou les lignes suivantes par exemple apparaissent entre d'autre ligne

06/11/2014 | 10:39:34.718 | 04176.04052 | INFO | <CResultsState::raffraichirEtat > | Results
06/11/2014 | 10:39:35.406 | 04176.04052 | INFO | <CPilotage::calculerParamCliniquesBassin > | Pelvis created

J'aimerais pouvoir faire une recherche dans un if et implémenter un compteur à chaque fois que l'on repère ces deux lignes la qui se
suivent. J'ai essayé de trouver le code sur les regex mais je n'ai rien trouvé

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
20
21
22
 
use strict;
use warnings;
 
my $fichier_log = "C:\\Trace_20140610_110725.log";	# Emplacement du fichier "fichier_log"
my $fichier_txt = "C:\\compteur.txt";	# Emplacement du fichier "fichier_txt"
 
my $fh_log;
my $fh_txt;
 
open ($fh_log, '<', $fichier_log) or die "Impossible d'ouvrir le fichier en lecture";	
open ($fh_txt, '>', $fichier_txt) or die "Impossible d'ouvrir le fichier en ecriture";
 
my $cpt;
 
while(my $ligne = <$fh_log>)
{
if ($ligne =~ /Results.*Pelvis created/)#rech results suivi de n caractères suivi de pelvis created (cette commande ne marche pas)
		{
		$cpt++;		
		}
}

Merci de votre aide.

**Philou67430** · 19/06/2014, 16h59

Tu ne peux pas faire un test "multi-line" en parcourant ligne à ligne.
Par contre, tu peux faire un test en utilisant l'opérateur "d'étendue" .. :

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
20
21
22
23
 
use strict;
use warnings;
 
my $fichier_log = "C:\\Trace_20140610_110725.log";	# Emplacement du fichier "fichier_log"
my $fichier_txt = "C:\\compteur.txt";	# Emplacement du fichier "fichier_txt"
 
my $fh_log;
my $fh_txt;
 
open ($fh_log, '<', $fichier_log) or die "Impossible d'ouvrir le fichier en lecture";	
open ($fh_txt, '>', $fichier_txt) or die "Impossible d'ouvrir le fichier en ecriture";
 
my $cpt;
 
while(my $ligne = <$fh_log>)
{
  my $in_result = ($ligne =~ /Results/) .. ($ligne =~ /Pelvis created/);
if ($in_result eq "1E0") #rech results suivi de pelvis created sur la ligne suivante (cette commande devrait marcher)
		{
		$cpt++;		
		}
}

S'il peut y avoir plusieurs lignes entre /Results/ et /Pelvis created/, tu peux alléger le test ainsi :

Code :

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

if ($in_result =~ /E0/)

**shalfat** · 19/06/2014, 20h23

Envoyé par Philou67430

Tu ne peux pas faire un test "multi-line" en parcourant ligne à ligne.
Par contre, tu peux faire un test en utilisant l'opérateur "d'étendue" .. :

Salut merci de ta réponse mais j'ai essayé ton code avec un test simple et sa ne fonctionne pas

J'ai testé ce code

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
20
21
22
 
use strict;
use warnings;
 
my $fichier_log = "C:\\Trace_20140610_110725.log";	# Emplacement du fichier "fichier_log"
my $fichier_txt = "C:\\compteur.txt";	# Emplacement du fichier "fichier_txt"
 
my $fh_log;
my $fh_txt;
 
open ($fh_log, '<', $fichier_log) or die "Impossible d'ouvrir le fichier en lecture";	
open ($fh_txt, '>', $fichier_txt) or die "Impossible d'ouvrir le fichier en ecriture";
 
while(my $ligne = <$fh_log>)
{
  my $in_result = ($ligne =~ /Results/) .. ($ligne =~ /Pelvis created/);
if ($in_result eq "1E0")
		{
		print "Le code fonctionne\n"
print $fh_txt "le code fonctionne\n"	
		}
}

Lorsque sa compile rien ne s'affiche, il n'y a pas d'erreur mais le programme ne comprend surement pas ce code

Code :

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

1
2
   my $in_result = ($ligne =~ /Results/) .. ($ligne =~ /Pelvis created/);
if ($in_result eq "1E0")

**Philou67430** · 20/06/2014, 09h15

Je me suis trompé dans le "1E0" : il faut écrire "2E0".

Pour expliquer : l'opérateur .. retourne 0 tant que le premier opérande n'est pas vrai (c'est à dire tant que l'on n'a pas trouvé "Results").
Puis il retourne un nombre commençant par 1 et incrémenté jusqu'à ce que le deuxième opérande soit vrai à son tour (sans tester le premier opérande, et donc, jusqu'à ce que l'on trouve "Pelvis created").
Lorsque le deuxième opérande devient vrai, l'opérateur .. ajoute la chaine "E0" (E suivi du chiffre 0) derrière le numéro de ligne. Dans ton cas, c'est sur la 2e ligne après la ligne du "Results" (je m'étais trompé en pensant que les indices commençait à 0, ce qui n'est pas le cas). Donc, pour résumer :
- avant d'arriver sur la ligne Results, $in_result retourne 0 (donc faux si testé dans un if)
- sur la ligne du Results, $in_result retourne 1 (donc vrai si testé dans un if)
- sur la ligne Pelvis created, $in_result retourne 2E0 (donc vrai si testé dans un if, et vaut 2 si utilisé en tant que nombre, puisque 2E0 est égal à 2x10⁰ en mathématique). Ici, on teste la présence de "E0" pour savoir si c'est la fin du bloc "Results" ... "Pelvis created", et plus particulièrement, si c'est ce bloc fait 2 lignes (si le bloc avait contenu 3 lignes au lieu de deux, le if aurait échoué).

Si le bloc à chercher peut contenir d'autres lignes entre "Results" et "Pelvis created", il faudra alors modifier le test comme je l'avais indiqué dans mon post précédant, ainsi :

Code :

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

if ($in_result =~ /E0/)

**shalfat** · 20/06/2014, 16h09

Envoyé par Philou67430

Je me suis trompé dans le "1E0" : il faut écrire "2E0".

Merci !!!! Sa marche nickel, j'ai réussi à faire tous ce que je voulais.
Sinon j'avais une question, imaginons que je veuille faire le parsing de plusieurs fichiers en même temps, comment je dois m'y prendre ? Parce que dans mes programmes je met ce code

Code :

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

1
2
3
4
5
6
7
8
9
 
my $fichier_log = "C:\\Trace_20140611_100702.log";	# Emplacement du fichier "fichier_log"
my $fichier_txt = "C:\\FichierLog\\compteur_workflow_temps.txt";	# Emplacement du fichier "fichier_txt"
 
my $fh_log;
my $fh_txt;
 
open ($fh_log, '<', $fichier_log) or die "Impossible d'ouvrir le fichier en lecture";	# Ouverture du fichier pour la lecture
open ($fh_txt, '>', $fichier_txt) or die "Impossible d'ouvrir le fichier en ecriture";	# Ouverture du fichier pour l'écriture

Mais il analyse seulement un fichier, moi je voudrais que mon programme analyse plusieurs fichiers en même temps et affiche le résultat soit dans le même nouveau fichier, soit dans des fichiers séparés.
A tu la solution ?
Merci

**Lolo78** · 20/06/2014, 17h49

Tu mets tout ton code pour ouvrir le fichier en entrée, lire le fichier en entrée et refermer le fichier en entrée dans une boucle while qui boucle sur la liste des fichiers en entrée.

**shalfat** · 23/06/2014, 12h04

Envoyé par Lolo78

Tu mets tout ton code pour ouvrir le fichier en entrée, lire le fichier en entrée et refermer le fichier en entrée dans une boucle while qui boucle sur la liste des fichiers en entrée.

Merci lolo je vais essayer de faire cela.
Sinon j'avais une autre question que j'ai posé dans un nouveau topic et peut être que tu pourrais m'aider pour la solution.

Je poste le lien du topic :
http://www.developpez.net/forums/d14...l/#post7868832

Merci

recherche chaine de caractere dans un fichier texte perl

Langage Perl

Discussions similaires

Partager

Partager