Discussion :

[Maniac]

Bonjour tout le monde,

Je vous sollicite parce que je ne sais pas par quel bout prendre mon problème. Si vous pouvez me donner des pistes pour que je puisse commencer. Merci d'avance

Mon problème :
Tous les jours un équipement réseau est sauvegardé (Fichier Binaire). Cette sauvegarde comporte la date et heure du jour de la sauvegarde.

Au bout de quelques jours, j'ai donc :

/sauvegarde/conf_20070205-0807
/sauvegarde/conf_20070206-0807
/sauvegarde/conf_20070207-0807


Le but est de faire un script qui vérifie si le fichier binaire du jour en cours à changer du jour J-1 et si il a changé d'envoyer un mail pour avertir qu'il y a eu une modification.

Encore merci pour les pistes que vous pourrez m'apportez.

[yjuliet]

Salut.

Si j'ai bien compris ton problème, tu n'as pas besoin d'identifier la différence de manière précise, mais uniquement de savoir si les 2 fichiers sont identiques, et si ils ne le sont pas, simplement envoyer le mail ?

Pour vérifier l'égalité des deux fichiers, une solution bête, méchante, mais efficace pour des fichiers pas trop gros, et si possible en mode texte :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
sub compare() {
  ($aFileName, $bFileName) = @_;
  open FILEA, "<$aFileName";
  open FILEB, "<$bFileName";
  $isStillEqual = (1 eq 1);
  while (($line_a=<FILEA>) and ($line_b=<FILEB>) and ($isStillEqual) )
  {
    $isStillEqual = ($isStillEqual and ($line_a eq $line_b));
  }
  close FILEA;
  close FILEB;
  return $isStillEqual;
}

Evidemment, le code que j'ai mis est une ébauche qui ne gère pas les problèmes possible d'I/O, etc ... pour ça, il y a déjà pas mal de doc.

Pour l'envoi du mail, tu peux simplement passer par le module MIME::Lite qui va bien.

[Maniac]

Tu as bien compris le problème yjuliet,

Comme je débute en Perl je vais mettre un peu de temps à comprendre la fonction que tu as décris mais ca va le faire

Pour le moment j'ai commencé à regarder comment récupérer les 2 derniers fichiers.

Pour ca, je vois deux solutions

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
 
#retournes les 2 derniers fichiers de confs
sub lastfiles  {
 
        my @files = </mon Rep/*>;
 
        # Aucun fichiers
        return ( undef , undef ) if( @files == 0 );
 
        # un seul fichier
        return ( $files[0] , undef ) if( @files == 1 );
 
        # Au moins 2 fichiers
        return( $files[@files-1], $files[@files-2]);
 
        }

Le problème si je fais comme ca c'est qu'il n'y pas de vérification sur l'ancienneté des fichiers

Je pensais donc faire autrement et utiliser le module Date::Calc pour trouver le fichier avec la date courante et le fichier date courante J-1.

Est-ce la bonne solution ?

Une fois que j'aurais trouvé ca je pourrais appliquer ta fonction aux 2 fichiers

[Maniac]

Bon j'arrive vraiment pas à m'en sortir. Ca veux pas. Ca coince. Ca me met les nerfs a vif

Voila le 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 $CONFXML             = "Repertoire/XML";
 
sub compare() {
  my ($aFileName, $bFileName) = @_;
  open FILEA, "<$aFileName";
  open FILEB, "<$bFileName";
  my $isStillEqual = (1 eq 1);
  while ((my $line_a=<FILEA>) and (my $line_b=<FILEB>) and (my $isStillEqual) )
  {
   $isStillEqual = ($isStillEqual and ($line_a eq $line_b));
  }
  close FILEA;
  close FILEB;
print "$isStillEqual\n";
  return $isStillEqual;
}
 
 
 
opendir(DIR, $CONFXML) || die "$CONFXML: $!";     
my @fichiers = readdir(DIR);  
closedir(DIR);
 
foreach my $fichiers (@fichiers) {
        chomp $fichiers;
 
# On affecte au variable $aFileName $bFileName le fichier trouve
                        if ($fichiers =~ /$HIER.*/g) {
                                my $aFileName = $fichiers;
                                print "$aFileName\n";
                        }
                        if ($fichiers =~ /$TODAY.*/g) {
                                my $bFileName = $fichiers;
                                print "$bFileName\n";
                        }
}
 
&compare (my $aFileName,my $bFileName);

$HIER et $TODAY correspondant a la date d'aujourd'hui et d'hier calculé par une autre fonction.

J'arrive a bien a affecté les bons fichiers au variables $aFileName et $bFileName

Mon problème c'est qu'a l'execution du script j'ai les messages suivants :
Use of uninitialized value in concatenation (.) or string at ./SA.pl line 71.
Use of uninitialized value in concatenation (.) or string at ./SA.pl line 72.
readline() on closed filehandle FILEA at ./SA.pl line 74.
1

les lignes 71, 72 et 74 sont

Code :

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

1
2
3
4
 
open FILEA, "<$aFileName";
open FILEB, "<$bFileName";
while ((my $line_a=<FILEA>) and (my $line_b=<FILEB>) and (my $isStillEqual) )

Quelqu'un a une idée du problème ?

[MarneusCalgarXP]

C'est normal: tu passes des variables non initialisées à ta sub:

Code :

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

&compare (my $aFileName,my $bFileName);

du coup quand ta sub les reçoit, elles sont à la valeur undef.
Or, tu essaies de les ouvrir:

Code :

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

1
2
3
4
sub compare() {
  my ($aFileName, $bFileName) = @_;
  open FILEA, "<$aFileName";
  open FILEB, "<$bFileName";

du coup, il te dit que $aFileName et$bFileName sont indéfinis dans ta sub, et que du coup tu ne peux pas les ouvrir...

Ce qu'il te faut, c'est modifier ton appel:

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
 
my ($aFileName, $bFileName);
 
foreach my $fichier (@fichiers) {
        chomp $fichier;
        # On affecte au variable $aFileName $bFileName le fichier trouve
        if ($fichier =~ /$HIER.*/g) {
           my $aFileName = $fichier;
        }
        elsif ($fichier =~ /$TODAY.*/g) {
           my $bFileName = $fichier;
        }
}
 
die("aFileName non défini\n"), unless($aFileName) ;
die("bFileName non défini\n"), unless($bFileName) ;
die("aFileName [$aFileName] n'existe pas\n"), unless(-e $aFileName) ;
die("bFileName [$bFileName] n'existe pas\n"), unless(-e $bFileName) ;
 
&compare ($aFileName, $bFileName);

[yjuliet]

n'y-a-t'il pas maintenant une question de chemin d'accès au fichier, vu que ces fichiers ne sont pas dans le répertoire courant ?

Il me semble qu'il faudrait rajouter le chemin dans les ouvertures de fichier du compare() :

Code :

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

open FILEA, "<$CONFXML/$aFileName";

Peut-être fais-je erreur ?