Acceso a bd
#!/usr/bin/perl
use DBI();
#Se imprimen las cabeceras
print "content-type: text/html\n\n";
print "\n";
print "\n";
print "Resultado\n";
print "\n";
print"\n";
print " Ejemplo de conexión a MySQL con script de Perl ";
print "";
#Se establece la cadena de conexión.
#Consulte los datos de la conexión en el panel de control
my ($servidor, $bd,$usuario, $passw) =
('servidor', 'DBPersonas', 'usuario', 'password');
my $cadena="DBI:mysql:dbname=$bd; host=$servidor";
#Se realiza la conexión
my $dbh = DBI->connect($cadena,$usuario,$passw);#Se ejecuta la consulta SQL
#IMPORTANTE: MySQL es sensible a mayúsculas/minúsculas
#Esto quiere decir que las tablas "Personas" y "personas" son distintas.
my $SQL= "SELECT Id, Nombre FROMPersonas";
my $sth = $dbh->prepare($SQL) or die "No puedo conectar a la base de datos";
$sth->execute;
#Se recorre la tabla y se muestran los datos
print "Id\tNombre\n";
while (my $ref =$sth->fetchrow_arrayref) {
print "$ref->[0]\t$ref->[1]\n"; }
#Se desconecta de la base de datos
$sth->finish(); $dbh->disconnect();
#Se escriben las cabeceras de fin
print ""; print "\n";
print"\n";
Leer más: http://www.arsys.info/programacion/bases-de-datos/ejemplos-de-acceso-a-bases-de-datos-con-asp-perl-y-php/#ixzz19uWnAuDT
Otro ejemplo
Veamos un ejemplo de un script en Perl queconecta y desconecta a un sistema de bases de datos MySQL:
#Usamos las librerías de acceso a BD
use DBI;
my $host="servidor"; #Servidor donde se aloja la base de datos
my$base_datos="basedatos"; #Nombre de las base de datos
my $usuario="basedatos"; #Usuario de la BD
my $clave="password"; #Password de la BD
my $driver="mysql"; #Utilizamos el driver de mysql#Conectamos con la BD. Si no podemos, mostramos un mensaje de error
my $dbh = DBI-> connect ("dbi:$driver:database=$base_datos;
host=$host", $usuario, $clave)
|| die "\nError al abrir la base datos:...
Regístrate para leer el documento completo.