Perl et DBI: le premier script avec MySQL

Dans cet article nous allons essayer de comprendre ensemble comment utiliser MySQL DB avec Perl.
Il devrait précéder immédiatement que pour cette tâche aux besoins du pilote Perl DBI (Database Interface), ou une bibliothèque qui permet d'interfacer l'liguaggio à notre base de données.
Non seulement cela, nous devons aussi le module DBD MySQL, interface ou de communication dans notre db.
Avant peranto vous devriez vérifier sur notre serveur, DBI et DBD.
Si les deux pilotes sont présents, nous pouvons continuer. Sinon, avant que vous fassiez, vous aurez besoin d'installer les deux.

Voici une petite perl qui utilise scriptin (précisément) de ces pilotes pour entrer des données dans notre base de données MySQL.
Code:

 #! / Usr / bin / perl-w

 


 



 use DBI;

 

 



 # Accès aux données à mysql db

 






 $ Base = "dbname";







 $ User = "root";







 $ Col = "secret";







 $ Driver = "DBI: mysql";

 

 



 # Connexion à db

 






 my $ dbh = "DBI -> connect ($ pilote: base de données = pass base de données $, $ user, $)

 






 or die "Impossible de se connecter!"

 

 



 # Insérer des données dans DB

 






 $ Dbh-> do ("INSERT INTO table (champ1, champ2) VALUES ('toto', 'bar')");

 

 



 # Se déconnecter de la db

 






 $ Dbh-> disconnect;

 

 



 sortie;