Discussion :

[hassh]

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 :

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
#!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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 et je doit rendre ce travail pour lundi (exam)..
Si vous avez une idée..
merci d'avance

[djibril]

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 :

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
 
#!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

[hassh]

ok merci bien, je vais essayer,
a +