Discussion :

[laurent33500]

Bonjour à tous,

je fais des recherches dans le forum, mais n'ai pas trouvé.
Voici ma question
je liste un fichier en recherchant la chaîne de caractère ERR en début de ligne et si je trouve ERR, je voudrais copier chaque ligne dans une même variable.
Cette variable me servira pour créer le corps d'un message que j'enverrai pas mail.

Pouvez vous m'aider.

Cordialement

[6ril23]

Il faut ouvrir ton fichier, le parcourir ligne par ligne et récupérer les lignes souhaitées dans ta variable

pourrais-tu mettre ton code qu'on t'aide à le corriger?

[laurent33500]

voici mon 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
 
$dest="D:\\scripts\\perl\\bpx\\log_20141103.txt";
 
 
open( LOG, "$dest" );
chomp(@list = <LOG>);
close(LOG);
$nb=@list;
# recherche de ERR en debut de ligne
	for( $a=0 ; $a < $nb ; $a++ )
	{
	        @result=split(" " , $list[$a]);
		if ($result[0] eq "ERR" )
		{
		print "$list[$a] \n";
		}
 
	}

A la place du print c'est là que je veux mettre l'ajout dans une variable

[6ril23]

A la place du print c'est là que je veux mettre l'ajout dans une variable

Code :

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

1
2
3
4
5
6
7
8
9
10
$dest="D:\\scripts\\perl\\bpx\\log_20141103.txt";
 
 
open( LOG, "$dest" );
my $lignesRecup='';
while ( <LOG> ){
	if ($_ =~ /^\s*ERR/ ){                 # recherche ligne commençant par ERR avec éventuellement 1 ou plusieurs espace(s) avant
		$lignesRecup .= "$_" ;
	}
}

j'ai traité le fichier ligne par ligne car je préfère mais si tu veux absolument le traitement depuis un array dis-le

[Schmorgluck]

j'ai traité le fichier ligne par ligne car je préfère mais si tu veux absolument le traitement depuis un array dis-le

Franchement, pour un fichier de log, dont la taille est par nature variable sinon totalement imprévisible, un traitement ligne par ligne est certainement préférable plutôt que tout charger en mémoire.

[6ril23]

Franchement, pour un fichier de log, dont la taille est par nature variable sinon totalement imprévisible, un traitement ligne par ligne est certainement préférable plutôt que tout charger en mémoire.

je trouve aussi mais on ne sais jamais, il a peut être des contraintes qui l'oblige à utiliser un array

[Lolo78]

++ pour la lecture ligne par ligne (hors raison majeure de ne pas le faire).

[Schmorgluck]

Je viens de repérer un problème dans la version initiale du code. Cette partie là :

Code :

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

1
2
	        @result=split(" " , $list[$a]);
		if ($result[0] eq "ERR" )

Le test du if ne peut être vrai que si la ligne commence par "ERR ", et pas si elle commence par "ERR" suivi par autre chose qu'un espace. Du coup faudrait demander à laurent33500 ce qu'il veut au juste.

[laurent33500]

Bonjour à tous,

je vous remercie pour votre aide.
La solution de 6ril23 me convient et fonctionne pour moi.

Dans mon fichier log les lignes en erreur commencent toujours par ERR suivi d'un espace et de la date ex:ERR _20141103 Impossible de copier......

Merci encore pour votre réactivité.

[Schmorgluck]

Du coup, la solution de 6ril23 ne marche pas bien pour ton vrai problème, en fait. Si, pour quelque raison que ce soit, une de tes lignes commence par "ERRANCE" par exemple, elle sera incluse dans ton résultat final.

Une solution partielle est de remplacer la regex de la ligne 7 de sa version par /^\s*ERR\b/ ou, pour être plus exhaustif, /^\s*ERR _\d{8}/