Perl

Problème sur la table de hashage

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème sur la table de hashage

laisso

Merci de bien vouloir vérifier que mon code est fonctionnel

Code :

#Construire un programme proposant ces fonctionnalités :
#• Au chargement, on a au moins 4 abonnés dont un à 0 DVD et un à undef.
#• On boucle sur un menu proposant :
#1. afficher la DVDthéque
#2. ajouter un abonné
#3. supprimer un abonné
#4. emprunt d'un ou plusieurs DVD
#5. retour d'un ou plusieurs DVD
#6. quitter
#On aidera l'utilisateur à tout moment du mieux qu'on peut, exemples (non exhaustifs) :
#• 2 : on affiche la liste des abonnés pour lui montrer ceux qui existent déjà. On vérifie que le nouvel entrant n'existe pas sinon, message.
#• 3 : on affiche la liste des abonnés avec des numéros pour qu'il puisse indiquer rapidement celui qu'il veut supprimer. On boucle sur une saisie blindée sur ces numéros-là.
#• 4 : la liste des abonnés est affichée comme ci-dessus.
#• 5 : idem ci-dessus et on vérifie qu'un abonné ne peut pas rendre plus de DVD qu'il n'en a.
#!/usr/bin/perl
use strict;
use warning;
my $i=0;
my @DVD;
# La liste des emprunteurs est donnée par une table de hachage %abonnes
# Clé : indentifiant = prénom pour simplifier
# Valeur : nb de DVD empruntés
# Création de la table :
$abonnes{"Guillaume"} = 3;
$abonnes{"Maxime"} = 15;
$abonnes{"Anne"} = 0; # abonné qui a déjà emprunté mais aucun emprunt en cours
$abonnes{"Michel"} = undef;
while (1){
print "################## Menu ##################\n";
print "# #\n";
print "# 1 - Affichage de la DVDthéque #\n";
print "# 2 - Ajoute d'un abonné #\n";
print "# 3 - Suppression d'un abonné #\n";
print "# 4 - Emprunt de DVD #\n";
print "# 5 - Retour de DVD #\n";
print "# 6 - Quitter #\n";
print "# #\n";
print "##########################################\n";
print "choix : ";
my $choix=<STDIN>;
if ( $choix eq '1' ){
print("\n\nAffichage de la DVDthèque" );
while (($prenom,$nbDVD) = each %abonnes) {
print "\n$prenom est abonné";
# si le nb de DVD n'est pas undef
if (defined($nbDVD)) {
print("\n\tnb de DVD empruntés : $nbDVD" );
} else {
print("\n\tIl n'a jamais emprunté de DVD" );
}
}
}
elsif ( $choix eq '2' ){
print("\n\nAjout d'un nouvel abonné sans emprunt" );
print("\nQui souhaitez-vous ajouter ?" );
$newAbonne =<STDIN>;
chomp($newAbonne); # suppression du saut de ligne
$abonnes{"$newAbonne"} = undef; # abonné sans emprunt
}
elsif ( $choix eq '3' ){
print("\n\nQuel User souhaitez vous supprimer?" );
$user= <>;
chomp($user);
delete ($abonnes {$user}) ;
}
elsif ( $choix eq '4' ){
print("\n\nCombien de DVD voulez vous emprunter?" );
$maxDVD = -1; # le max de DVD emprunter
while (($prenom,$nbDVD) = each %abonnes) {
$DVD[$i]=$user
$i++
if ($nbDVD > $maxDVD) {
$DVD = $nbDVD;
$Emprunteur = $prenom;
}
}
print("\nIl a emprunté $DVD DVD" );
}
elsif ( $choix eq '5' ){
print"\n\nCombien de DVD voulez vous restituer?" );
while (($prenom,$nbDVD) = each %abonnes) {
$DVD[$i]=$user
$i--
if ($nbDVD > $maxDVD) {
$DVD = $nbDVD;
$restituer = $prenom;
}
}
print ("\nIl a restitué $DVD DVD" );
}
elsif ( $choix eq '6' ){
exit 0;
}
else{
print "Votre choix n'est pas dans ceux proposes\n";
}
}

Publicité

gilou

Modérateur
Modosaurus Rex

Avant de poster ce code, peut être que le minimum, c'est de le passer a l'interpréteur afin de voir s'il détecte des erreurs de syntaxe.

Je vous donne les 3 premières:
1) #!/usr/bin/perl doit figurer en première ligne (pour le shell unix), mettre la ligne ailleurs ne sert a rien
2) use warning; c'est warnings
3) $abonnes{"Guillaume"} = 3; mais vous n'avez pas fait de déclaration my %abonnes; auparavant
etc
et il y a des erreurs de parenthésage avec les } sur la fin qui est fausse

A+,

Message édité par gilou le 02-12-2014 à 03:44:19

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- Il ne faut plus dire Sarkozy, mais Sarkozon -- (╯°□°)╯︵ ┻━┻

gilou

Modérateur
Modosaurus Rex

Tant que j'y suis, la principale erreur de syntaxe qui rend la suite fausse, c'est:
print"\n\nCombien de DVD voulez vous restituer?" );
ce devrait être
print"\n\nCombien de DVD voulez vous restituer?";
sans parenthèse fermante.

