Discussion :

[aurelien13008]

Bonjour,

J'ai fait un script, qui fonctionne très bien, mis à part au niveau de la comparaison entre deux jours, je m'explique voici mon script :

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
40
41
42
43
use strict;
 
my $FicLog = "";
 
 
$FicLog = 'd:\partage\sauvegarde.log';
 
# Date et Heure du Jour
my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday) = localtime();
$mon++;
$year += 1900;
my $Date_W=sprintf("%02d/%02d/%04d",$day,$mon,$year);
 
if (!open(LOG, $FicLog)) {
	print "ERREUR !!! IMPOSSIBLE D'OUVRIR LE FICHIER: $FicLog";
	exit 2;
}
 
while (<LOG>) {
  chomp;
  if (/ERREUR/) {
    print "$_";
    exit 2;
  } elsif (/SAUVEGARDE DU SERVEUR LXFAX131 - DATE : (...) (...)  ([0-9])/) {
	print "$1\n";
	print "$2\n";
	print "$3\n";
	my $jour = $3;
#    # Control de la date
#    if ($jour ne $day) {
#      print "LE FICHIER LOG A PLUS D'UN JOUR - VERIFIER LA TACHE PLANIFIE SUR LE SERVEUR";
#      exit 2;
#    }
 
}	elsif (/>>>> COPIE DES FICHIERS DE LA BASE DE DONNES REUSSIE/) {
 
  	print "$_";
  	exit 0;  
	}
}
close (LOG);
print "PROBLEME SUR LA SAUVEGARDE DU SERVEUR LXFAX131";
exit 2;

ICI :

Code :

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

($jour ne $day)

$jour n'est pas égal à $day ($jour est égal à 3 et $day à 9)

Il devrait donc logiquement m'afficher ce message : LE FICHIER LOG A PLUS D'UN JOUR - VERIFIER LA TACHE PLANIFIE SUR LE SERVEUR

Sauf que non il passe à la suite et je ne comprends pas pourquoi.

Merci pour vos futur réponses.

[PadawanInPerl]

Hello,

si tes variables sont des numériques tu n'utilises pas le bon comparateur

Code :

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

($jour == $day)

[laura_]

enfin plutot

Code :

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

1
2
 
($jour != $day)

pour différent.
Mais j'ai testé avec ne et ca marche ...
Du coup je comprends pas ton probleme. Peut etre que c'est dans l'expression regulière que ca marche pas.

[PadawanInPerl]

enfin plutot

Code :

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

1
2
 
($jour != $day)

pour différent.
Mais j'ai testé avec ne et ca marche ...
Du coup je comprends pas ton probleme. Peut etre que c'est dans l'expression regulière que ca marche pas.

pas faux...désolé.

[PadawanInPerl]

ça marche aussi chez moi !

vérifies que ton $3 que tu mets dans $jour contient bien ce que tu dis.

[aurelien13008]

ça ne marche toujours pas, je vais essayer de refaire le script bien propre et je vous le publierais avec le fichier log qu'il analyse.

Edit : Ca marche, quelqu'un sais par contre comment faire des doubles condition du genre : si $jour != $day et $month != $mois ça dans une même condition il suffit de rajouter & ou il faut faire autre chose.

Et une autre question, j'ai mes mois en anglais j'aimerais que par exemple que dès qu'il y a marqué Jan qu'il sois capturé et transformé en chiffre du genre 1 puis Feb en 2, etc...