#!/usr/bin/perl
use CGI;
use strict; use warnings;
my $cgi = CGI::new();
print $cgi->header(),
$cgi->start_html();
print " Voici les voitures rechercher.
";
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 '';
print '';
print '| Marque | ';
print 'Modele | ';
print 'Kilometrage | ';
print 'N° Moteur | ';
print 'Année | ';
print '
';
print '| ' . $marque1 . ' | ';
print '' . $model1 . ' | ';
print '' . $km1 . ' | ';
print '' . $num1 . ' | ';
print '' . $annee1 . ' |
';
}
else {
print 'Aucune voiture trouver veuillez modifier votre recherche
';
print '';
last;
}
}
}
__END__