Bonjour,
Je vous expose mon souci :
J'ai un fichier INLOG du type :
structure de données : XX00
transactions acceptées : 12
transactions rejetées : 00000001
structure de données : XX01
transactions acceptées : 15
transactions rejetées : 00000004
structure de données : XX03
transactions acceptées : 134
transactions rejetées : 00000000
J'ai mon script qui permet de détecter les transactions rejetées différentes de 00000000 :
#!./perl
# Loop on file to detect the abnormal end
$XXXTMP=$ENV{'XXXTMP'};
open fiin,"< $XXXTMP/INLOG" || die "Can't open fiin" ;
while($line = <fiin>) {
if (($line =~ m/Transactions rejetées/i ) && !($line =~ m/00000000/i ))
{
print fiout $line;
}
}
close fiin;
Il s'agit donc de repérer la ligne des transactions rejetées différentes de 000000000 (ce que fait déjà mon script) et d'y insérer le nom de la structure de données pour obtenir le message suivant dans un fichier tierce (pas le fichier INLOG):
Transaction rejetées sur XX00 : 00000001.
Merci pour votre aide , n'hésitez pas à me demander si vous avez besoin de plus d'informations.
Carlozi.
Partager