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__