Discussion :

[islah]

Bonjour,
je voudrais que vous m'aider pour realiser une application de gestion d'une mediathèque, les données nécessaires à cette application sont stockées dans des fichiers.
1-gestion des differents utilisateurs et d'un administrateur.
2-gestion des médias (type du support : Livre, Magazine, Revue, journal, CD, DVD...........................etc) dont les propriétés, outre le type, sont :
- un titre,
-un genre,
-un (des ) auteurs(s),
-un éditeur,
-une date,
-un résumé,
- .......etc
3-l'administrateur doit pouvoir effectuer les opérations suivantes:
-ajouter/modifier/supprimer des medias (cela correspondre à une création ou à une destruction de medias).
- créer les comptes des utilisateurs
-gestion des emprunts et retours de medias
-edition d'états tels que:
-liste des bon / mauvais utilisateurs (bon utilisateur : est celui qui respecte les délais des emprunts des médias et le mauvais : c'est le contraire exactement).
-liste des medias empruntés
-liste des media disponibles
-liste des media reservés

'- un utilisateur, une fois identifié, peut consulter son compte afin d'effectuer diverses opérations, à savoir:
-lister les médias empruntés (date d'emprunt, date de retour, etc...)
-liste les medias disponibles,
-eventuellement, réserver un media non disponible.

voila mon 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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
 
#!/usr/bin/perl -w
print ("---Bien venue dans Mediatheque----\n\n");
print "entrez votre logine\n";
$login = <>;
print "entrez votre mot_de_passe\n";
$mdp = <>;
chomp($login);
chomp($mdp);
 
if($login && $mdp){
		open(FLUX,"membres.txt");
		my $trouve=0;
		while(<FLUX>){
			chomp($_);
			my($log,$mo)=split(':',$_);	
			if(($login eq $log) and ($mdp eq $mo)){
				print ("\n|================ Bienvenue $login==================|\n");						
				$trouve=1;
				open(SESSION,">session.txt");
				print SESSION ($login);			
				close(SESSION);
			last;
			}
		}
		close(FLUX);
 
		if($trouve==0){
			print "Sorry you can't be logged in \n";
			}
 
 
		}
sub menu(){
 
	print ("Menu : \n");
	print ("Pour emprunter un Livre tapez ==> 1\n");
	print ("Pour emprunter une Magazine tapez ==> 2\n");
	print ("Pour emprunter une Revue    tapez ==> 3\n");
	print ("Pour emprunter un Journal   tapez ==> 4\n");
	print ("Pour emprunter un VHS       tapez ==> 5\n");
	print ("Pour emprunter un CD        tapez ==> 6\n");
	print ("Pour emprunter un DVD       tapez ==> 7\n");
print ("Pour nous quitter, tapez 8");
	print ("\n|=============================================================|\n");
 
	print ("\n========== Votre choix? ==> ");
 
	$choix=<>;
	chomp($choix);
	if($choix==1){
	print ("\n========== Vous pouvez emrunter un Livre ==========\n");
		    }
	if($choix==2){
	print ("\n========== Vous pouvez emrunter une Magazine ==========\n");
			}
	if ($choix==3){
	print ("\n========== Vous pouvez emrunter une Revue  ==========\n");
	}
	if($choix==4){
	print ("\n========== Vous pouvez emrunter un Journal ==========\n");
	}
	if($choix==5){
	print ("\n========== Vous pouvez emrunter un VHS ==========\n");
	}
	if($choix==6){
	print ("\n========== Vous pouvez emrunter un CD   ==========\n");
	}
	if($choix==7){
	print ("\n========== Vous pouvez emrunter un DVD  ==========\n");
	print ("\n========== Voila la liste des films ======\n");
	print ("\n|========== Pour emprunter un DVD       tapez ==> 7 ==========|\n ");
			open(FLUX,"films.txt");
			while(<FLUX>){
 
			print"$_\n";	
			}
 
			close(FLUX);
 
	}
elsif($choix==8){
	#Ici on gere le voeu de deconnexion		
 
 
}
	else {
	print"ERREUR\n";
 
	}
	print ("\n|========================================================================================|\n");
	print ("\n|========== Pour savoir plus des informations sur un film    tapez son numero? ==========|\n");
	print ("\n|========================================================================================|\n");
 
	print ("\n========== Votre choix? ==> ");
 
 
	$numero=<>;
	chomp($numero);
	for ($i=0; $i<=20; $i++){
	if($numero== $i){
 
	print ("\n========== Voila les details ==========\n");
	$fichier = "films/$i.txt";
	open(FILE, $fichier);
 
			while(<FILE>){
 
			print"$_\n";	
			}
 
			close(FILE);
 
		}		}
}#fin de la fonction menu
while(1){	
	menu(); 
}

je voudrais que vous m'orienter ou m'aider un peux pour terminé ce projet et je vous remercie en avance.

Cordialement

[CKLN00]

juste une question :
pourquoi PERL et pas une base de donnée ?
il me semble que ça serais bien plus adapter.

toujours est-il ce n'est que mon avis.

[islah]

salut,
je suis obligé par ce que c'est un projet.
cordialement

[ould64]

bonjour,
je connais pas perl comme toi desolé, j'aime bien comprendre comment tu as fait ce que tu as deja fait et est ce que ça marche.
@++

[Jasmine80]

Ne peux-tu pas utiliser Perl et une base de données? Tu stockes tes informations dans une DB que tu interroges avec Perl. Ainsi tu gardes Perl pour ton projet et tu ne te compliques pas la vie gratuitement. Tu peux utiliser le module DBI.

Jasmine,