Accueil de Gladir.com Notes légales de Gladir.com Flux RSS des nouvelles du site Gladir.com - Langage de programmation - Perl - Affiche une table en Web Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

Tout d'abord, avant de tenter d'exécuter ce petit programme, assurez-vous que les modules sont installés avec les instructions suivantes :

C:\>C:\Perl\Bin\ppm.bat

ppm>install DBI
ppm>install DBD-mysql

N.B. Il va de soit qu'à cette étape, vous avez déjà installé la base de données MySQL !

Ensuite, en supposant que vous avez une base de données nommé «mybasededonnees_db» dans votre base de données MySQL avec la table «cdmworkgroup» ayant le contenu suivante :

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

Grâce à ce petit programme, vous pourrez afficher la table «cdmworkgroup» dans un tableau d'une page Web :

  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 Name_EN,Name_FR FROM cdmworkgroup ");
  9. $Result = $sth->execute;     
  10.  
  11. print $html->header;
  12. print "<TABLE>";
  13.  
  14. while ($CurrLine = $sth->fetchrow_hashref) {
  15.       print "<TR><TD>".$CurrLine->{Name_EN} . "</TD><TD>" . $CurrLine->{Name_FR} . "</TD>"; 
  16. }
  17.  
  18. print "</TABLE>";

Ensuite, vous devriez voir afficher un résultat ressemblant à celui-ci :

Coder Développement
Maintenance Maintenance
Direction Direction
Test Teste


Dernière mise à jour: Mardi, le 3 janvier 2012