Discussion :

[Patrick-74]

Bonjour
j'ai besoins de compter le nbr. d'enregistrement identique dans un fichier perl, en comparrant un couple de données.

et de compter le nombre de données pour autoriser ou non l'ajout possible.

Si le Nbr. est suppérieur, afficher un message d'erreure.

Ici, je n'arrive pas à comprendre comment faire, j'ai regarder partout, et je bloque grave...

exemlpe :

aa1|000|111|222|330|444|555
aa2|000|111|222|331|444|555
aa3|000|111|222|332|444|555
aa3|000|111|222|332|444|555
aa3|000|111|222|332|444|555

je dois verifier si [0] [4] et compter le nombre de fois ou ils sont identique.

Si quelqu'un peut me guider sur ce que je dois faire...

[Jasmine80]

Bonjour
j'ai besoins de compter le nbr. d'enregistrement identique dans un fichier perl, en comparrant un couple de données.

et de compter le nombre de données pour autoriser ou non l'ajout possible.

Si le Nbr. est suppérieur, afficher un message d'erreure.

Tes explications ne sont pas très claires, supérieur à quoi?

je dois verifier si [0] [4] et compter le nombre de fois ou ils sont identique.

Voila comment compter par couple [0] [4]

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
#!/usr/bin/env perl
 
use strict;
use warnings;
 
 
 
my @enregistrements = qw[aa1|000|111|222|330|444|555
aa2|000|111|222|331|444|555
aa3|000|111|222|332|444|555
aa3|000|111|222|332|444|555
aa3|000|111|222|332|444|555];
 
# clé : $enregistrements[0]_$enregistrements[4]
# valeur : nombre d'occurrences
my %count;
 
# analyse
foreach my $eng (@enregistrements){
	my ($e0, $e4) = (split (/\|/, $eng))[0,4];
	$count{$e0.'_'.$e4} ++;
}
 
# affichage
while ( my ($k, $v) = each %count){
	print "$k\t$v\n";
}

[Patrick-74]

Merci Jasmine, je regarde ce que ta reponse et j'essaie de comprendre, ce que çà fait (je cros quand meme que j'ai compris)...

[Patrick-74]

Jasmine80 merci, pour ton code qui ma avancé.

J'ai une question, car en fait je voudrais vérifier dans cette liste :

le couple [0]=aa3 et [4]=332 et afficher le nombre trouvé, j'ai cherché mais là je n'arrive pas à finaliser dans du code quelque chose qui marche

Merci pour vos réponse.

[Jasmine80]

J'ai une question, car en fait je voudrais vérifier dans cette liste :

le couple [0]=aa3 et [4]=332 et afficher le nombre trouvé, j'ai cherché mais là je n'arrive pas à finaliser dans du code quelque chose qui marche

Il suffit de faire un print $hash{cle}

Code :

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

print $count{aa3_332}." occurrences de [0]=aa3 et [4]=332\n";

[Patrick-74]

Merci Jasmine80 voilà le code que j'ai (grace à toi), mais j'ai toujours une erreure...
Peux tu encore m'aider...

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
my @enregistrements = qw[aa1|000|111|222|330|444|555
aa2|000|111|222|331|444|555
aa3|000|111|222|332|444|555
aa3|000|111|222|332|444|555
aa3|000|111|222|332|444|555];
 
# clé : $enregistrements[0]_$enregistrements[4]
# valeur : nombre d'occurrences
 
my %count;
 
# analyse
foreach my $eng (@enregistrements){
	my ($e0, $e4) = (split (/\|/, $eng))[0,4];
	$count{$e0.'_'.$e4} ++;
}
 
$Ach="aa3";
$Drdv="332";
 
print "$count{$Ach_$Drdv}";

Merci

[Jasmine80]

Dans :

Code Patrick-74 :

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

1
2
3
4
5
 
$Ach="aa3";
$Drdv="332";
 
print "$count{$Ach_$Drdv}";

Tu devrais utiliser le pragma strict et prendre la bonne habitude de déclarer tes variables.
Il est inutile d'utiliser des doubles quotes dans print "$hash{cle}" ainsi que pour la valeur numérique d'une variable;

Code :

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

1
2
3
4
my $Ach = "aa3";
my $Drdv = 332;
 
print $count{$Ach.'_'.$Drdv};

[Patrick-74]

Merci Jasmine c'est super çà marche.

Peux tu me dire ou trouver des infos ou des cours sur ce genre de requettes.

Merci
A++

[Jasmine80]

Peux tu me dire ou trouver des infos ou des cours sur ce genre de requettes.

Cela n'a rien de compliqué, c'est simplement récupérer une valeur de hash via une clé. Tu trouveras des informations de base ou avancées dans la FAQ du forum, les tutoriels de perldoc et dans des cours du net trouvés via google tel que celui de Sylvain Lhullier mais il y en a d'autres bref la documentation ne manque pas.