La base de datos es una colección de datos interrelacionados que ayuda en la recuperación, inserción y eliminación eficiente de datos de la base de datos y organiza los datos en forma de tablas, vistas, esquemas, informes, etc. Por ejemplo, una base de datos universitaria organiza los datos sobre estudiantes, profesores y personal administrativo, etc., lo que ayuda a realizar operaciones en estos datos de manera más eficiente.
Se puede acceder a esta base de datos y manipularla con la ayuda de varias herramientas y software. En Perl , se puede acceder a la base de datos y manipularla con la ayuda de los scripts de Perl. Estos scripts se ejecutan con la ayuda de un módulo conocido como módulo DBI (interfaz independiente de base de datos) . El módulo DBI proporciona una API para interactuar con muchas bases de datos como MySQL , Oracle , etc. Este módulo proporciona un conjunto de variables y métodos que brindan interacción con una interfaz de base de datos y no necesitan acceder a la base de datos original.
Nota: DBI no realiza ninguna operación en la base de datos. Simplemente proporciona una capa entre la aplicación y los controladores. Con el uso de esta capa, los controladores interactúan y realizan operaciones en la aplicación.
Arquitectura de un Perl DBI
DBI en Perl no depende de qué base de datos esté usando. Toma comandos e instrucciones de la API y los reenvía a los controladores asociados.
Conexión de DBI a una base de datos en Perl
Para conectarse a una base de datos en Perl, uno debe tener un servidor de base de datos instalado en el sistema. Aquí, estamos usando MySQL , por lo que las instrucciones adicionales serán relevantes para la base de datos MySQL .
Primero: debe instalar el módulo DBI de Perl en su sistema. Esto se puede hacer ejecutando el siguiente comando en su Shell para instalar el módulo DBI:
perl -MCPAN -e shell install DBI
Second: Start your MySQL server and follow the next steps to make a connection with your DBI:
Paso 1: Cree una base de datos y asígnele el nombre correspondiente. Aquí, vamos a nombrarlo como ‘GFG’.
Paso 2: crea una tabla dentro de esta base de datos. Hemos creado una tabla ‘Empleado’ con los campos ‘Nombre’, ‘Puesto’ y ‘Salario’.
Paso 3: use el siguiente script dado para conectar la base de datos con Perl File:
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
my $driver = "mysql";
my $database = "GFG";
my $dsn = "dbi:$driver:database=$database";
my $user = "root";
my $password = "";
my $dbh = DBI->connect($dsn, $user, $password,
{
PrintError => 0,
RaiseError => 1,
AutoCommit => 1,
FetchHashKeyName => 'NAME_lc',
});
$dbh->disconnect;
Aquí, en el script anterior, la variable $dsn contiene la base de datos que se está cargando y la variable $dbh contiene los objetos de manejo de la base de datos.