A+,

laisso

Code :

Code :
#!/usr/bin/perl
use strict;
use warnings;
my $i=0;
my @DVD;
my $emprunteur;
my $prenom;
my $restituer;
my $n;
my %abonne;
my $nbDVD;
my $newAbonne;
my $user;
my $maxDVD;
my $DVD;
# La liste des emprunteurs est donnée par une table de hachage %abonnes
# Clé : indentifiant = prénom pour simplifier
# Valeur : nb de DVD empruntés
# Création de la table :
$abonnes{"Guillaume"} = 3;
$abonnes{"Maxime"} = 15;
$abonnes{"Anne"} = 0; # abonné qui a déjà emprunté mais aucun emprunt en cours
$abonnes{"Michel"} = undef;
while (1){
print "################## Menu ##################\n";
print "# #\n";
print "# 1 - Affichage de la DVDthéque #\n";
print "# 2 - Ajoute d'un abonné #\n";
print "# 3 - Suppression d'un abonné #\n";
print "# 4 - Emprunt de DVD #\n";
print "# 5 - Retour de DVD #\n";
print "# 6 - Quitter #\n";
print "# #\n";
print "##########################################\n";
print "choix : ";
my $choix=<STDIN>;
if ( $choix eq '1' ){
print("\n\nAffichage de la DVDthèque" );
while (($prenom,$nbDVD) = each %abonnes) {
print "\n$prenom est abonne";
# si le nb de DVD n'est pas undef
if (defined($nbDVD)) {
print("\n\tnb de DVD empruntes : $nbDVD" );
} else {
print("\n\tIl n'a jamais emprunte de DVD" );
}
}
}
elsif ( $choix eq '2' ){
# Ajout d'un nouvel abonné sans emprunt
print("\n\nAjout d'un nouvel abonné sans emprunt" );
print("\nQui souhaitez-vous ajouter ?" );
$newAbonne =<STDIN>;
chomp($newAbonne); # suppression du saut de ligne
$abonnes{"$newAbonne"} = undef; # abonné sans emprunt
}
elsif ( $choix eq '3' ){
# Révocation d'un abonné : delete
print("\n\nQuel User souhaitez vous supprimer?" );
$user= <>;
chomp($user);
delete ($abonnes {$user}) ;
}
elsif ( $choix eq '4' ){
# Emprunt d'un ou plusieurs DVD
print("\n\nCombien de DVD voulez vous emprunter?" );
$maxDVD = -1; # le max de DVD emprunter
while (($prenom,$nbDVD) = each %abonnes) {
$DVD[$i]=$user;
$i++;
if ($nbDVD > $maxDVD) {
$DVD = $nbDVD;
$Emprunteur = $prenom;
$abonnes{$emprunteur} = $abonnes{$emprunteur} + $n;
}
}
print("\nIl a emprunte $DVD DVD" );
}
elsif ( $choix eq '5' ){
# retour d'un ou plusieurs DVD
print"\n\nCombien de DVD voulez vous restituer?";
while (($prenom,$nbDVD) = each %abonnes) {
$DVD[$i]=$user;
$i--;
if ($nbDVD > $maxDVD) {
$DVD = $nbDVD;
$restituer = $prenom;
$abonnes{$restituer} = $abonnes{$restituer} - $n;
}
}
print ("\nIl a restitue $DVD DVD" );
}
elsif ( $choix eq '6' ){
exit 0;
}
else{
print "Votre choix n'est pas dans ceux proposes\n";
}
}

gilou

Modérateur
Modosaurus Rex

Ben manifestement, vous n'avez toujours pas corrigé toutes les erreurs de syntaxe, il en reste deux.

