Discussion :

[vince2005]

Bonjour,


Je rechercher dans un fichier ligne par ligne, le mot erreur.
Lorsque je trouve celui ci, j'affiche la ligne que je redirectionne dans ficerror.

Quand j'ouvre mon fichier log à analyser sous notepad, il s'affiche trés bien.
Mais lorsque je fais un print $ligne, j'apercois que mes caractéres s'affiche comme cela : i l e x i s t e u n e p r o b l e m e : e r r e u r.

alors que sous wordpad, s'affiche il existe un probleme : erreur

voici mon code !!!

my $Type="COMPLET";
my $FicLog="E:/LOG/20060710_Batch_IMPORT";
my $FicError="E:/TEMP/error_";
my @GestionErreur = ("erreur");

$FicError=$FicError . ${Type} ;
unlink $FicError ;

print "${FicLog}\n";
print "$FicError\n";

open (FIC, "<${FicLog}") || die "Ouverture impossible du fichier ${FicLog} : $!";
open (FICERREUR, ">$FicError") || die "Ouverture impossible du fichier $FicError : $!";

while ($Ligne = <FIC> )
{
if (grep { $Ligne =~ m/$_/g } @GestionErreur)
{
print FICERREUR "$Ligne" ;
}
print "$Ligne\n" ;
}

close (FIC);
close (FICERREUR);


#Test si le fichier Error est vide
if (-z $FicError)
{
$KOOK="OK";
print "Erreur Batch : ok\n" ;
}
else
{
$KOOK="KO";
print "Erreur Batch : KO\n" ;
}

[Jedai]

Les balises codes !

--
Jedaï

[vince2005]

revoici 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
my $Type="COMPLET";
my $FicLog="E:/LOG/20060710_Batch_IMPORT";
my $FicError="E:/TEMP/error_";
my @GestionErreur = ("erreur");
 
$FicError=$FicError . ${Type} ;
unlink $FicError ;
 
print "${FicLog}\n";
print "$FicError\n";
 
open (FIC, "<${FicLog}") || die "Ouverture impossible du fichier ${FicLog} : $!";
open (FICERREUR, ">$FicError") || die "Ouverture impossible du fichier $FicError : $!";
 
while ($Ligne = <FIC> ) 
{ 
if (grep { $Ligne =~ m/$_/g } @GestionErreur)
{ 
print FICERREUR "$Ligne" ; 
}
print "$Ligne\n" ; 
} 
 
close (FIC); 
close (FICERREUR);
 
 
#Test si le fichier Error est vide
if (-z $FicError)
{ 
$KOOK="OK";
print "Erreur Batch : ok\n" ;
}
else
{
$KOOK="KO";
print "Erreur Batch : KO\n" ;
}

[Jedai]

Il faut mettre le code entre les deux balises, pas après (regarde comment j'ai édité ton message).
Par ailleurs dans ton cas les balises code ne servent à rien puisque ton code n'est pas indenté... Est-ce le cas dès l'origine (auquel cas fais un petit effort, tu comprendras mieux ton code après) ou juste un problème de copier-coller (à corriger dans ce cas) ?

En tout cas ton code semble correct (fonctionnel, même si on peut lui faire quelques reproches au niveau de la maintenabilité), pourrais-tu nous mettre en pièce jointe un bout du log que tu as à traiter, et ton script complet (s'il y a autre chose que ce que tu as mis jusqu'ici).

--
Jedaï

[pospos]

le coup des caractere espacé c'est normalement du à un encodage UTF-16 dans ton editeur.
Essai de l'editer avec notpad plutot que wordpad (ou un autre editeur plus adapté si tu en a un)

[Arioch]

En parlant d'éditeur de texte avec coloration syntaxique, je te conseille d'en récupérer un, ça va nettement mieux pour coder (en Perl ou autres).

Au choix, ces deux là sont pas mal, avec une préférence pour le premier que j'utilise quotidiennement :

TextPad
UltraEdit

Un p'tit dernier pour la route, libre et freeware celui-là :

SciTE