Discussion :

[blacksun1]

Bonjour,

Je suis actuellement en stage et l'on me demande d'écrire un script en perl pouvant faire la comparaison entre 2 fichier à jour J et jour J-1.
D'en ressortir les différences pour prevenir l'admin d'une éventuelle modification de paramètre d'un individu (ex: date de sortie prorogé) ou d'ajout complet d'une personne.

Les fichiers sont de format txt sous la forme:

Code :

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

1
2
3
4
Matricule;Sexe;Nom;Prenom;cf;libCF;Date sortie
0072583;MR;MOUGIN;PAUL;011;CARTERS;30;
0075350;MR;GENTILS;PATRICK;011;CARTERS;32;
etc...

Apres avoir chercher sur le forum j'ai fait un premier jet qui ne fonctionne pas (et d'ailleurs qui ne prend pas en compte tout les desirata) en effet il n'arrive pas à comparer chaque valeur entre ";" de chaque fichier avec l'autre.
Pour faire un essai j'essaye juste de comparer les differentes date de sortie

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
44
45
46
47
48
#!C:\Perl\bin\perl.exe 
 
use strict;
 
my @tab=();
my $file="e:/fc.txt";
 
print "ouverture du fichier Jour J\n";
open(my $fd, $file) or die "$file : $!";
 
foreach my $line(<$fd>) {
    chomp($line);
my @datas=split(";", $line);
    print $datas[6]."\n"
}
system "pause \n";
 
close($fd);
 
print "ouverture du fichier Jour J-1\n",
 
my @tab1=();
 
my $file="e:/fc1.txt";
open(my $fd, $file) or die "$file : $!";
foreach my $line(<$fd>) {
        chomp($line);
  my @datas1=split(";", $line);
    print $datas1[6]."\n"
}
system "pause \n";
 
close($fd);
 
print "comparaison des 2 fichiers\n";
 
system "pause \n";
 
if (@tab != @tab1){print "Il y a eu ajout d'utilisateur \n";} 
else {print "Pas d'ajout dans la base de donnee\n";}
 
system "pause \n";
 
if ( $tab[6] != $tab1[6] || $tab[6] ne $tab1[6] ){print "Il y a une modification de la date de sortie \n";} 
 
else {print "Pas de modification de la date de sortie\n";}
 
system "pause \n";

Et depuis je me casse les dents dessus, toutes aides seraient la bienvenue.
merci d'avance

[Edit]
Balises [ code ] et [ /code ] ajoutées par 2Eurocents.
Merci d'y penser pour améliorer la lisibilité du forum
[/Edit]

[GLDavid]

Salut

En fait, tes tableaux sont toujours écrasés ce qui n'est pas commode.
Je suis plutôt passé par les tables de hachages avec le script suivant :

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
44
45
46
 
#!/usr/bin/perl
 
use strict;
 
my %datas;
my $file="fc.txt";
 
print "ouverture du fichier Jour J\n";
open(FILE, $file) or die "$file : $!";
my $i=0;
while(my $line = <FILE>) {
    chomp($line);
    $datas{$i++} = $line;
}
close(FILE);
 
print "ouverture du fichier Jour J-1\n",
 
my %datas1=();
my $file="fc1.txt";
$i=0;
open(FILE, $file) or die "$file : $!";
while(my $line = <FILE>) {
        chomp($line);
	$datas1{$i++} = $line;
}
close(FILE);
 
print "comparaison des 2 fichiers\n";
 
print "Comparaisons des tailles :\n";
my $size_datas = scalar(keys(%datas));
my $size_datas1 = scalar(keys(%datas1));
if($size_datas != $size_datas1){
	print"Il y a $size_datas-$size_datas1 utilisateur(s) à rajouter.\n";
}
 
print "Comparaisons des dates de sortie.\n";
foreach my $elem (keys(%datas)){
	my @datas = split(";", $datas{$elem});
	my @datas1 = split(";", $datas1{$elem});
	if ($datas[6] != $datas1[6]){
		print "Date de sortie à modifier pour $datas[0].\n";
	}
}

Et cela marche pour les fichiers suivants :

Matricule;Sexe;Nom;Prenom;cf;libCF;Date sortie
0072583;MR;MOUGIN;PAUL;011;CARTERS;31;
0075350;MR;GENTILS;PATRICK;011;CARTERS;32;

Matricule;Sexe;Nom;Prenom;cf;libCF;Date sortie
0072583;MR;MOUGIN;PAUL;011;CARTERS;30;
0075350;MR;GENTILS;PATRICK;011;CARTERS;32;

@++

[blacksun1]

Merci c'est nickel apres l'avoir testé (avec quelques adaptation)

Pourrais je savoir à quoi correspond :

Code :

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

 scalar(keys(%datas));

pour en être sur.

Et est 'il possible à la suite de ça de sortir directement la ligne qui à été rajoutée.

Code :

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

1
2
3
4
5
6
7
print "Comparaisons des tailles :\n"; 
my $size_datas = scalar(keys(%datas)); 
my $size_datas1 = scalar(keys(%datas1)); 
if($size_datas != $size_datas1){ 
	my $diff = ($size_datas1-$size_datas);
     	print"Il y a $diff utilisateur(s) a rajouter.\n"; 
}

En tout cas merci encore de m'avoir retiré cette épine du pied

[GLDavid]

Salut

Avec la fonction keys(%hash_table), je récupère un tableau qui contient toutes les clés de ma table associative. Comme c'est un tableau et que je veux obtenir sa taille, j'utilise après scalar pour mettre cette liste en contexte scalaire et donc récupérer ni plus ni moins que sa taille.
Cocnernant le code que tu proposes, j'y vois aucune objection si ça peut te paraître plus clair.
Si c'est OK, n'oublies pas de mettre le tag Résolu sur ton thread

Au plaisir de t'avoir aidé.

@++

[blacksun1]

L'explication est clair

Il me manque plus que ça :

Code :

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

1
2
 
Et est 'il possible à la suite de ça de sortir directement la ligne qui a été rajoutée.

[/code]

[GLDavid]

Ah, excuses-moi, apparemment je n'ai pas les yeux en face des trous !
Ouais, ça doit se faire, tu veux juste extraire la ligne surnuméraire ? Dans ce cas, on va partir du principe que le fichier modifié est fc.txt et que l'on ajoute un nouveau personnage en "append" (à la suite du fichier. Tout à l'heure, on a vu que les clés de notre table de hash sont des nombres (en fait, le numéro de ligne commençant par 0). Donc, si on a la différence :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
print "Comparaisons des tailles :\n";
my $size_datas = scalar(keys(%datas));
my $size_datas1 = scalar(keys(%datas1));
if($size_datas != $size_datas1){
   my $diff = ($size_datas1-$size_datas);
        print"Il y a $diff utilisateur(s) a rajouter.\n";
} 
 
for ($i=$size_datas1; $i<$size_datas1+$diff; $i++){
print "Nouvel élément : $datas{$i}\n";
}

Attention ! Code non testé (je sais je suis une grosse larve !). L'idée est de partir de la table de hash modifiée avec comme élément de départ, le dernier élément (ie la clé) de notre table non modifiée. On s'arrêtera à l'élément+la différence.

@++

[blacksun1]

En un mot : PARFAIT
Merci encore