D'autre part, dans votre code, remplacez tous les tests
if ($choix eq '1')
par
if ($choix == 1)
ça marchera beaucoup mieux.
En effet, si l'utilisateur tape 1 puis retour chariot a la console, comme texte $choix vaudra "1\n" et le test $choix eq '1' va échouer.
Tandis que comme valeur numérique, $choix vaudra 1 et le test $choix == 1 va marcher (et marchera encore s'il y a des blancs avant et après le 1).

A+,

Message édité par gilou le 02-12-2014 à 18:09:13

laisso

Voici les modifications,

Code :

#!/usr/bin/perl
use strict;
use warnings;
my $i=0;
my @DVD;
my $emprunteur;
my $prenom;
my $n;
my %abonnes;
my $nbDVD;
my $newAbonne;
my $user;
my $maxDVD;
my $DVD;
# La liste des emprunteurs est donnée par une table de hachage %abonnes
# Clé : indentifiant = prénom pour simplifier
# Valeur : nb de DVD empruntés
# Création de la table :
$abonnes{"Guillaume"} = 3;
$abonnes{"Maxime"} = 15;
$abonnes{"Anne"} = 0; # abonné qui a déjà emprunté mais aucun emprunt en cours
$abonnes{"Michel"} = undef;
while (1){
print "################## Menu ##################\n";
print "# #\n";
print "# 1 - Affichage de la DVDthéque #\n";
print "# 2 - Ajoute d'un abonné #\n";
print "# 3 - Suppression d'un abonné #\n";
print "# 4 - Emprunt de DVD #\n";
print "# 5 - Retour de DVD #\n";
print "# 6 - Quitter #\n";
print "# #\n";
print "##########################################\n";
print "choix : ";
my $choix=<STDIN>;
if ( $choix eq == 1 ){
print("\n\nAffichage de la DVDthèque" );
while (($prenom,$nbDVD) = each %abonnes) {
print "\n$prenom est abonne";
# si le nb de DVD n'est pas undef
if (defined($nbDVD)) {
print("\n\tnb de DVD empruntes : $nbDVD" );
} else {
print("\n\tIl n'a jamais emprunte de DVD" );
}
}
}
elsif ( $choix eq == 2 ){
# Ajout d'un nouvel abonné sans emprunt
print("\n\nAjout d'un nouvel abonné sans emprunt" );
print("\nQui souhaitez-vous ajouter ?" );
$newAbonne =<STDIN>;
chomp($newAbonne); # suppression du saut de ligne
$abonnes{"$newAbonne"} = undef; # abonné sans emprunt
}
elsif ( $choix eq == 3 ){
# Révocation d'un abonné : delete
print("\n\nQuel User souhaitez vous supprimer?" );
$user= <>;
chomp($user);
delete ($abonnes {$user}) ;
}
elsif ( $choix eq == 4 ){
# Emprunt d'un ou plusieurs DVD
print("\n\nCombien de DVD voulez vous emprunter?" );
$maxDVD = -1; # le max de DVD emprunter
while (($prenom,$nbDVD) = each %abonnes) {
$DVD[$i]=$user;
$i++;
if ($nbDVD > $maxDVD) {
$DVD = $nbDVD;
$Emprunteur = $prenom;
$abonnes{$emprunteur} = $abonnes{$emprunteur} + $n;
}
}
print("\nIl a emprunte $DVD DVD" );
}
elsif ( $choix eq == 5 ){
# retour d'un ou plusieurs DVD
print"\n\nCombien de DVD voulez vous restituer?";
while (($prenom,$nbDVD) = each %abonnes) {
$DVD[$i]=$user;
$i--;
if ($nbDVD > $maxDVD) {
$DVD = $nbDVD;
$restituer = $prenom;
$abonnes{$restituer} = $abonnes{$restituer} - $n;
}
}
print ("\nIl a restitue $DVD DVD" );
}
elsif ( $choix eq == 6 ){
exit 0;
}
else{
print "Votre choix n'est pas dans ceux proposes\n";
}
}

gilou

Modérateur
Modosaurus Rex

Bon, c'est la dernière fois que je corrige une erreur que vous aurait indiqué l'interpréteur si vous l'aviez lancé sur le script.
La prochaine fois que j'ai un code qui ne se lance pas sans erreurs de syntaxes, je n'y touche plus.

syntax error at gdt.pl line 36, near "eq =="
en effet, c'est $choix == 1 et non pas $choix eq == 1

Les autres erreurs:
un $Emprunteur avec un E majuscule, et l'utilisation d'une variable $restituer sans l'avoir déclare auparavant.

A+,

Message édité par gilou le 02-12-2014 à 19:55:07

gilou

Modérateur
Modosaurus Rex

Bon, sinon, vôtre erreur de conception la plus flagrante:
$abonnes{"$newAbonne"} = undef; # abonné sans emprunt
C'est pas une bonne idée de mettre a undef et non pas a 0, car plus loin, pour l'emprunt d'un dvd, vous avez ce code:
while (($prenom,$nbDVD) = each %abonnes) {
$DVD[$i]=$user;
$i++;
if ($nbDVD > $maxDVD) {

et la comparaison $nbDVD > $maxDVD ne va pas du tout aimer un $nbDVD a undef.

A+,

Message édité par gilou le 02-12-2014 à 20:01:12

el muchacho

Comfortably Numb

Nan mais gilou, arrête de faire le boulot de ce fainéant.

---------------
Les aéroports où il fait bon attendre, voila un topic qu'il est bien

laisso

Bonjour,

Pour le choix 5 j'ai ce message d'erreur que je ne comprends pas

Use of uninitialized value $maxDVD in numeric gt (> ) at perl.pl line 90, <STDIN> line 1.
Use of uninitialized value $n in subtraction (-) at perl.pl line 93, <STDIN> line 1.
Use of uninitialized value $maxDVD in numeric gt (> ) at perl.pl line 90, <STDIN> line 1.
Modification of non-creatable array value attempted, subscript -2 at perl.pl line 88, <STDIN> line 1.
Pour le choix 4, J'ai ce message

Use of uninitialized value $n in addition (+) at perl.pl line 79, <STDIN> line 3.
Use of uninitialized value $n in addition (+) at perl.pl line 79, <STDIN> line 3.
Use of uninitialized value $n in addition (+) at perl.pl line 79, <STDIN> line 3.
Use of uninitialized value $n in addition (+) at perl.pl line 79, <STDIN> line 3

Merci de votre aide!

Code :

#!/usr/bin/perl
use strict;
use warnings;
my $i=0;
my @DVD;
my $emprunteur;
my $prenom;
my $n;
my %abonnes;
my $nbDVD;
my $newAbonne;
my $user;
my $maxDVD;
my $DVD;
my $restituer;
# La liste des emprunteurs est donnée par une table de hachage %abonnes
# Clé : indentifiant = prénom pour simplifier
# Valeur : nb de DVD empruntés
# Création de la table :
$abonnes{"Guillaume"} = 3;
$abonnes{"Maxime"} = 15;
$abonnes{"Anne"} = 0; # abonné qui a déjà emprunté mais aucun emprunt en cours
$abonnes{"Michel"} = 0;
while (1){
print "################## Menu ##################\n";
print "# #\n";
print "# 1 - Affichage de la DVDthéque #\n";
print "# 2 - Ajoute d'un abonné #\n";
print "# 3 - Suppression d'un abonné #\n";
print "# 4 - Emprunt de DVD #\n";
print "# 5 - Retour de DVD #\n";
print "# 6 - Quitter #\n";
print "# #\n";
print "##########################################\n";
print "choix : ";
my $choix=<STDIN>;
if ( $choix == 1 ){
print("\n\nAffichage de la DVDthèque" );
while (($prenom,$nbDVD) = each %abonnes) {
print "\n$prenom est abonne";
# si le nb de DVD n'est pas undef
if (defined($nbDVD)) {
print("\n\tnb de DVD empruntes : $nbDVD" );
} else {
print("\n\tIl n'a jamais emprunte de DVD" );
}
}
}
elsif ( $choix == 2 ){
# Ajout d'un nouvel abonné sans emprunt
print("\n\nAjout d'un nouvel abonné sans emprunt" );
print("\nQui souhaitez-vous ajouter ?" );
$newAbonne =<STDIN>;
chomp($newAbonne); # suppression du saut de ligne
$abonnes{"$newAbonne"} = undef; # abonné sans emprunt
}
elsif ( $choix == 3 ){
# Révocation d'un abonné : delete
print("\n\nQuel User souhaitez vous supprimer?" );
$user= <>;
chomp($user);
delete ($abonnes {$user}) ;
}
elsif ( $choix == 4 ){
# Emprunt d'un ou plusieurs DVD
print("\n\nCombien de DVD voulez vous emprunter?" );
$maxDVD = -1; # le max de DVD emprunter
while (($prenom,$nbDVD) = each %abonnes) {
$DVD[$i]=$user;
$i++;
if ($nbDVD > $maxDVD) {
$DVD = $nbDVD;
$emprunteur = $prenom;
$abonnes{$emprunteur} = $abonnes{$emprunteur} + $n;
}
}
print("\nIl a emprunte $DVD DVD" );
}
elsif ( $choix == 5 ){
# retour d'un ou plusieurs DVD
print"\n\nCombien de DVD voulez vous restituer?";
while (($prenom,$nbDVD) = each %abonnes) {
$DVD[$i]=$user;
$i--;
if ($nbDVD > $maxDVD) {
$DVD = $nbDVD;
$restituer = $prenom;
$abonnes{$restituer} = $abonnes{$restituer} - $n;
}
}
print ("\nIl a restitue $DVD DVD" );
}
elsif ( $choix == 6 ){
exit 0;
}
else{
print "Votre choix n'est pas dans ceux proposes\n";
}
}

Publicité

gilou

Modérateur
Modosaurus Rex

Il suffit pourtant de lire les messages d'erreur: ils sont explicites.

Citation :

Pour le choix 5 j'ai ce message d'erreur que je ne comprends pas

Use of uninitialized value $maxDVD in numeric gt (> ) at perl.pl line 90, <STDIN> line 1.

je vais voir ligne 90... c'est: if ($nbDVD > $maxDVD) {
uninitialized value $maxDVD, donc $maxDVD n'a pas été initialisé avant le choix 5, et si on regarde le seul endroit du code ou il est initialisé, ligne 72, c'est quand il passe par le choix 4. Donc si on fait le 5 avant de faire le 4...

Et c'est le même genre de problème ligne 79: $abonnes{$emprunteur} = $abonnes{$emprunteur} + $n;
$n n'a pas été initialisé, donc vouloir l'ajouter, hem...

Citation :

Modification of non-creatable array value attempted, subscript -2 at perl.pl line 88, <STDIN> line 1.

Je vais voir ligne 88 c'est: $DVD[$i]=$user;
non-creatable array donc il y a un problème avec un array, le seul array de la ligne, c'est $DVD[$i], donc je vais voir sa déclaration, et je vois que ce qui est déclaré ligne 15, c'est my $DVD; bref qu'on a déclaré un scalaire et non pas un array (qui aurait été déclaré lui comme my @DVD;), pas étonnant que l'interpréteur râle.

A+,

Message cité 1 fois
Message édité par gilou le 04-12-2014 à 12:26:42

laisso

gilou a écrit :

Il suffit pourtant de lire les messages d'erreur: ils sont explicites.

Citation :

Pour le choix 5 j'ai ce message d'erreur que je ne comprends pas

Use of uninitialized value $maxDVD in numeric gt (> ) at perl.pl line 90, <STDIN> line 1.

Citation :

Modification of non-creatable array value attempted, subscript -2 at perl.pl line 88, <STDIN> line 1.

Le problème est résolu, j'ai seulement besoin d'optimiser ce code?

Code :

#!/usr/bin/perl
use strict;
use warnings;
my $i=0;
my @DVD;
my $emprunteur;
my $prenom;
my $n=0;
my %abonnes;
my $nbDVD;
my $newAbonne;
my $user;
my $maxDVD=-1;
my $restituer;
my $abonnes;
my $DVD;
# La liste des emprunteurs est donnée par une table de hachage %abonnes
# Clé : indentifiant = prénom pour simplifier
# Valeur : nb de DVD empruntés
# Création de la table :
$abonnes{"Guillaume"} = 3;
$abonnes{"Maxime"} = 15;
$abonnes{"Anne"} = 0; # abonné qui a déjà emprunté mais aucun emprunt en cours
$abonnes{"Michel"} = undef;
while (1){
print "################## Menu ##################\n";
print "# #\n";
print "# 1 - Affichage de la DVDthéque #\n";
print "# 2 - Ajoute d'un abonné #\n";
print "# 3 - Suppression d'un abonné #\n";
print "# 4 - Emprunt de DVD #\n";
print "# 5 - Retour de DVD #\n";
print "# 6 - Quitter #\n";
print "# #\n";
print "##########################################\n";
print "choix : ";
my $choix=<STDIN>;
if ( $choix == 1 ){
print("\n\nAffichage de la DVDthèque" );
while (($prenom,$nbDVD) = each %abonnes) {
print "\n$prenom est abonne";
# si le nb de DVD n'est pas undef
if (defined($nbDVD)) {
print("\n\tnb de DVD empruntes : $nbDVD" );
} else {
print("\n\tIl n'a jamais emprunte de DVD" );
}
}
}
elsif ( $choix == 2 ){
# Ajout d'un nouvel abonné sans emprunt
print("\n\nAjout d'un nouvel abonné sans emprunt" );
print("\nQui souhaitez-vous ajouter ?" );
$newAbonne =<STDIN>;
chomp($newAbonne); # suppression du saut de ligne
$abonnes{"$newAbonne"} = undef; # abonné sans emprunt
}
elsif ( $choix == 3 ){
# Révocation d'un abonné : delete
print("\n\nQuel User souhaitez vous supprimer?" );
$user= <>;
chomp($user);
delete ($abonnes {$user}) ;
}
elsif ( $choix == 4 ){
# Emprunt d'un ou plusieurs DVD
sub select_a_subscriber {
my (%hash) = @_;
my @arr;
my $n;
my $select = 0;
foreach my $key (sort keys %hash) {
push @arr, $key;
print ++$n . ". $key\n";
}
while (($select < 1) || ($select > $n)) {
print "Sélection (1 à $n) ? \n";
$select = <>;
chomp($select);
}
return $arr[$select - 1];
}
my $ab = select_a_subscriber(%abonnes);
print("\n\nCombien de DVD voulez vous emprunter?" );
{
if ($nbDVD > $maxDVD) {
$DVD = <>;
$DVD[$i]=$user;
$i++;
$emprunteur = $prenom;
$abonnes{$emprunteur} = $abonnes{$emprunteur} + $n;
}
}
print("\nil a emprunte $DVD DVD" );
}
elsif ( $choix == 5 ){
# retour d'un ou plusieurs DVD
sub select_a_subscriber {
my (%hash) = @_;
my @arr;
my $n;
my $select = 0;
foreach my $key (sort keys %hash) {
push @arr, $key;
print ++$n . ". $key\n";
}
while (($select < 1) || ($select > $n)) {
print "Sélection (1 à $n) ? \n";
$select = <>;
chomp($select);
}
return $arr[$select - 1];
}
my $ab = select_a_subscriber(%abonnes);
print"\n\nCombien de DVD voulez vous restituer?";
{
if ($nbDVD > $maxDVD) {
$DVD = <>;
$DVD[$i]=$user;
$i--;
$DVD = $nbDVD;
$restituer = $prenom;
$abonnes{$restituer} = $abonnes{$restituer} - $n;
}
}
print ("\nil a restitue $DVD DVD" );
}
elsif ( $choix == 6 ){
exit 0;
}
else{
print "Votre choix n'est pas dans ceux proposes\n";
}
}

Message édité par laisso le 04-12-2014 à 20:07:51

gilou

Modérateur
Modosaurus Rex

Ben je ne sais pas, ton code d'ajout et de retrait de DVD est pas compréhensible et probablement faux.

Au vu de ton code, je suppose que c'est un truc dans ce genre que tu voulais faire:

Code :

#!/usr/bin/perl
use strict;
use warnings;
 
my %abonnes = ("Guillaume" => 3, "Maxime" => 15, "Anne" => 0, "Michel" => undef, );
 
 
while (1) {
  print "################## Menu ##################\n";
  print "#                                        #\n";
  print "# 1 - Affichage de la DVDthéque          #\n";
  print "# 2 - Ajoute d'un abonné                 #\n";
  print "# 3 - Suppression d'un abonné            #\n";
  print "# 4 - Emprunt de DVD                     #\n";
  print "# 5 - Retour de DVD                      #\n";
  print "# 6 - Quitter                            #\n";
  print "#                                        #\n";
  print "##########################################\n";
  print "choix : ";
  $_ = <>;
  s/^\s*|\s*$//g;
  if (/^\d+$/) {
    if (/1/) { affichage(); next; }
    if (/2/) { add_abo(); next; }
    if (/3/) { del_abo(); next; }
    if (/4/) { emprunt_dvd(); next; }
    if (/5/) { retour_dvd(); next; }
    if (/6/) { last; }
  }
  print "entrée invalide\n";
}
 
 
sub affichage {
  print "\n\n";
  print "Affichage de la DVDthèque\n\n";
  foreach my $prenom (sort (keys %abonnes)) {
    print "$prenom est abonné";
    defined($abonnes{$prenom})?
      print "\tnb de DVD empruntés : $abonnes{$prenom}\n":
      print "\tIl n'a jamais emprunté de DVD\n";
  }
  print "\n";
}
 
# Ajout d'un nouvel abonné sans emprunt
sub add_abo {
    print "\n\n";
    print "Ajout d'un nouvel abonné sans emprunt\n";
    print "Qui souhaitez-vous ajouter ?";
    $_ = <>;
    s/^\s*|\s*$//g;
    if (exists $abonnes{$_}) {
      print "$_ est déjà abonné\n";
    }
    else {
      $abonnes{$_} = undef;
      print "$_ est ajouté\n";
    }
    print "\n";
}
 
# Révocation d'un abonné : delete
sub del_abo {
  print "\n\n";
  print "Quel User souhaitez vous supprimer? ";
  $_ = <>;
  s/^\s*|\s*$//g;
  if (exists $abonnes{$_}) {
    delete($abonnes{$_});
    print "$_ est supprimé\n";
  }
  else {
    print "$_ ne figure pas parmi les inscrits\n";
  }
  print "\n";
}
 
sub choix_inscrit {
  my @inscrits = sort (keys %abonnes);
  while (1) {
    my $i = 1;
    foreach my $inscrit (@inscrits) {
      print "$i - $inscrit\n";
      ++$i;
    }
    print "Sélection (1 à ", scalar(@inscrits), " ) ? ";
    $_ = <>;
    s/^\s*|\s*$//g;
    if (/^\d+$/) {
      last if ($_ > 0 and $_ <= @inscrits);
    }
    print "entrée invalide\n";
  }
  return $inscrits[$_-1];
}
 
sub emprunt_dvd {
  my $maxabo = 50;  #max par abonné
  print "\n\n";
  my $abo = choix_inscrit();
  my $nbDVD = 0;
  $nbDVD = $abonnes{$abo} if defined $abonnes{$abo};
  if ($nbDVD == $maxabo) {
    print "Vous avez déjà atteint la limite\n";
    return;
  }
  print "\n\n";
  print "Combien de DVD voulez vous emprunter (1 à ", $maxabo - $nbDVD, " )? ";
  $_ = <>;
  s/^\s*|\s*$//g;
  if (/^\d+$/) {
    if ($_ > 0 and $_ <= ($maxabo - $nbDVD)) {
      $abonnes{$abo} += $_;
      print("$_ nouveaux DVDs empruntés, $abonnes{$abo} DVDs empruntés au total\n" );
      return;
    }
  }
  print "entrée invalide\n";
}
 
sub retour_dvd {
  print "\n\n";
  my $abo = choix_inscrit();
  unless (defined($abonnes{$abo}) and $abonnes{$abo} > 0) {
    print "Vous n'avez pas de DVD emprunté\n";
    return;
  }
  print "\n\n";
  print "Combien de DVD voulez vous retourner (1 à ", $abonnes{$abo}, " ) ?";
  $_ = <>;
  s/^\s*|\s*$//g;
  if (/^\d+$/) {
    if ($_ > 0 and $_ <= $abonnes{$abo}) {
      $abonnes{$abo} -= $_;
      print("$_ DVDs rendus, $abonnes{$abo} DVDs empruntés au total\n" );
      return;
    }
  }
  print "entrée invalide\n";
}

J'ai découpé ton code en subs plus petites et ne faisant qu'une seule chose, j'ai viré la tonne de variables globales inutiles.
Et ça a l'air de tourner, bien que j'aie pas testé à fond.
Ceci pour t'indiquer vers quelle direction orienter ton code.

Bon bien sur, un vrai exemple devrait être bien plus complet, ici, c'est hyper simplifié: en particulier travailler avec vraiment des DVDs et pas seulement un nombre de DVDs (et donc gérer les problèmes de DVD déjà empruntés, vérifier que les DVDs rendus sont ceux empruntés, sauver la DVDthèque et la relire, afficher la liste des DVDs, trouver qui a emprunté un titre, etc)

Et bien sur, si je devais coder cela, j'utiliserais un peu d'orienté objet (il y a cela dans Perl), mais si tu débutes en perl, cela ne t'est pas pour le moment utile.

Et j'aurais pu aussi utiliser les mots clés given/when (uniquement en perl moderne) pour le début:

Code :

#!/usr/bin/perl
use strict;
use warnings;
use feature "switch";
 
my %abonnes = ("Guillaume" => 3, "Maxime" => 15, "Anne" => 0, "Michel" => undef, );
 
 
while (1) {
  print "################## Menu ##################\n";
  print "#                                        #\n";
  print "# 1 - Affichage de la DVDthéque          #\n";
  print "# 2 - Ajoute d'un abonné                 #\n";
  print "# 3 - Suppression d'un abonné            #\n";
  print "# 4 - Emprunt de DVD                     #\n";
  print "# 5 - Retour de DVD                      #\n";
  print "# 6 - Quitter                            #\n";
  print "#                                        #\n";
  print "##########################################\n";
  print "choix : ";
  $_ = <>;
  s/^\s*|\s*$//g;
  given ($_){
    when (/1/) { affichage()   }
    when (/2/) { add_abo()     }
    when (/3/) { del_abo()     }
    when (/4/) { emprunt_dvd() }
    when (/5/) { retour_dvd()  }
    when (/6/) { last          }
    default    { print "entrée invalide\n" }
  }
}

A+,

Message cité 1 fois
Message édité par gilou le 05-12-2014 à 01:09:31

laisso

gilou a écrit :

Ben je ne sais pas, ton code d'ajout et de retrait de DVD est pas compréhensible et probablement faux.

Au vu de ton code, je suppose que c'est un truc dans ce genre que tu voulais faire:

Code :

#!/usr/bin/perl
use strict;
use warnings;
 
my %abonnes = ("Guillaume" => 3, "Maxime" => 15, "Anne" => 0, "Michel" => undef, );
 
 
while (1) {
  print "################## Menu ##################\n";
  print "#                                        #\n";
  print "# 1 - Affichage de la DVDthéque          #\n";
  print "# 2 - Ajoute d'un abonné                 #\n";
  print "# 3 - Suppression d'un abonné            #\n";
  print "# 4 - Emprunt de DVD                     #\n";
  print "# 5 - Retour de DVD                      #\n";
  print "# 6 - Quitter                            #\n";
  print "#                                        #\n";
  print "##########################################\n";
  print "choix : ";
  $_ = <>;
  s/^\s*|\s*$//g;
  if (/^\d+$/) {
    if (/1/) { affichage(); next; }
    if (/2/) { add_abo(); next; }
    if (/3/) { del_abo(); next; }
    if (/4/) { emprunt_dvd(); next; }
    if (/5/) { retour_dvd(); next; }
    if (/6/) { last; }
  }
  print "entrée invalide\n";
}
 
 
sub affichage {
  print "\n\n";
  print "Affichage de la DVDthèque\n\n";
  foreach my $prenom (sort (keys %abonnes)) {
    print "$prenom est abonné";
    defined($abonnes{$prenom})?
      print "\tnb de DVD empruntés : $abonnes{$prenom}\n":
      print "\tIl n'a jamais emprunté de DVD\n";
  }
  print "\n";
}
 
# Ajout d'un nouvel abonné sans emprunt
sub add_abo {
    print "\n\n";
    print "Ajout d'un nouvel abonné sans emprunt\n";
    print "Qui souhaitez-vous ajouter ?";
    $_ = <>;
    s/^\s*|\s*$//g;
    if (exists $abonnes{$_}) {
      print "$_ est déjà abonné\n";
    }
    else {
      $abonnes{$_} = undef;
      print "$_ est ajouté\n";
    }
    print "\n";
}
 
# Révocation d'un abonné : delete
sub del_abo {
  print "\n\n";
  print "Quel User souhaitez vous supprimer? ";
  $_ = <>;
  s/^\s*|\s*$//g;
  if (exists $abonnes{$_}) {
    delete($abonnes{$_});
    print "$_ est supprimé\n";
  }
  else {
    print "$_ ne figure pas parmi les inscrits\n";
  }
  print "\n";
}
 
sub choix_inscrit {
  my @inscrits = sort (keys %abonnes);
  while (1) {
    my $i = 1;
    foreach my $inscrit (@inscrits) {
      print "$i - $inscrit\n";
      ++$i;
    }
    print "Sélection (1 à ", scalar(@inscrits), " ) ? ";
    $_ = <>;
    s/^\s*|\s*$//g;
    if (/^\d+$/) {
      last if ($_ > 0 and $_ <= @inscrits);
    }
    print "entrée invalide\n";
  }
  return $inscrits[$_-1];
}
 
sub emprunt_dvd {
  my $maxabo = 50;  #max par abonné
  print "\n\n";
  my $abo = choix_inscrit();
  my $nbDVD = 0;
  $nbDVD = $abonnes{$abo} if defined $abonnes{$abo};
  if ($nbDVD == $maxabo) {
    print "Vous avez déjà atteint la limite\n";
    return;
  }
  print "\n\n";
  print "Combien de DVD voulez vous emprunter (1 à ", $maxabo - $nbDVD, " )? ";
  $_ = <>;
  s/^\s*|\s*$//g;
  if (/^\d+$/) {
    if ($_ > 0 and $_ <= ($maxabo - $nbDVD)) {
      $abonnes{$abo} += $_;
      print("$_ nouveaux DVDs empruntés, $abonnes{$abo} DVDs empruntés au total\n" );
      return;
    }
  }
  print "entrée invalide\n";
}
 
sub retour_dvd {
  print "\n\n";
  my $abo = choix_inscrit();
  unless (defined($abonnes{$abo}) and $abonnes{$abo} > 0) {
    print "Vous n'avez pas de DVD emprunté\n";
    return;
  }
  print "\n\n";
  print "Combien de DVD voulez vous retourner (1 à ", $abonnes{$abo}, " ) ?";
  $_ = <>;
  s/^\s*|\s*$//g;
  if (/^\d+$/) {
    if ($_ > 0 and $_ <= $abonnes{$abo}) {
      $abonnes{$abo} -= $_;
      print("$_ DVDs rendus, $abonnes{$abo} DVDs empruntés au total\n" );
      return;
    }
  }
  print "entrée invalide\n";
}

Code :

#!/usr/bin/perl
use strict;
use warnings;
use feature "switch";
 
my %abonnes = ("Guillaume" => 3, "Maxime" => 15, "Anne" => 0, "Michel" => undef, );
 
 
while (1) {
  print "################## Menu ##################\n";
  print "#                                        #\n";
  print "# 1 - Affichage de la DVDthéque          #\n";
  print "# 2 - Ajoute d'un abonné                 #\n";
  print "# 3 - Suppression d'un abonné            #\n";
  print "# 4 - Emprunt de DVD                     #\n";
  print "# 5 - Retour de DVD                      #\n";
  print "# 6 - Quitter                            #\n";
  print "#                                        #\n";
  print "##########################################\n";
  print "choix : ";
  $_ = <>;
  s/^\s*|\s*$//g;
  given ($_){
    when (/1/) { affichage()   }
    when (/2/) { add_abo()     }
    when (/3/) { del_abo()     }
    when (/4/) { emprunt_dvd() }
    when (/5/) { retour_dvd()  }
    when (/6/) { last          }
    default    { print "entrée invalide\n" }
  }
}

A+,

Bonjour je vous remercie. Cepenadant, mon code avait beaucoup de variable et j'ai essayé de faire un code fonctionnel. Je vous remercie pour votre aide.

gilou

Modérateur
Modosaurus Rex

A la base, je n'ai pas changé les fonctionnalités de votre code (donc si elles ne répondent pas à votre problème, c'est a vous de le modifier pour quelque chose de plus adapté. Typiquement, j'aurais choisi deux structures indépendantes, une pour les abonnés, et une pour la base des DVDs, si j'avais écrit le code), j'ai juste gardé la structure de votre solution et
- découpé le code en parties indépendantes, ce qui le rend plus lisible
- viré les globales et conservé la seule globale qui a un sens, la DVDthèque (noter aussi que si j'écrivais le code, mes subs n'auraient aucune globale, je passerais la DVDtheque par référence en argument)

Si j'avais eu a résoudre le problème, j'aurais commencé par poser un modèle plu réaliste:
my %abonnes = ( "Guillaume" => {"emprunt" => [{"titre" => 25, "retour" => "2-12-2014"},
{"titre" => 27, "retour" => "18-12-2014"},],
"inscrit" => "1-1-2010"},
"Maxime" => {"emprunt" => [{"titre" => 2, "retour" => "7-1-2015"},],
"inscrit" => "19-7-2012"},
"Anne" => {"emprunt" => [],
"inscrit" => "22-6-2013"},
"Michel" => {"emprunt" => undef,
"inscrit" => "12-9-2012"}, );
et
my %DVD = ( 1 => {"titre" => "Money", "interprete" => "Pink Floyd", "Pistes" => 8},
2 => {"titre" => "Abbey Road", "interprete" => "Beatles", "Pistes" => 9},
...
);

Ensuite, il faut voir si ce genre de chose est bien pensé, ou si c'est la base de DVDs qui doit avoir un champ emprunteur et un champ retour par DVDs plutôt qu'avoir cela au niveau des users (chaque système a ses avantages et ses inconvénients).

A+,

Message édité par gilou le 05-12-2014 à 12:00:59

FORUM HardWare.fr

Programmation

Perl

Problème sur la table de hashage

Sujets relatifs
probleme d'encodage utf8 avec notepad++	probleme avec la fin de la ligne
Généralisation de capteur sous Android : problème de listener	Problème avec style.visibility
Probleme affichage Nginx <-> PHP	Problème lien Access-MySQL
Problème d'appel XML::Parser	Besoin d'aide (résolution d'un probleme sur un programme fini )
probleme avec cmd et ftp	table hachage petit problème c++
Plus de sujets relatifs à : Problème sur la table de hashage

Page générée en 0.245 secondes