Acceso a bd

Solo disponible en BuenasTareas
  • Páginas : 2 (355 palabras )
  • Descarga(s) : 0
  • Publicado : 12 de febrero de 2011
Leer documento completo
Vista previa del texto
Perl acceso a base de datos

#!/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:...
tracking img