Probleme authentification login+password

bonjour a tous, voila je doit créer un programme pour tester si le login est le password corrsepond bien a ceux enregistré dans un fichier texte.
voila mon programme de verification :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#!c:/Program Files/EasyPHP/perl/bin/perl.exe -w   use CGI; $page=CGI::new();   print $page->header(), $page->start_html(-title=>'voici ma page tableau'); open(FIC,"part.txt"); while($lignes=<FIC>){ ($pseudo, $mdp)=split(/&/,$lignes);   if($pseudo eq $page->param('pseudo')) { if($mdp eq $page->param('mdp')) { print $page->p("identification reussi"); print "<br><br>"; } } } close(FIC); $page->end_html(); exit;

---

et le fichier texte :

Code:

---

1 2 3

emmanuel&code1 marc&code2 daniel&code3

---

le probleme est qu'il n'identifie que la derniere ligne du fichier texte, les autres ligne ne marche pas.
Je suis un gros debutant:oops: et je doit rendre ce travail pour lundi (exam)..
Si vous avez une idée..
merci d'avance

tu devrais déjà apprendre de bonnes manieres, lit la FAQ et les cours sur developpez.com (lien dans ma signature).
Déjà indente ton code, sinon c'est illisible et donne pas envi de le lire.
De plus, use strict et use Carp pour repérer les erreurs de syntaxe, etc

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

#!c:/Program Files/EasyPHP/perl/bin/perl.exe -w use strict; use Carp; use CGI;   my $page=CGI::new();   print $page->header(), $page->start_html(-title=>'voici ma page tableau'); open(FIC,"part.txt"); while(my $lignes=<FIC>){ chomp($ligne); my ($pseudo, $mdp)=split(/&/,$lignes); if($pseudo eq $page->param('pseudo')) { if($mdp eq $page->param('mdp')) { print $page->p("identification reussi"); print "<br><br>"; } } } close(FIC); $page->end_html(); exit;

---

voilà à toi de continuer ;)

ok merci bien, je vais essayer,
a +