lecture de fichier avec comparaison

**idsec** · 25/04/2007, 16h10

salut à tous,j'ai des problémes pour parcourir mon fichier.je dois comparer les données entrées par l'utilisateur et ceux qui sont ds mon fichier pour voir s'il est inscrit ou non.pour l'instant,il ne regarde que la premiére ligne.

voici mon code perl

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
#!c:/Perl/bin/perl.exe 
print "Content-type: text/html\n\n";
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI 'param';
print"<html><body><table border=1 width=400 align=center  CELLPADDING =3 ><tr><td>";
$utilisateur = param ('Code_utilisateur');
$Mot_de_passe = param ('Mot de passe'); 
open (BASE_DONNEES,"utilisateurs.txt"); 
while (<BASE_DONNEES>) { 
  $_ =~ s/[\r\n]//g; 
  $ligne = $_; 
  ($code,$pwd,$prenom,$nom,$age,$sexe,$courriel,$ville,$pays ) =  
  split(':',$ligne); 
 close (BASE_DONNEES);
             if (($utilisateur eq $code) && ($Mot_de_passe eq $pwd)){
				              print"<table border=0 width=600 height=200 cellspacing=5 CELLPADDING =3><tr>
							                               <td colspan=2 align=center><b>Informations concernant le code d'utilisateur</b> <i>$utilisateur</i></td>
													</tr>	   
			                         	            <tr>
													       <td align=right> <b>Nom:</b></td>
														   <td>	$nom </td>
                                                    </tr>
                                                    <tr>
													       <td align=right><b>Pr&eacutenom:</b></td>
														   <td>	$prenom </td>
                                                    </tr>
                                                    <tr>
													       <td align=right><b>&Acircge:</b></td>
														   <td>	$age </td>
                                                    </tr>
                                                    <tr>
													       <td align=right><b>Sexe:</b></td>
														   <td>	$sexe </td>
                                                    </tr>
                                                    <tr>
													       <td align=right><b>Courriel:</b></td>
														   <td>	$courriel </td>
                                                    </tr>
                                                    <tr>
													       <td align=right><b>Ville:</b></td>
														   <td>	$ville </td>
                                                    </tr>
                                                    <tr>
													       <td align=right><b>Pays:</b></td>
														   <td>	$pays </td>
                                                    </tr>
                                                    <tr>
							                               <td colspan=2 align=center><a href=http://localhost/Exercice4.html>Retour au formulaire pour accéder à vos données personnelles</a></td>
													</tr>	   													
							  </table>";
                                                                   }
					else{
							print"erreur";				
			            }
 
print"</td></tr></table></body></html>";
 }

et voici le contenu du fichier txt

gumin1:Cours_Internet:Guy:Mineau:24:M:Guy.Mineau@hotmail.com
pimar:dynamique:Paula:Marchand:66:F:Paula.Marchand@hotmail.com
angam8:telephone:Andre:Gamache:21:F:andree.gamache@hotmail.com
jamen1:bienVenue:Jack:Ménard:29:M:Jack.Menard@hotmail.com
jdbeau:Jamais23:Jean-Denis:Beaulieu:38:M:jdbeau@videotron.ca
jelan34:toujours:Jean:Landry:40:F:jean.landry@hotmail.com
gicar9:Bureau44:Gilles:Caron:44:M:gilles.caron@hotmail.com
clmor2:Chaise99:Claire:Morin:42:F:Claire.Morin@hotmail.com
sober5:Hive:Sophie:Bérubé:46:F:Sophi@hotmail.com

merci d'avance

**Jedai** · 25/04/2007, 17h25

Premièrement : mets les balises CODE la prochaine fois.
Deuxièmement : ton code est très mal indenté (c'est peu que de le dire...), sans parler du fait que tant qu'à utiliser CGI, autant utiliser ses fonctions de mise en forme (sinon autant utiliser une solution de Template, ça sera beaucoup plus lisible et utilisable par un designer en plus).
Troisièmement : il y a un close en plein milieu de ta boucle de lecture, ce qui est pour le moins... étrange ! En effet, tu lis une ligne puis tu fermes le fichier et puis tu reessaie de lire une ligne dans le fichier maintenant fermé, rien d'étonnant que la boucle s'arrête faute de trouver de nouvelles lignes.

--
Jedaï

lecture de fichier avec comparaison

Web Perl

Vue hybride

Discussions similaires

Partager

Partager