lecture de fichier avec comparaison

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:

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