Conexión a la base de datos MySQL desde un script de Perl requiere que el Perl DBI y DBD : módulos MySQL. Estos módulos pueden ser obtenidos desde CPAN ( Comprehensive Perl Archive Network ) . Si usted está usando ActivePerl de ActiveState , puede descargar los módulos con el Gestor de paquetes Perl. El módulo DBI se utiliza para el acceso de base de datos general, mientras que el DBD : módulo de MySQL se utiliza para acceder a la base de datos MySQL. Conectar y consultar

Para utilizar el DBI : Módulo de MySQL para acceder a la base de datos MySQL , debe agregar la línea " use DBI ; " al script Perl que le dice a usar las bibliotecas DBI . Esta línea debe colocarse antes de cualquier acceso a la base de datos que se intente . Se conecta a la base de datos con "> DBI connect (' dbi base de datos : mysql ' , 'username' , ' password' ) " la función. Sentencias SQL pueden ser preparados para su ejecución con el " prepare () función" y ejecutado con la función " ejecutar" . Los resultados se retroalimentan en una matriz que se puede imprimir o tratamientos

Un script de ejemplo se vería así : .

#! /usr /bin /perl- w # Llame al libraryuse DBI DBI ; # Creamos variables para la información de base de datos $ database = "ejemplo" , $ username = " mysql " , $ password = "pass" ; # Conectarse a la base de datos $ conexion = dBI -> connect (' dbi : mysql : $ database ', $ nombre de usuario ' , $ password " ) or die " Error de conexión : $ dBI :: errstr \\ n "; # Proporcionar la consulta $ sentencia = " select * from dirección " ; # ejecutar la consulta $ ejecutar = $ connect -> prepare ( $ declaración) ; $ ejecutar -> executeor die" Error: $ DBI :: errstr \\ n "; # Devolver el resultswhile ( @ row = $ ejecutar -> fetchrow_array ) {print " @ fila \\ n"; } $ connect -> (desconexión ) ;

La línea " $ connect = dBI -> connect (' dbi : mysql : $ database ' , $ usuario ' , $ password " ) or die " error de conexión : $ DBI :: errstr \\ n "; " se utiliza para conectarse a la base de datos , sino que también proporciona la comprobación de errores para que el script no siga funcionando si no se realiza la conexión . La comprobación de errores también se incluye en la ejecución de la consulta.

La función " fetchrow_array " devuelve cada fila como una matriz de valores. Los valores pueden ser accedidos por separado con las variables $ row [ 1 ] $ row [ 2 ] , $ row [ 3 ], etc En este ejemplo, la fila entera se imprime en la última línea screen.The del script elimina . la conexión de base de datos

Si desea crear una tabla o insertar datos en una tabla, se usaría el hacer () de " para crear la tabla de la sintaxis sería: . $ connect - > do ( "Crear texto tabla (id INT , nombre VARCHAR ( 20 ) ) " ) .

para insertar datos en la tabla debe agregar la función quote (), con el fin de citar a los valores de la cadena $ connect - > do ( "INSERT INTO valores de texto ( 1 ", $ connect -> comillas (" James ")) . " . ) ;
sistema de Administración

el módulo DBI permite a las funciones de administración del sistema , tales como la creación, supresión y el cierre de la base de datos

para crear una nueva base de datos que desea emitir la siguiente línea: . $ NewDB = $ connect -> func ( " createdb " , $ database , 'admin ');

Para eliminar una base de datos que le emita la línea: $ delete = $ connect -> func ( " dropdb " , $ database , 'admin '); < br >

Para cerrar la base de datos usted debe ejecutar la línea: $ delete = $ connect -> func ( "shutdown " , $ database , 'admin ');
< br >