[REGEX] Blocage suite parsing ligne de grande taille

Version imprimable

20/04/2017, 09h35
ptonnerre

1 pièce(s) jointe(s)

[REGEX] Blocage suite parsing ligne de grande taille
Bonjour,

je dois lire un fichier de log JBoss pour rechercher le motif suivant :'Deployed "edit-gateway.war"'.
Tout se passe bien en général, sauf quand ce fichier de log contient des lignes de très grande taille : cela arrive quand le service est redémarré suite à un problème en journée. Un exemple de ce type de ligne est fourni en pièce jointe, longueur 56906 caractères, incluant notamment le caractère +, quantificateur d'expressions régulières, le séparateur /...

La recherche du motif se passe bien lorsqu'il n'y a pas ces énormes lignes, commençant toutes par 'Payload'.
Si présentes, le programme semble se figer et ne rend plus la main, bloquant toutes les autres traitements à suivre. Le dernier blocage a été constaté au matin à 8 heures, le programme de recherche de motif ayant démarré la veille à 18h30.

Pour que cela fonctionne et que le programme ne se bloque plus, j'ai modifié le code suivant :
Code:

1 2 3 foreach $record ( reverse(<FILER1>) ) { chomp($record); if ( ($record =~ /.*${patternWarning}.*/i)
en
Code:

1 2 3 4 foreach $record ( reverse(<FILER1>) ) { next if $record =~ /^Payload:/; chomp($record); if ( ($record =~ /.*${patternWarning}.*/i)
Ce contournement a réglé notre problème, car le motif recherché n'est pas dans ce lignes du type 'Payload', mais pour ma culture personnelle, est-ce que j'utilise mal l'expression régulière, est-ce une limitation du moteur d'expressionsrégulières, ... ?

Merci pour vos lumières.
ps : un exemple de ligne est fourni dans le fichier joint
20/04/2017, 11h53
Gardyen

Bonjour

il est possible d'améliorer l'expression régulière en supprimant les .* qui ne servent à rien

Code:

if ( ($record =~ /${patternWarning}/i)

puisque perl cherche déjà le pattern sur toute la ligne, même si je ne pense pas que cela soit la cause de ton problème.

Est-ce que tu as pu reproduire ce problème en utilisant le bout de code et le fichier que tu as donné ? Je n'ai eu aucun problème de mon côté. D'ailleurs, une ligne de cette taille n'est pas un problème, à moins d'avoir un ordi très limité !

Si on cherche dans une autre direction, est-il possible que le fichier de log soit modifié pendant que le script tourne ?
Le script perl tourne-t-il sur la même machine que celle du log (même OS) ?
20/04/2017, 14h19
ptonnerre

Bonjour,

Citation:

Envoyé par Gardyen

Est-ce que tu as pu reproduire ce problème en utilisant le bout de code et le fichier que tu as donné ? Je n'ai eu aucun problème de mon côté. D'ailleurs, une ligne de cette taille n'est pas un problème, à moins d'avoir un ordi très limité !

Si on cherche dans une autre direction, est-il possible que le fichier de log soit modifié pendant que le script tourne ?
Le script perl tourne-t-il sur la même machine que celle du log (même OS) ?

J'ai reproduit plusieurs fois le problème sur une copie à l'identique du fichier de log et sur une seconde copie ne contenant qu'une ligne à problème.

Ce script de recherche de motif est lancé sur la même machine que le fichier de log, juste après le démarrage du service pour vérifier le déploiement des applications.
Le fichier de log peut donc être modifié pendant que le script tourne, mais en situation normale, cela ne pose aucun problème.

Merci
20/04/2017, 16h25
ptonnerre

Citation:

Envoyé par Gardyen

il est possible d'améliorer l'expression régulière en supprimant les .* qui ne servent à rien

Code:

if ( ($record =~ /${patternWarning}/i)

puisque perl cherche déjà le pattern sur toute la ligne, même si je ne pense pas que cela soit la cause de ton problème.

J'ai suivi ton conseil pour tenter de faire fonctionner cet ancien programme en remplaçant :

Code:

if ( ($record =~ /.*${patternWarning}.*/i)

par

Code:

if ( ($record =~ /$patternWarning/i)

et maintenant il fonctionne parfaitement, la construction de l'expression régulière posait donc bien un problème.

Merci de m'avoir mis sur la voie :D