shyboy

#!/usr/bin/perl

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 = '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>';

            
        }
        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__