Discussion :

[bigoter]

bonjour a tous j'ai un leger probleme mais je vois pas d'ou il vien en fait mon script n'affiche qu'une ligne lors de la recherche alors qu'il devrai en afficher deux qq'un peu t'il maider

merci

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
#! C:\Perl\bin\perl.exe
 
use CGI;
use strict; use warnings;
 
my $cgi = CGI::new();
 
print $cgi->header(),
      $cgi->start_html();
print "<h2><div align='center'> Voici les voitures rechercher.</div></h2><br>";
my $marque = $cgi->param("marque");
my $model = $cgi->param("model");
 
my $liste = '../professionels/liste/voiture.txt' ;
open my $voiture_file, '<', $liste
    or die "on ne peu pas ouvrir $liste : $!\n";
 
 
while( my $line = <$voiture_file>) {
 
    chomp($line);
    my ($marque1,$model1,$km1,$num1,$annee1)= split /;/, $line;
 
	#print "$marque1,$num1,$model1,$annee1,$km1";
 
	if($marque1 eq $marque) {
		#print "$marque1,$marque";
        if($model1 eq $model) {
 
			print "$model,$model1";
			print '<table style="width: 800px; border: 0; text-align: left;">';
			print '<tr bgcolor="#000000">';
			print '<td width="150"><font color="FFFFFF" size="2" face="Arial">Marque</font></td>';
			print '<td width="150"><font color="FFFFFF" size="2" face="Arial">Modele</font></td>';
			print '<td width="100"><font color="FFFFFF" size="2" face="Arial">Kilometrage</font></td>';
		    print '<td width="100"><font color="FFFFFF" size="2" face="Arial">N&deg; Moteur</font></td>';
		    print '<td width="150"><font color="FFFFFF" size="2" face="Arial">Ann&eacute;e</font></td>';
			print '</tr>';
            print '<tr><td style="width: 25%; border: 0"><font  size="2" face="Arial">' . $marque1 . '</font></td>';
			print '<td style="width: 25%; border: 0;"><font  size="2" face="Arial">' . $model1 . '</font></td>';
			print '<td style="width: 25%; border: 0"><font  size="2" face="Arial">' . $km1 . '</font></td>';
			print '<td style="width: 25%; border: 0"><font  size="2" face="Arial">' . $num1 . '</font></td>';
			print '<td style="width: 25%; border: 0"><font  size="2" face="Arial">' . $annee1 . '</font></td></tr>';
 
            last;
        }
        else {
            print '<div align="center">Aucune voiture trouver veuillez modifier votre recherche</div>';
			print '<div align="center"><a href="choix.cgi">Cliquer ici</a></div>';
            last;
        }
    }
 
}
__END__

[bigoter]

la cause de ce probleme est le while parce que lorsqu'il a trouver un valeur bonne il s'arrete
que faut t'il mettre pour remplacer le while

[Jedai]

Le problème n'est pas le while mais le last : un last dans une boucle arrête l'exécution de celle-ci et passe à la suite, donc il est normal que ta boucle s'arrête après avoir rencontré la première voiture convenant.

--
Jedaï

[bigoter]

donc en gros il faut supprimer le last

[bigoter]

merci ca fonctionne il me reste jsute le probleme que ca affiche deux fois le tableau