|
Connexion à la base de données MySQL à partir d'un script Perl nécessite le Perl DBI et DBD : modules MySQL. Ces modules peuvent être obtenues à partir de CPAN ( Comprehensive Perl Archive Network ) . Si vous utilisez ActivePerl d'ActiveState , vous pouvez télécharger les modules avec le Perl Package Manager. Le module DBI est utilisé pour l'accès base de données générale , tandis que le DBD : module MySQL est utilisé pour accéder à la base de données MySQL. Connexion et Interrogation
Pour utiliser le DBI : Module MySQL pour accéder à la base de données MySQL , vous devez ajouter la ligne " use DBI ; " au script qui indique à Perl d'utiliser les bibliothèques DBI . Cette ligne doit être placé avant tout accès à la base de données est tentée. Vous vous connectez à la base de données avec le " DBI-> connect (' dbi : mysql : database' , 'username' , 'password' ) " fonction . Les instructions SQL peuvent ensuite être préparés pour l'exécution de la " préparer () fonction » et exécutée avec la fonction "exécuter" . Les résultats sont ensuite réinjectés dans un tableau qui peut être imprimé ou plus Transformé Un exemple de script devrait ressembler à : .
#! /usr /bin /perl- w # Appelez le DBI libraryuse DBI ; # Création de variables pour les informations de base de données base de données $ = "exemple" ; $ username = "mysql" ; $ password = "pass" ; # Connexion à la base de données $ connect = dBI- > connect (' dbi : mysql : $ database ', $ username ' , $ password' ) or die " erreur de connexion : $ dBI :: errstr \\ n"; # Fournir l' instruction $ query = " SELECT * FROM adresse " ; # exécutez la requête $ exécuter = $ Connectez -> prepare ( $ statement ) ; $ execute- > executeor die" erreur: $ DBI :: errstr \\ n "; # Retour au resultswhile (@ row = $ exécuter -> fetchrow_array ) {print " @ row \\ n"; } $ Connectez -> disconnect () ;
La ligne " $ connect = dBI- > connect (' dbi : mysql : $ database ' , $ username ', $ password' ) or die " erreur de connexion : $ DBI :: errstr \\ n"; " est utilisé pour se connecter à la base de données , mais il fournit également le contrôle d'erreur de sorte que le script ne continue pas de tourner si aucune connexion est établie. La vérification des erreurs est également inclus dans l'exécution de la requête.
La fonction " fetchrow_array " retourne chaque ligne dans un tableau de valeurs . Les valeurs peuvent être consultés séparément avec les variables $ row [1], $ row [2], $ row [3] , etc Dans cet exemple, la ligne entière serait imprimé à la screen.The dernière ligne du script supprime . la connexion de base de données
Si vous souhaitez créer une table, ou insérer des données dans une table, vous devez utiliser le " faire () pour créer la table de la syntaxe serait: . $ Connectez - > do ( " Créer un texte de table (id INT, prénom VARCHAR ( 20) )"); .
Pour insérer des données dans la table, vous devez ajouter la fonction quote () , afin de reprendre les valeurs de chaîne $ Connectez - > do ( "INSERT INTO valeurs de texte (1," $ Connectez -> quote ( " James ")) " . . ) ;
administration système
le module DBI vous permet de fonctions d'administration système telles que la création , la suppression et la fermeture de la base de données
pour créer une nouvelle base de données que vous souhaitez émettre la ligne suivante: . newdb $ = $ Connectez -> fonction ( " createdb ", $ base de données, 'admin' ) ;
Pour supprimer une base de données que vous souhaitez émettre la ligne: $ delete = $ Connectez -> fonction ( " dropdb ", $ base de données, 'admin' ) ; < br > Pour arrêter la base de données que vous souhaitez émettre la ligne: $ delete = $ Connectez -> fonction ( "shutdown" , $ base de données, 'admin' ) ;
< br > Photos
|
