FAQ Perl

Le module DBI (database interface) permet de faire des connections à une ou plusieurs bases de données telles Mysql, Postgresql, Oracle, Sybase, etc.... De ce fait, il vous sera possible d'intégrer des requêtes SQL dans vos scripts. Petit rappel : n'oubliez pas d'installer le module DBI et le driver qui va avec la base en question [confère 5)] Voici un petit listing de commandes à inclure dans le code Perl pour l'accès aux bases de données

use DBI;
En début du programme, il permet de faire appel au module DBI et spécifie qu'on va faire un accès aux bases de données. $db = DBI->connect("dbi:mysql:toto", 'login', 'mot_de_passe');

Requêtes du genre "create...", "update...", "insert into..." => $db->do("requête");

$db->prépare("requête"); : préparation de la requête
$db->exécute(); : exécution de la requête
$db->fetchrow_array(); : ligne retournée par la requête (ou lignes dans une boucle)
$db->finish(); : fin de la requête

Requêtes du genre "select..." Dans ce cas, 4 étapes doivent être exécutées :

Connexion à une base de données mysql s'appelant "toto" et dont l'accès nécessite un login et mot de passe. Exécution d'une requête SQL. En fonction du type de requête, la syntaxe n'est pas la même. On différentie deux types d'écriture.
$db->disconnect; : pour se déconnecter de la base de donnée en fin de programme.

Exemple: Insertion d'une ligne dans une table sql et récupération de données.

Voici une table sql

 titre        |acteur   |jour
---------------------------------
|shrek        |eddy     |lundi |
|couleur      |hopkins  |mardi   |
|coup_foudre  |robert   |mercredi|
---------------------------------

#########################################################################################
#Script Perl#
#########################################################################################
#!/usr/bin/perl -w
use strict;
use DBI;

  #Connection à la base de données postgresql premieredb
  my $dbp = DBI -> connect ("dbi:Pg:dbname=premieredb","login","mot_de_passe") or die "connection impossible!";
  
  #insertion d'une donnée
  $dbp->do("insert into film values ('test_titre', 'test_acteur','test_jour');")|| die "pb de requete : $DBI::errstr";   
  
  #requete postgresql
  my $requete="select acteur, jour from film;";
  
  #prépare la requête sql
  my  $version = $dbp->prepare($requete);

  #exécution de la requête sql
  $version-> execute() || die "pb de selection : $DBI::errstr";

  while (my  ($acteur, $jour) = $version -> fetchrow_array)
    {
     print "result: $acteur du jour $jour\n"; 
    }

  #spécifie la fin de la requête
  $version-> finish();
      
  #déconnection à la base de données
  $dbp->disconnect();

#########################################################################################
#Resultat#
#########################################################################################
result: eddy du jour lundi
result: hopkins du jour mardi
result: robert du jour mercredi
result: test_acteur du jour test_jour
nouvelle table
 titre        |acteur     |jour
------------------------------------
|shrek        |eddy       |lundi    |
|couleur      |hopkins    |mardi    |
|coup_foudre  |robert     |mercredi |
|test_titre   |test_acteur|test_jour|
------------------------------------