Section courante

A propos

Section administrative du site

Lorsqu'on utilise le Perl, un moyen très populaire d'effectuer des recherches dans une base de données, c'est d'utiliser la base de données MySQL.

Pour effectuer une recherche dans cette base de données à l'aide d'un formulaire, l'opération est simple mais n'est pas nécessairement à la porte du premier venu.

Tous d'abord commençons en supposant que nous avons une base de données MySQL appelé «mabasededonnes_db» dans lequel la table «cdmworkgroup» avec le contenu suivant :

Cin WorkGroupId Name_EN Name_FR Description Status CreateDate CreateUserId LastUpdate UpdateUserId
000 0000023901 Coder Développement Groupe de programmeur effectuant de la recherche et développement (R&D). A 2006/03/09 SYSADM 2006/03/09 SYSADM
000 0000023902 Maintenance Maintenance Groupe maintenant les divers services réseaux, implantant les développements, maintenant l'état actuel du matériel et administratant les accès. A 2006/03/09 SYSADM 2006/03/09 SYSADM
000 0000023903 Direction Direction Direction Groupe de travail s'occupant des divers orientations à prendre sur les projets et les produits. I 2006/03/09 SYSADM 2006/03/09 SYSADM
075 0000000068 Test Teste Groupe désigné pour le contrôle de la Qualité A 2006/03/09 STREMBLAY 2006/03/09 STREMBLAY

Si on veut sortir par exemple un tableau HTML avec le nom français, anglais et la description dans le Cin valant 000, on aura un petit programme ressemblant à ceci :

  1. #!/bin/perl
  2.  
  3. use CGI;
  4. use DBI();
  5.  
  6. $Conn   = DBI->connect("DBI:mysql:database=mabasededonnes_db;host=localhost","","",{'RaiseError' => 1});
  7. $html   = new CGI; 
  8. $sth    = $Conn->prepare("SELECT * from cdmworkgroup where Cin='000'");
  9. $Result = $sth->execute;     
  10.  
  11. print $html->header;
  12. print "<TABLE Border=1 bordercolor=\"#000000\" CellSpacing=0>";
  13. print "<TR>";
  14. print "<TD><B>Nom francais</B></TD>";
  15. print "<TD><B>Nom anglais</B></TD>";
  16. print "<TD><B>Description</B></TD>";
  17. print "</TR>"; 
  18.  
  19. while ($LigneCourante = $sth->fetchrow_hashref) {
  20.      print "<TR>";
  21.    print "<TD>".$LigneCourante->{Name_EN}."</TD>";
  22.    print "<TD>".$LigneCourante->{Name_FR}."</TD>";
  23.    print "<TD>".$LigneCourante->{Description}."</TD>";
  24.    print "</TR>";
  25. }
  26.  
  27. print "</TABLE>";

Maintenant dans le fichier «recherche.pl» suivant si on veut créer un formulaire demandant d'effectuer une recherche en fonction du CIN 000 ou 075, on aura le script :

  1. #!/bin/perl
  2.  
  3. use CGI;
  4. use DBI();
  5.  
  6. $html   = new CGI; 
  7. print $html->header;
  8.  
  9. if($html->param('cmdAction') eq "Rechercher") { 
  10.     $Conn   = DBI->connect("DBI:mysql:database=mabasededonnes_db;host=localhost","","",{'RaiseError' => 1});
  11.      $sth    = $Conn->prepare("SELECT * from cdmworkgroup where Cin='".$html->param('MonCIN')."'");
  12.      $Result = $sth->execute;     
  13.     print "<TABLE Border=1 bordercolor=\"#000000\" CellSpacing=0>"; 
  14.     print "<TR>"; 
  15.     print "<TD><B>Nom francais</B></TD>"; 
  16.     print "<TD><B>Nom anglais</B></TD>"; 
  17.     print "<TD><B>Description</B></TD>"; 
  18.     print "</TR>"; 
  19.      while ($LigneCourante = $sth->fetchrow_hashref) {
  20.        print "<TR>"; 
  21.        print "<TD>".$LigneCourante->{"Name_FR"}."</TD>"; 
  22.        print "<TD>".$LigneCourante->{"Name_EN"}."</TD>"; 
  23.        print "<TD>".$LigneCourante->{"Description"}."</TD>"; 
  24.        print "</TR>"; 
  25.     } 
  26.     print "</TABLE>"; 
  27. } else {
  28.     # Entrée du programme la première fois
  29.     print "<form name=\"frmCurrEdit\" method=\"post\" action=\"recherche.pl\">"; 
  30.     print "Votre CIN de recherche: "; 
  31.     print "<SELECT name=MonCIN>"; 
  32.     print "<OPTION value=\"000\">000"; 
  33.     print "<OPTION value=\"075\">075"; 
  34.     print "</SELECT><BR>"; 
  35.     print "<input class=bouton type=\"submit\" name=\"cmdAction\" value=\"Rechercher\">"; 
  36.     print "</form>"; 
  37. }

L'exécution de script provoquera deux étapes d'exécutions, la première demandera le type de recherche comme suit :

Votre CIN de recherche:

Si l'utilisateur choisi «000» le résultat sera le suivant :

Nom francais Nom anglais Description
Développement Coder Groupe de programmeur effectuant de la recherche et développement (R&D).
Maintenance Maintenance Groupe maintenant les divers services réseaux, implantant les développements, maintenant l'état actuel du matériel et administratant les accès.
Direction Direction Direction Groupe de travail s'occupant des divers orientations à prendre sur les projets et les produits.

Par contre, si l'utilisateur choisi «075» le résultat sera le suivant :

Nom francais Nom anglais Description
Test Teste Groupe désigné pour le contrôle de la Qualité


Dernière mise à jour : Jeudi, le 17 janvier 2019