#!/bin/perl
use DBI;                    # On va utiliser la base de donnees
use CGI_Lite;               # Module CGI_Lite...
$cgi=new CGI_Lite;          # On cree un objet de type CGI
%in = $cgi->parse_form_data;# On lit les donnees

print "Content-type: text/html\n\n"; # Indispensable: Header

$dbh = DBI->connect("dbi:Oracle:cours", 'scott/tiger');

# Preparation d'une requete de selection des valeurs
$sel = $dbh->prepare("select * from mpatient where nom like ?");
$recherche = "%$in{'recherche'}%";
$sel->execute($recherche)
              || die "Pb à la sélection : $DBI::errstr";

print "Patients dont le nom contient $in{'recherche'}";
print "<table border><th>Num&eacute;ro<th>nom<th> pr&eacute;nom<tr>";
$nblignes=0;
while (($nopatient, $nom, $prenom) = $sel->fetchrow_array) {
# Pour chaque ligne lue...
    print "<tr><td>$nopatient<td>$nom<td>$prenom\n";
    $nblignes++;
}
print "</table>Nombre de patients : $nblignes";
$sel->finish;                   # On ferme la requête insert
$dbh->disconnect;               # Déconnexion de la BDD