Discussion :

[aurelien13008]

Bonjour à tous

Voila comme ça fait maintenant plus d'un an que je n'ai pas touché de perl (entre temps j'ai fait bien d'autre langage) j'aurais besoins de vos service pour un scipt que je dois réaliser

Je dois analyser un fichier log résultant d'un shell, ce fichier est le résultat d'une sauvegarde sur plusieurs point d'un serveur, je veux tout simplement afficher un message en perl pour dire si la sauvegarde contient des erreurs.

EDIT : En fait il suffit de chercher le mot erreur dans le fichier log et faire une alerte si il est présent mais même ça je ne sais pas faire

Cordialement.

[michon]

Essaye ceci :

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
 
#!/usr/bin/perl
 
#Afin de minimiser les risques de conflit et erreurs de syntaxe
use strict;
 
#Définition du fichier de sauvegarde a lire
my $save_file = "sauvegarde.txt";
 
#variable qui aura pour but de comptabiliser les erreurs
my $error_number = 0;
 
#ouverture du fichier, copie de son contenu ligne par ligne dans la variable
# "file" et fermeture du fichier
open(SAVE,$save_file) || die("opening error on ".$save_file);
my @file = <SAVE>;
close(SAVE);
 
#parcours des lignes du fichier a la recherche du motif ">>>> ERREUR"
#et incrémentation de la variable error_number à chaque erreur rencontré
foreach my $line(@file){
	if($line =~ />>>> ERREUR/){
		$error_number++;
	}
}
 
#Affichage d'un message suivant le nombre d'erreur : 0 ou >0	
if($error_number==0){
	print "No error during saving process";
}else{
	print "Warning: ".$error_number." error during saving process";
}

Je pense que cela devrait faire ton bonheur...

[aurelien13008]

Sa m'a l'air parfait cependant j'avais également fait un script mais il m'affiche une erreur comme quoi le fichier n'est pas trouvé sauvegarde je ne sais pas pourquoi alors qu'il est présent :'(

[michon]

si tu le souhaite, tu peux toujours poster ton script et j'y jetterais un coup d'oeil

Edit : pense a vérifier tes path. tu ne peux utiliser "blabla.txt" que si le fichier "blabla.txt" se trouve au même endroit que ton script. sinon, il te faut donner le chemin complet en nom de fichier du genre "/folder1/folder2/folder3/blabla.txt" en oubliant pas de partir de la racine...

[aurelien13008]

Non j'ai compris pourquoi, mais en fait le script m'affiche Warning: 0 error during saving process
Même quand il y a une erreur :s

[michon]

En effet....

L'erreur provient du "=0" dans le test du if qui devrait être "==0".
(on dira que c'est la faute du clavier...)

Erreur bête de ma part (c'est ca quand on test pas les script...). Et donc la comparaison entre 2 entiers se fait en effet par l'opérateur "==" et non pas par l'opérateur "=".

EDIT : je corrige l'erreur dans mon code au dessus !